zOs/TX/PER17LOJ
//A540769L JOB (CP00,KE50), 00010001
// MSGCLASS=T,TIME=1440,
// NOTIFY=A540769
//*MAIN CLASS=LOG ,SYSTEM=S14
//S1 EXEC PGM=DSNUTILB,PARM='DBAF,A540769L.LOAD' 00020001
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//*YSTEMPL DD DSN=A540769.WK.LISTDEF(TEMPL),DISP=SHR
//INDUMMY DD DUMMY
//SYSIN DD *
TEMPLATE TIN
DSN('DBAF.DA540769.APER16.P00000.D120206.REC')
DISP(OLD,KEEP,KEEP)
LOAD DATA LOG NO INDDN(TIN)
RESUME NO REPLACE COPYDDN(TCOPYS)
STATISTICS INDEX(ALL) REPORT NO UPDATE ALL
FORMAT INTERNAL
WORKDDN(TSYUTS, TSOUTS)
INTO TABLE A540769.TPER16