1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29
|
//TRANFTP1 JOB (xxxx,,,1000),xxxx,CLASS=D,MSGCLASS=K,
// MSGLEVEL=(1,0),NOTIFY=&SYSUID
//******* PREMIER JOB ************************************************
//STEP01 EXEC PGM=EZACFSM1
//SYSIN DD DATA,DLM=àà
//******* SECOND JOB *************************************************
//TRANFTP2 JOB (xxxx,TSO),TRFTP,CLASS=D,MSGCLASS=K,
// NOTIFY=&SYSUID,MSGLEVEL=(1,0)
//TRANSFC EXEC PGM=FTP,
// PARM='(EXIT'
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//OUTPUT DD SYSOUT=*
//INPUT DD DSN=UL1PAT.PPE.JCL.BELO.SYSIN(ETSAPLS),
// DISP=SHR
// DD *
SENDSITE
LOCSITE TRAILINGBLANKS RECFM=FB LRECL=73
PUT //DD:FICIN LISTE-ANOMALIES-GAE-DU&YYMMDD..TXT
DIR
QUIT
//FICIN DD DSN=UL1PAT.REC.SAPHI.ANO2,
// DISP=SHR
//*
àà
//SYSOUT DD SYSOUT=(A,INTRDR)
//* |
Partager