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 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54
| //* *------------------------------------*
//* * STEP : TRI0002 PROGRAM : SORT *
//* *------------------------------------*
//*
//TRI0002 EXEC PGM=SORT
//*
//SORTIN DD DSN=FICBPTES.TRI2,
// DISP=(SHR)
//SYSUT2 DD DSN=FICBPTES.TRI6,
// DISP=(,CATLG),
// LRECL=1000,
// RECFM=FB,
// DSORG=PS,
// AVGREC=M,
// SPACE=(1,(10,10),RLSE)
//SYSUT3 DD DSN=FICBPTES.TRI7,
// DISP=(,CATLG),
// LRECL=1000,
// RECFM=FB,
// DSORG=PS,
// AVGREC=M,
// SPACE=(1,(10,10),RLSE)
//SYSUT4 DD DSN=B100FE01,
// DISP=(,CATLG),
// LRECL=1000,
// RECFM=FB,
// DSORG=PS,
// AVGREC=M,
// SPACE=(1,(10,10),RLSE)
//*
//SYSIN DD *
//* SORT FIELDS=COPY
OPTION COPY
OUTFIL FNAMES=SYSUT2,OMIT=((332,8,CH,GE,C'20050101'),OR,
(332,8,CH,EQ,C' '),OR,
(332,8,CH,LE,C'20041231',AND,
340,2,CH,NE,C'ED',AND,
340,2,CH,NE,C'EA',AND,
340,2,CH,NE,C'EF',AND,
340,2,CH,NE,C'ER',AND,
340,2,CH,NE,C'ES',AND,
340,2,CH,NE,C'ET',AND,
340,2,CH,NE,C'IN'))
OUTFIL FNAMES=SYSUT3,INCLUDE=((3,2,CH,EQ,C'21',OR
3,2,CH,EQ,C'22'),AND,
((332,8,CH,NE,C' ',AND,
1,2,CH,EQ,C'CA'),OR,
(584,8,CH,LE,C'20090101',AND,
620,2,CH,EQ,C'ES')))
OUTFIL FNAMES=SYSUT4,SAVE
//*
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//* |
Partager