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
| //STEP000 EXEC PGM=IEFBR14
//DD1 DD DSN=&SYSUID..SMF30.TEMP1,
// UNIT=3390,SPACE=(TRK,1),DISP=(MOD,DELETE)
//DD2 DD DSN=&SYSUID..SMF30.TEMP2,
// UNIT=3390,SPACE=(TRK,1),DISP=(MOD,DELETE)
//*
//STEP001 EXEC PGM=IFASMFDP,REGION=4M
//SYSPRINT DD SYSOUT=*
//IN DD DISP=SHR,DSN=MON.FICHIER.MAN
//QSAMOUT DD DSN=&SYSUID..SMF30.TEMP1,DISP=(,CATLG,DELETE),
// RECFM=VBS,LRECL=32760,BLKSIZE=0,
// SPACE=(CYL,(5,5),RLSE),UNIT=3390
//SYSIN DD *
INDD(IN,OPTIONS(DUMP))
ABEND(NORETRY)
OUTDD(QSAMOUT,TYPE(30(4)))
//*
//STEP002 EXEC PGM=SORT
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=&SYSUID..SMF30.TEMP1,DISP=SHR
//SORTOUT DD DSN=&SYSUID..SMF30.TEMP2,DISP=(,CATLG,DELETE),
// RECFM=FB,LRECL=354,BLKSIZE=0,
// SPACE=(CYL,(5,5),RLSE),UNIT=3390
//SYSIN DD *
SORT FIELDS=COPY
OMIT COND=(5,2,CH,NE,X'DE1E')
OUTFIL FNAMES=SORTOUT,VTOF,OUTREC=(5,354),VLFILL=C' '
//* |
Partager