zOs/JCL/TT

//YCARA340  JOB (CP00,KE50),
//         MSGCLASS=T,TIME=1440,
//         NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//S1       EXEC PGM=DSNUTILB,PARM='DBAF,YCARA340.LOAD'
//SYSMAP   DD SYSOUT=*
//SYSERR   DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL  DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC    DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT340.ET
//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 OA1A.TCT340A1
-- LOAD DATA RESUME YES INTO TABLE "OA1A"."TCT340A1"
(I_BLNCE_RP  POSITION (1) CHAR  (20) ,
 D_TIME_CREATED POSITION (21) TIMESTAMP EXTERNAL  (26) ,
 I_ID_CREATOR POSITION (47) CHAR  (20) ,
 D_TIME_MODIFIED POSITION (67) TIMESTAMP EXTERNAL  (26) ,
 I_ID_MODIFIER POSITION (93) CHAR  (20) ,
 D_EFFECTIVE POSITION (113) DATE EXTERNAL  (10) ,
 D_END POSITION (123) DATE EXTERNAL  (10) ,
 I_BLNCE_RP_T POSITION (133) CHAR  (5) ,
 I_BLNCE_1 POSITION (138) CHAR  (20) ,
 F_BLNCE_1_ARCHVD POSITION (158) INTEGER ,
 I_BLNCE_2 POSITION (162) CHAR  (20) ,
 F_BLNCE_2_ARCHVD POSITION (182) INTEGER )