SORT JCL
Problem Description
Write JCL to sort a file by employee ID (positions 1-5).
Expected Output
Sorted output file created
Hints
Use SORT utility with FIELDS parameter.
Solution
//SORTJOB JOB (ACCT),'SORT FILE',CLASS=A
//*
//STEP01 EXEC PGM=SORT
//SORTIN DD DSN=MY.INPUT.FILE,DISP=SHR
//SORTOUT DD DSN=MY.SORTED.FILE,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(CYL,(10,5)),
// DCB=(RECFM=FB,LRECL=80)
//SYSOUT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=(1,5,CH,A)
/*
//
Explanation:
SORT FIELDS=(start,length,type,order). CH=character, A=ascending.