zOs/TX/REC01LOA

//A540769L  JOB (CP00,KE50),                                            00010001
//         MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
//         NOTIFY=A540769
//*MAIN CLASS=LOG
//S1       EXEC PGM=DSNUTILB,PARM='DP4G,A540769L.LOAD'                  00020001
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL  DD DSN=DP4G.DBAA.LISTDEF(TEMPL),DISP=SHR
//DDI1         DD *
1,LOAD DELIM LOGREP
2,LOAD DELIM LOGREP
3,LOAD DELIM LOGREP
//SYSIN    DD *
LOAD INDDN DDI1
--  LOG NO NOCOPYPEND
    LOG YES
--  RESUME YES
    RESUME NO REPLACE
    FORMAT DELIMITED
    WORKDDN(TSYUTS, TSOUTS)
    INTO TABLE QZ92CRT.TQXREC01
    (PA, TXT)