//MYSORT01 JOB (ACCT01,ACCT02),'L-MCCABE',CLASS=I,
// MSGCLASS=X,NOTIFY=ME
/*ROUTE PRINT MyRMT
//*************************************************************
//JS0010 EXEC PGM=IEFBR14
//DD01 DD UNIT=SYSDA,DISP=(MOD,DELETE,DELETE),
// DSN=MY.SORT.OUT.DATA.SET,
// SPACE=(TRK,(0,0),RLSE)
//*************************************************************
//JS0020 EXEC PGM=SORT
//SORTIN DD DSN=MY.SORT.IN.DATA.SET,DISP=SHR
//SORTOUT DD UNIT=SYSDA,DISP=(,CATLG,DELETE),
// DSN=MY.SORT.OUT.DATA.SET,
// SPACE=(TRK,(5,5),RLSE)
//SORTWK01 DD UNIT=SYSDA,DISP=(,DELETE,DELETE),
// SPACE=(TRK,(10,10),,CONTIG)
//SORTWK02 DD UNIT=SYSDA,DISP=(,DELETE,DELETE),
// SPACE=(TRK,(10,10),,CONTIG)
//SORTWK03 DD UNIT=SYSDA,DISP=(,DELETE,DELETE),
// SPACE=(TRK,(10,10),,CONTIG)
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=(1,9,CH,A)
END
//
Return To JCLLIB