//SEARCH1 EXEC PGM=ISRSUPC,                                           *
//            PARM=(SRCHCMP,
//            'LNFMTO')
//NEWDD  DD DSN=HLQ.XYZ.JOBLIB,
//          DISP=SHR
//OUTDD  DD DSN=&&L01,
//          DISP=(NEW,PASS),UNIT=SYSDA,
//          SPACE=(13566,(50,100),RLSE),
//          DCB=(BLKSIZE=13566)
//SYSIN  DD *
SRCHFOR  ',CLASS='
SRCHFOR  ' CLASS='
/*
//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.OPC25K01.ERRLIST(+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)
/*