//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=(001,3,BI,A,
              
              016,4,BI,A,
              
              399,4,BI,A,
              
              004,4,BI,A,
              
              008,4,BI,A,
              
              012,4,BI,A)
  INCLUDE COND=(1,3,BI,EQ,X'00842C'),
             
             OR,(1,3,BI,EQ,X'00843C'))
  END
//
NOTE: One can also use the command "OMIT", rather than "INCLUDE".
Return To JCLLIB