JCL SORT

 

Secondary control statements
INCLUDE	Writing constants Numeric tests INLCUDE COND=(1,05,BI,EQ,NUM) Alphanumeric tests INLCUDE COND=(1,05,BI,EQ,MN) Substring search Allowable comparisons
OMIT	Writing constants Numeric tests Alphanumeric tests Substring search Allowable comparisons
SUM	Suppressing duplicate records Handling overflow :VLSHRT Handling overflow :NOVLSHRT
OUTREC	Inserting data Data translation Data conversion Editing numeric fields OUTREC FIELDS=(1,39,0,8,ZD,EDIT=(SII,III,IIT),SIGNS=(,-)) Converts the 8 digit ZD to M12 and displays sign only for negative values Arithmetic with numeric & constants Date operations Lookup and change Justifying data Squeezing data Reformatting records with OVERLAY,FINDREP,IFTHEN Extending records with OVERLAY Inserting sequence numbers
INREC	Inserting sequence numbers
OUTFIL	Creating multiple identical copies Selecting and sampling by RRN Including ,omitting records Saving discards Reformatting,repeating,splitting Creating reports Converting FBto VB and viceversa Updating counts and totals in trailer

 

TO SORT THE INPUT FILE	TO SORT THE INPUT FILE WITHOUT DUPLICATE
//STEP01    EXEC PGM=SORT //SYSPRINT  DD SYSOUT=* //SYSOUT    DD SYSOUT=* //SORTIN    DD DSN=WORK.FIRST.EMP.IN,                DISP=SHR //SORTOUT   DD DSN=WORK.FIRST.EMP.OUT,                DISP=SHR //SYSIN     DD *   SORT FIELDS=(11,5,CH,A) /* 11 à FROM POSITION 5  à SIZE OF THE FIELD CH àTYPE OF THE FIELD A  à TYPE OF SORT(ASC/DESC)	//STEP01    EXEC PGM=SORT //SYSPRINT  DD SYSOUT=* //SYSOUT    DD SYSOUT=* //SORTIN    DD DSN=WORK.FIRST.EMP.IN,                DISP=SHR //SORTOUT   DD DSN=WORK.FIRST.EMP.OUT,                DISP=SHR //SYSIN     DD *   SORT FIELDS=(11,5,CH,A)   SUM FIELDS=NONE /*

 

TO SORT THE INPUT FILE AND COPY DUPLICATES IN THIRD FILE	TO SORT THE INPUT FILE WITH SPECIFIC CONDITION
//STEP01    EXEC PGM=SORT //SYSPRINT  DD SYSOUT=* //SYSOUT    DD SYSOUT=* //SORTIN    DD DSN=WORK.FIRST.EMP.IN,                DISP=SHR //SORTOUT   DD DSN=WORK.FIRST.EMP.OUT,                DISP=SHR //SORTXSUM  DD DSN=WORK.FIRST.EMP.DUP,                DISP=SHR //SYSIN     DD *   SORT FIELDS=(11,5,CH,A)   SUM FIELDS=NONE,XSUM /*	//STEP01    EXEC PGM=SORT //SYSPRINT  DD SYSOUT=* //SYSOUT    DD SYSOUT=* //SORTIN    DD DSN=WORK.FIRST.EMP.IN,                DISP=SHR //SORTOUT   DD DSN=WORK.FIRST.EMP.OUT,                DISP=SHR //SYSIN     DD *   SORT FIELDS=COPY   INCLUDE COND=(20,4,CH,EQ,C’4000’) /*

 

TO SPLIT THE INPUT TO MULTIPLE OUTPUT FILES

//STEP01    EXEC PGM=SORT //SYSPRINT  DD SYSOUT=* //SYSOUT    DD SYSOUT=* //SORTIN    DD DSN=WORK.FIRST.EMP.IN,DISP=SHR               //SORTOF01  DD DSN=WORK.FIRST.EMP.F01,DISP=SHR //SORTOF02  DD DSN=WORK.FIRST.EMP.F02,DISP=SHR //SORTOF03  DD DSN=WORK.FIRST.EMP.F03,DISP=SHR //SYSIN     DD *   SORT FIELDS=COPY   OUTFIL FILES=01,INCLUDE=(20,4,CH,EQ,C’400’)   OUTFIL FILES=02,INCLUDE=(20,4,CH,EQ,C’400’)   OUTFIL FILES=03,INCLUDE=(20,4,CH,EQ,C’400’) /*