zOs/JCL/DB2LOAD3
//A540769U JOB (CAS25071,0000,,0000),'UNLOAD',
// MSGCLASS=T,TIME=1440,
// NOTIFY=A540769
//*MAIN CLASS=LOG
//S1 EXEC PGM=DSNUTILB,PARM='DBAF,A540769L.LOAD' 00020001
//SYSMAP DD SYSOUT=*
//SYSUT1 DD DISP=(,PASS),UNIT=SYSDA
//SORTOUT DD DISP=(,PASS),UNIT=SYSDA
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
TEMPLATE U4139786
DSN('SHR21.DIV.P021.WKDSN.NG02A1P.A040A.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN U4139786 LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
EBCDIC CCSID(00500,00000,00000)
INTO TABLE "OA1A"."TNG040A1"
WHEN(00001:00002) = X'003E'
( "NG040001"
POSITION( 00003:00018) CHAR(00016)
, "NG040010"
POSITION( 00019:00044) TIMESTAMP EXTERNAL
, "NG040011"
POSITION( 00045:00070) TIMESTAMP EXTERNAL
, "NG040012"
POSITION( 00071:00096) TIMESTAMP EXTERNAL
, "NG040013"
POSITION( 00097:00122) TIMESTAMP EXTERNAL
, "NG040014"
POSITION( 00123:00130) CHAR(00008)
, "NG040020"
POSITION( 00131:00134) CHAR(00004)
, "NG040021"
POSITION( 00135:00138) CHAR(00004)
, "NG040022"
POSITION( 00139:00142) CHAR(00004)
, "NG040023"
POSITION( 00143:00168) CHAR(00026)
, "NG040024"
POSITION( 00169:00194) CHAR(00026)
)
TEMPLATE U5673034
DSN('SHR21.DIV.P021.WKDSN.NG02A1P.A046A.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN U5673034 LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
EBCDIC CCSID(00500,00000,00000)
INTO TABLE "OA1A"."TNG046A1"
WHEN(00001:00002) = X'002E'
( "NG046001"
POSITION( 00003:00018) CHAR(00016)
, "NG046010"
POSITION( 00019:00044) TIMESTAMP EXTERNAL
, "NG046011"
POSITION( 00045:00070) TIMESTAMP EXTERNAL
, "NG046012"
POSITION( 00071:00096) TIMESTAMP EXTERNAL
, "NG046013"
POSITION( 00097:00122) TIMESTAMP EXTERNAL
, "NG046014"
POSITION( 00123:00130) CHAR(00008)
, "NG046020"
POSITION( 00131:00134) CHAR(00004)
, "NG046021"
POSITION( 00135:00138) CHAR(00004)
, "NG046022"
POSITION( 00139:00140) SMALLINT
, "NG046023"
POSITION( 00141:00142) SMALLINT
, "NG046024"
POSITION( 00143:00262) CHAR(00120)
)
TEMPLATE U4684672
DSN('SHR21.DIV.P021.WKDSN.NG02A1P.A047A.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN U4684672 LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
EBCDIC CCSID(00500,00000,00000)
INTO TABLE "OA1A"."TNG047A1"
WHEN(00001:00002) = X'002F'
( "NG047001"
POSITION( 00003:00018) CHAR(00016)
, "NG047002"
POSITION( 00019:00034) CHAR(00016)
, "NG047010"
POSITION( 00035:00060) TIMESTAMP EXTERNAL
, "NG047011"
POSITION( 00061:00086) TIMESTAMP EXTERNAL
, "NG047012"
POSITION( 00087:00112) TIMESTAMP EXTERNAL
, "NG047013"
POSITION( 00113:00138) TIMESTAMP EXTERNAL
, "NG047014"
POSITION( 00139:00146) CHAR(00008)
, "NG047020"
POSITION( 00147:00150) CHAR(00004)
, "NG047021"
POSITION( 00151:00154) CHAR(00004)
, "NG047022"
POSITION( 00155:00156) SMALLINT
, "NG047023"
POSITION( 00157:00158) SMALLINT
, "NG047024"
POSITION( 00159:00278) CHAR(00120)
)
TEMPLATE U6047874
DSN('SHR21.DIV.P021.WKDSN.NG02A1P.A049A.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN U6047874 LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
EBCDIC CCSID(00500,00000,00000)
INTO TABLE "OA1A"."TNG049A1"
WHEN(00001:00002) = X'003F'
( "NG049001"
POSITION( 00003:00018) CHAR(00016)
, "NG049002"
POSITION( 00019:00022) CHAR(00004)
, "NG049010"
POSITION( 00023:00048) TIMESTAMP EXTERNAL
, "NG049011"
POSITION( 00049:00074) TIMESTAMP EXTERNAL
, "NG049012"
POSITION( 00075:00100) TIMESTAMP EXTERNAL
, "NG049013"
POSITION( 00101:00126) TIMESTAMP EXTERNAL
, "NG049014"
POSITION( 00127:00134) CHAR(00008)
, "NG049020"
POSITION( 00135:00138) CHAR(00004)
, "NG049021"
POSITION( 00139:00142) CHAR(00004)
)
TEMPLATE U1086789
DSN('SHR21.DIV.P021.WKDSN.NG02A1P.A207A.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN U1086789 LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
EBCDIC CCSID(00500,00000,00000)
INTO TABLE "OA1A"."TNG207A1"
WHEN(00001:00002) = X'0020'
( "NG207001"
POSITION( 00003:00018) CHAR(00016)
, "NG207010"
POSITION( 00019:00044) TIMESTAMP EXTERNAL
, "NG207011"
POSITION( 00045:00070) TIMESTAMP EXTERNAL
, "NG207012"
POSITION( 00071:00096) TIMESTAMP EXTERNAL
, "NG207013"
POSITION( 00097:00122) TIMESTAMP EXTERNAL
, "NG207014"
POSITION( 00123:00130) CHAR(00008)
, "NG207015"
POSITION( 00131:00134) CHAR(00004)
, "NG207016"
POSITION( 00135:00138) CHAR(00004)
, "NG207017"
POSITION( 00139:00139) CHAR(00001)
, "NG207018"
POSITION( 00140:00143) CHAR(00004)
)
TEMPLATE U4625228
DSN('SHR21.DIV.P021.WKDSN.NG02A1P.A240A.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN U4625228 LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
EBCDIC CCSID(00500,00000,00000)
INTO TABLE "OA1A"."TNG240A1"
WHEN(00001:00002) = X'0044'
( "NG240001"
POSITION( 00003:00018) CHAR(00016)
, "NG240010"
POSITION( 00019:00044) TIMESTAMP EXTERNAL
, "NG240011"
POSITION( 00045:00070) TIMESTAMP EXTERNAL
, "NG240012"
POSITION( 00071:00096) TIMESTAMP EXTERNAL
, "NG240013"
POSITION( 00097:00122) TIMESTAMP EXTERNAL
, "NG240014"
POSITION( 00123:00130) CHAR(00008)
, "NG240015"
POSITION( 00131:00134) CHAR(00004)
, "NG240016"
POSITION( 00135:00138) INTEGER
, "NG240017"
POSITION( 00139:00142) CHAR(00004)
, "NG240018"
POSITION( 00143:00146) CHAR(00004)
, "NG240019"
POSITION( 00147:00172) CHAR(00026)
, "NG240020"
POSITION( 00173:00198) CHAR(00026)
)
TEMPLATE U5527941
DSN('SHR21.DIV.P021.WKDSN.NG02A1P.A249A.UNL')
DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN U5527941 LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
EBCDIC CCSID(00500,00000,00000)
INTO TABLE "OA1A"."TNG249A1"
WHEN(00001:00002) = X'0029'
( "NG249001"
POSITION( 00003:00018) CHAR(00016)
, "NG249010"
POSITION( 00019:00044) TIMESTAMP EXTERNAL
, "NG249011"
POSITION( 00045:00070) TIMESTAMP EXTERNAL
, "NG249012"
POSITION( 00071:00096) TIMESTAMP EXTERNAL
, "NG249013"
POSITION( 00097:00122) TIMESTAMP EXTERNAL
, "NG249014"
POSITION( 00123:00130) CHAR(00008)
, "NG249015"
POSITION( 00131:00134) CHAR(00004)
, "NG249016"
POSITION( 00135:00138) CHAR(00004)
, "NG249017"
POSITION( 00139:00139) CHAR(00001)
, "NG249018"
POSITION( 00140:00140) CHAR(00001)
)