zOs/JCL/T2
//YCARA400 JOB (CP00,KE50),
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBTF,YCARA400.LOAD'
//SYSMAP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC DD DUMMY
//SYSIN DD *
TEMPLATE TSYUTDS DSN('&SSID..&DB..&SN..&JO..SYSUT1')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
TEMPLATE TSOUTDS DSN('&SSID..&DB..&SN..&JO..SRTOUT')
DATACLAS(NULL12) MGMTCLAS(COM#E000)
SPACE(2000,2000) CYL UNCNT 59
LOAD DATA INDDN SYSREC LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
ENFORCE NO
EBCDIC CCSID(00500,00000,00000)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTDS,TSOUTDS)
INTO TABLE OA1T.TCT400A1