//SORT1    EXEC PGM=SORT
//SYSOUT   DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SORTWK01 DD UNIT=DISK,SPACE=(CYL,(2,10))
//SORTWK02 DD UNIT=DISK,SPACE=(CYL,(2,10))
//SORTWK03 DD UNIT=DISK,SPACE=(CYL,(2,10))
//SORTIN   DD DSN=&&L01,DISP=(OLD,DELETE)
//SORTOUT  DD DSN=HLQ.DRUCK.OPC01.ERRORS(+1),
//          DISP=(NEW,CATLG,DELETE),UNIT=SYSDA,
//          SPACE=(13566,(50,100),RLSE),
//          DCB=(LRECL=133,BLKSIZE=13566)
//SYSIN    DD *
  SORT FIELDS=COPY
  OMIT COND=(1,25,CH,EQ,C'                         ',OR,
             34,1,CH,NE,C'0')
             OUTREC FIELDS=(C' HLQ.XYZ.JOBLIB_____',
                            C'  ',
                            C'MEMBER:',
                            C' ',
                            2,8,C'  ',
                            C'CLASS-PARAMETER FEHLT',
                            C'==>______________',
                            52X)
/*