//*--------------------------------------------------------------------*
//* NACH JEDEM START VON OPC WIRD DIE NEUE DATEI HLQ..DRUCK.MLOG.CONT -*
//* NACH FEHLERN DURCHSUCHT. (DATASET - ETT)              A.KEáLER    -*
//*--------------------------------------------------------------------*
//SORT01   EXEC PGM=SORT
//SYSOUT   DD  SYSOUT=*
//SYSPRINT DD  SYSOUT=*
//SORTWK01 DD  UNIT=DISK,SPACE=(CYL,(5,5))
//SORTWK02 DD  UNIT=DISK,SPACE=(CYL,(5,5))
//SORTWK03 DD  UNIT=DISK,SPACE=(CYL,(5,5))
//SORTIN   DD  DSN=HLQ.DRUCK.MLOG.CONT(0),DISP=OLD
//SORTOUT  DD  DSN=HLQ.HLQ.DMI.MLOG.ERROR(+1),
//             UNIT=SYSDA,
//             DISP=(,CATLG),
//             SPACE=(TRK,(10,10),RLSE),
//             DCB=*.SORTIN
//SYSIN    DD  *
  SORT FIELDS=COPY
  INCLUDE COND=(21,8,CH,EQ,C'EQQE011E',OR,
                21,8,CH,EQ,C'EQQE011I',OR,
                21,8,CH,EQ,C'EQQM919E',OR,
                21,8,CH,EQ,C'EQQM919I')
  SUM FIELDS=NONE
  END
/*
//*--------------------------------------------------------------------*
//DRUCK    EXEC PGM=IEBGENER
//SYSPRINT DD  SYSOUT=*
//SYSIN    DD  DUMMY
//SYSUT1   DD  DSN=HLQ.SYSMOD.MLOG.ERROR,DISP=SHR
//         DD  DSN=HLQ.HLQ.DMI.MLOG.ERROR(+1),DISP=SHR
//SYSUT2   DD  SYSOUT=A,DEST=XXX9999,FCB=Q421
//*--------------------------------------------------------------------*