//SZ04SR1 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=SZ.SZ02.HL.GOOD.ITEM,DISP=OLD
//SORTOF01 DD DSN=SZ.SZ04SR1.GOOD.ITEM1,DISP=(,CATLG),
// UNIT=%%SYSWRK,SPACE=(CYL,(5,5),RLSE)
//SORTOF02 DD DSN=SZ.SZ04SR1.GOOD.ITEM2,DISP=(,CATLG),
// UNIT=%%SYSWRK,SPACE=(CYL,(5,5),RLSE)
//SORTOF03 DD DSN=SZ.SZ04SR1.GOOD.ITEM3,DISP=(,CATLG),
// UNIT=%%SYSWRK,SPACE=(CYL,(5,5),RLSE)
//SYSIN DD *
SORT FIELDS=(1,5,A,8,5,A,6,2,A,13,4,A),FORMAT=BI
OUTFIL FILES=01,INCLUDE=(6,2,PD,GE,100,AND,6,2,PD,LE,199)
OUTFIL FILES=02,INCLUDE=(6,2,PD,GE,200,AND,6,2,PD,LE,299)
OUTFIL FILES=03,INCLUDE=(6,2,PD,LT,100,OR,6,2,PD,GE,300)
//*
Subscribe to:
Post Comments (Atom)
No comments:
Post a Comment