- JCL for SORT
//URMISPLT EXEC PGM=SORT //SORTIN DD DSN=MYDATA.URMI.FILEIN,DISP=SHR //SORTOF01 DD DSN=MYDATA.URMI.FILEOUT1, // DISP=(NEW,CATLG,DELETE), // RECFM=FB,LRECL=50 //SORTOF02 DD DSN=MYDATA.URMI.FILEOUT2, // DISP=(NEW,CATLG,DELETE), // RECFM=FB,LRECL=50 //SORTOF03 DD DSN=MYDATA.URMI.FILEOUT3, // DISP=(NEW,CATLG,DELETE), // RECFM=FB,LRECL=50 //SYSPRINT DD SYSOUT=* //SYSOUT DD SYSOUT=* //SYSUDUMP DD SYSOUT=* //SYSIN DD * SORT FIELDS=COPY OUTFIL FILES=01,ENDREC=100 //*assuming input file has 300 records. OUTFIL FILES=02,STARTREC=101,ENDREC=200 OUTFIL FILES=03,STARTREC=201 //*
Also read
2 thoughts
Comments are closed.