//SORT02   EXEC PGM=SORT
//SYSOUT   DD SYSOUT=*
//SORTIN   DD DSN=&&TRL,DISP=(OLD,DELETE)
//SORTOUT  DD DSN=&&TRLOG,
//            DISP=(,PASS),
//            UNIT=SYSDA,
//            SPACE=(CYL,(40,5),RLSE),
//            DCB=(RECFM=VB,LRECL=32000,BLKSIZE=32004,DSORG=PS)
//SYSIN    DD *
  SORT FIELDS=COPY
  INCLUDE COND=((10,2,CH,EQ,C'23',AND,          RECTYPE=23 STATUS
                 27,3,CH,EQ,C'JT ',AND,         USER=JOB TRACKING
                 (85,1,CH,EQ,C'C',OR,           STATUS=C
                  85,1,CH,EQ,C'E')),OR,         STATUS=E
                (10,2,CH,EQ,C'29',AND,          RECTYPE=29 EVENT
                 53,4,CH,EQ,C'1EQE',AND,        EQE-EVENT PROCESSED
                 86,3,CH,EQ,C'A3P'))            A3P-EVENT
  END
/*