//SORT010  EXEC PGM=SORT
//SYSOUT   DD  SYSOUT=*
//SYSPRINT DD  SYSOUT=*
//SORTWK01 DD  UNIT=DISK,SPACE=(CYL,(2,1))
//SORTWK02 DD  UNIT=DISK,SPACE=(CYL,(2,1))
//SORTWK03 DD  UNIT=DISK,SPACE=(CYL,(2,1))
//SORTIN   DD  DSN=HLQ.ADMI.OPCK01,DISP=SHR
//SORTOUT  DD  DSN=HLQ.ADMI.OPCSUM.LIST(+1),
//             DISP=(,CATLG,DELETE),
//             UNIT=SYSDA,
//             SPACE=(CYL,(200,15),RLSE),
//             DCB=(LRECL=80,RECFM=FB,DSORG=PS)
//SYSIN    DD  *
  SORT FIELDS=(10,8,A,22,2,D,19,2,D,25,8,D),FORMAT=CH
  INCLUDE COND=(1,3,CH,EQ,C'JOB',AND,21,1,CH,EQ,C'.')
  OUTREC FIELDS=(1,72,8X)
  SUM FIELDS=NONE
  END
/*
//*--------------------------------------------------------------------*