//SZ04SR2 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=SZ.SZ04SR1.GOOD.ITEM1,DISP=(OLD,DELETE)
//SORTOF01 DD DSN=SZ.SZ04SR1.GOOD.ITEM4,DISP=(,CATLG),
// UNIT=%%SYSWRK,SPACE=(CYL,(5,5),RLSE)
//SORTOF02 DD DSN=SZ.SZ04SR1.GOOD.ITEM5,DISP=(,CATLG),
// UNIT=%%SYSWRK,SPACE=(CYL,(5,5),RLSE)
//SYSIN DD *
SORT FIELDS=COPY
OUTFIL FILES=01,INCLUDE=(6,2,PD,EQ,150,OR,6,2,PD,EQ,159)
OUTFIL FILES=02,INCLUDE=(6,2,PD,NE,150,AND,6,2,PD,NE,159)
//*
Subscribe to:
Post Comments (Atom)
No comments:
Post a Comment