zOs/REXX/ELCOMALO
$<~WK.REXX(ELCOMATB) $>.jclSub()
$@[
$=c=0
$=date=D2010014
$@for li $@[
parse upper value $li with c1 oTs c2 otb .
if c1 <> 'TS' | c2 <> 'TB' | otb = '' | ots = '' then
call err 'bad line' $li
$=c=-$c+1
$** if $c > 2 then leave $** für kurze Tests
$=jc=-'//*'
oTs = overlay('P', oTs, 7)
oTb = overlay('P', oTb, 4)
nTs = overlay('T', oTs, 7)'C4'
nTb = overlay('T', left(oTb, 6), 4)'EL' ,
|| substr(oTb, 7, length(oTb)-8)'C4'
$=oTs=-oTs
$=oSn=-substr(oTs, pos('.', oTs)+1)
$=oTb=-oTb
$=nTs=-nTs
$=nTb=-nTb
say $c 'old' ots ' in' oTb 'new' nts 'in' nTb
if $oSn = 'A860A' then do
say 'skipping' oTs
iterate
end
if $c = 1 then $@=[
//A540769L JOB (CP00,KE50),
// 'CATALOG',MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
${jc}MAIN CLASS=LOG
$jc
$jc load
$jc **************************************************
//STEP1 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DBTF,'A540769L.LOAD'),
// REGION=0M
$jc DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
$]
$@=[
TEMPLATE TSREC$c DSN('A540769.TMPUL.$oSn.$date.UNLOAD')
DATACLAS (NULL30) MGMTCLAS(COM#E005)
SPACE (1000,1250) CYL
$=pun=A540769.TMPUL.$oSn.$date.UNLPUN
LOAD DATA LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS INDEX(ALL) REPORT NO UPDATE ALL
EBCDIC CCSID(00500,00000,00000)
INDDN TSREC$c
SORTKEYS
-- ENFORCE NO
SORTDEVT DISK
SORTNUM 160
WORKDDN(TSYUTD,TSOUTD)
INTO TABLE $nTb
$]
$=st=0
$;
$<$pun $@for pu $@[
if pos('INTO', $pu) > 0 then do
if $st=0 then
$=st=1
else
call err 'second into' strip($pu)
end
else if abbrev(strip($pu), '(') then do
if $st \= 1 then
call err 'bad ( in' strip($pu)
$=st=2
if abbrev(strip($pu), '( "DSN_IDENTITY"') > 0 then do
say 'old???' $pu
if $oSn \= 'A863A' then
call err 'bad oSn' $oSn 'for' strip($pu)
$=pu =- '( "KS863001"' substr($pu, pos('(', $pu)+18)
say 'new???' $pu
end
end
else if abbrev(strip($pu), ')') then do
if $st = 2 then
$=st=3
else
call err 'bad ) in' strip($pu)
end
if $st >= 2 then
$$ $pu
if $st >= 3 then
leave
$]
$]
$]
$#out 20100114 16:45:45
$#out 20100114 16:45:02
//A540769L JOB (CP00,KE50),
// 'CATALOG',MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG
//*
//* load
//* **************************************************
//STEP1 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DBTF,'A540769L.LOAD'),
// REGION=0M
//* DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
TEMPLATE TSREC1 DSN('A540769.TMPUL.A831A.D2010014.UNLOAD')
DATACLAS (NULL30) MGMTCLAS(COM#E005)
SPACE (1000,1250) CYL
LOAD DATA LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS INDEX(ALL) REPORT NO UPDATE ALL
EBCDIC CCSID(00500,00000,00000)
INDDN TSREC1
SORTKEYS
-- ENFORCE NO
SORTDEVT DISK
SORTNUM 160
WORKDDN(TSYUTD,TSOUTD)
INTO TABLE OA1T.TELKS831C4
( "KS831010"
POSITION( 00003:00022) CHAR(00020)
, "KS831020"
POSITION( 00023:00042) CHAR(00020)
, "KS831030"
POSITION( 00043:00046) CHAR(00004)
, "KS831040"
POSITION( 00047:00081) CHAR(00035)
, "KS831050"
POSITION( 00082:00086) CHAR(00005)
, "KS831060"
POSITION( 00087:00226) CHAR(00140)
, "KS831070"
POSITION( 00227:00228) CHAR(00002)
, "KS831080"
POSITION( 00229:00238) DATE EXTERNAL
, "KS831090"
POSITION( 00239:00248) DATE EXTERNAL
, "KS831100"
POSITION( 00249:00258) DATE EXTERNAL
, "KS831110"
POSITION( 00259:00268) DATE EXTERNAL
, "KS831120"
POSITION( 00269:00294) TIMESTAMP EXTERNAL
, "KS831130"
POSITION( 00295:00304) CHAR(00010)
, "KS831140"
POSITION( 00305:00330) TIMESTAMP EXTERNAL
, "KS831150"
POSITION( 00331:00333) CHAR(00003)
, "KS831160"
POSITION( 00334:00336) CHAR(00003)
, "KS831170"
POSITION( 00337:00339) CHAR(00003)
)
TEMPLATE TSREC2 DSN('A540769.TMPUL.A832A.D2010014.UNLOAD')
DATACLAS (NULL30) MGMTCLAS(COM#E005)
SPACE (1000,1250) CYL
LOAD DATA LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS INDEX(ALL) REPORT NO UPDATE ALL
EBCDIC CCSID(00500,00000,00000)
INDDN TSREC2
SORTKEYS
-- ENFORCE NO
SORTDEVT DISK
SORTNUM 160
WORKDDN(TSYUTD,TSOUTD)
INTO TABLE OA1T.TELKS832C4
( "KS832010"
POSITION( 00003:00022) CHAR(00020)
, "KS832020"
POSITION( 00023:00042) CHAR(00020)
, "KS832030"
POSITION( 00043:00046) CHAR(00004)
, "KS832040"
POSITION( 00047:00050) INTEGER
, "KS832050"
POSITION( 00051:00190) CHAR(00140)
, "KS832060"
POSITION( 00191:00192) CHAR(00002)
, "KS832070"
POSITION( 00193:00202) DATE EXTERNAL
, "KS832080"
POSITION( 00203:00212) DATE EXTERNAL
, "KS832090"
POSITION( 00213:00222) DATE EXTERNAL
, "KS832100"
POSITION( 00223:00232) DATE EXTERNAL
, "KS832110"
POSITION( 00233:00258) TIMESTAMP EXTERNAL
, "KS832120"
POSITION( 00259:00268) CHAR(00010)
, "KS832130"
POSITION( 00269:00294) TIMESTAMP EXTERNAL
)
TEMPLATE TSREC3 DSN('A540769.TMPUL.A833A.D2010014.UNLOAD')
DATACLAS (NULL30) MGMTCLAS(COM#E005)
SPACE (1000,1250) CYL
LOAD DATA LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS INDEX(ALL) REPORT NO UPDATE ALL
EBCDIC CCSID(00500,00000,00000)
INDDN TSREC3
SORTKEYS
-- ENFORCE NO
SORTDEVT DISK
SORTNUM 160
WORKDDN(TSYUTD,TSOUTD)
INTO TABLE OA1T.TELKS833C4
( "KS833010"
POSITION( 00003:00022) CHAR(00020)
, "KS833020"
POSITION( 00023:00042) CHAR(00020)
, "KS833030"
POSITION( 00043:00046) INTEGER
, "KS833040"
POSITION( 00047:00050) CHAR(00004)
, "KS833050"
POSITION( 00051:00054) CHAR(00004)
, "KS833060"
POSITION( 00055:00074) CHAR(00020)
, "KS833070"
POSITION( 00075:00078) INTEGER
, "KS833080"
POSITION( 00079:00080) CHAR(00002)
, "KS833090"
POSITION( 00081:00090) DATE EXTERNAL
, "KS833100"
POSITION( 00091:00100) DATE EXTERNAL
, "KS833110"
POSITION( 00101:00110) DATE EXTERNAL
, "KS833120"
POSITION( 00111:00120) DATE EXTERNAL
, "KS833130"
POSITION( 00121:00146) TIMESTAMP EXTERNAL
, "KS833140"
POSITION( 00147:00156) CHAR(00010)
, "KS833150"
POSITION( 00157:00182) TIMESTAMP EXTERNAL
, "KS833160"
POSITION( 00183:00322) CHAR(00140)
)
TEMPLATE TSREC4 DSN('A540769.TMPUL.A835A.D2010014.UNLOAD')
DATACLAS (NULL30) MGMTCLAS(COM#E005)
SPACE (1000,1250) CYL
LOAD DATA LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS INDEX(ALL) REPORT NO UPDATE ALL
EBCDIC CCSID(00500,00000,00000)
INDDN TSREC4
SORTKEYS
-- ENFORCE NO
SORTDEVT DISK
SORTNUM 160
WORKDDN(TSYUTD,TSOUTD)
INTO TABLE OA1T.TELKS835C4
( "KS835010"
POSITION( 00003:00022) CHAR(00020)
, "KS835020"
POSITION( 00023:00042) CHAR(00020)
, "KS835030"
POSITION( 00043:00062) CHAR(00020)
, "KS835040"
POSITION( 00063:00066) INTEGER
, "KS835050"
POSITION( 00067:00086) CHAR(00020)
, "KS835060"
POSITION( 00087:00090) CHAR(00004)
, "KS835070"
POSITION( 00091:00110) CHAR(00020)
, "KS835080"
POSITION( 00111:00130) CHAR(00020)
, "KS835090"
POSITION( 00131:00270) CHAR(00140)
, "KS835100"
POSITION( 00271:00272) CHAR(00002)
, "KS835110"
POSITION( 00273:00282) DATE EXTERNAL
, "KS835120"
POSITION( 00283:00292) DATE EXTERNAL
, "KS835130"
POSITION( 00293:00302) DATE EXTERNAL
, "KS835140"
POSITION( 00303:00312) DATE EXTERNAL
, "KS835150"
POSITION( 00313:00338) TIMESTAMP EXTERNAL
, "KS835160"
POSITION( 00339:00348) CHAR(00010)
, "KS835170"
POSITION( 00349:00374) TIMESTAMP EXTERNAL
)
TEMPLATE TSREC5 DSN('A540769.TMPUL.A836A.D2010014.UNLOAD')
DATACLAS (NULL30) MGMTCLAS(COM#E005)
SPACE (1000,1250) CYL
LOAD DATA LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS INDEX(ALL) REPORT NO UPDATE ALL
EBCDIC CCSID(00500,00000,00000)
INDDN TSREC5
SORTKEYS
-- ENFORCE NO
SORTDEVT DISK
SORTNUM 160
WORKDDN(TSYUTD,TSOUTD)
INTO TABLE OA1T.TELKS836C4
( "KS836010"
POSITION( 00003:00022) CHAR(00020)
, "KS836020"
POSITION( 00023:00026) CHAR(00004)
, "KS836030"
POSITION( 00027:00046) CHAR(00020)
, "KS836040"
POSITION( 00047:00066) CHAR(00020)
, "KS836050"
POSITION( 00067:00070) INTEGER
, "KS836060"
POSITION( 00071:00078) DECIMAL
, "KS836070"
POSITION( 00079:00082) INTEGER
, "KS836080"
POSITION( 00083:00083) CHAR(00001)
, "KS836090"
POSITION( 00084:00085) CHAR(00002)
, "KS836100"
POSITION( 00086:00095) DATE EXTERNAL
, "KS836110"
POSITION( 00096:00105) DATE EXTERNAL
, "KS836120"
POSITION( 00106:00115) DATE EXTERNAL
, "KS836130"
POSITION( 00116:00125) DATE EXTERNAL
, "KS836140"
POSITION( 00126:00151) TIMESTAMP EXTERNAL
, "KS836150"
POSITION( 00152:00161) CHAR(00010)
, "KS836160"
POSITION( 00162:00187) TIMESTAMP EXTERNAL
)
TEMPLATE TSREC6 DSN('A540769.TMPUL.A837A.D2010014.UNLOAD')
DATACLAS (NULL30) MGMTCLAS(COM#E005)
SPACE (1000,1250) CYL
LOAD DATA LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS INDEX(ALL) REPORT NO UPDATE ALL
EBCDIC CCSID(00500,00000,00000)
INDDN TSREC6
SORTKEYS
-- ENFORCE NO
SORTDEVT DISK
SORTNUM 160
WORKDDN(TSYUTD,TSOUTD)
INTO TABLE OA1T.TELKS837C4
( "KS837010"
POSITION( 00003:00022) CHAR(00020)
, "KS837020"
POSITION( 00023:00026) CHAR(00004)
, "KS837030"
POSITION( 00027:00030) CHAR(00004)
, "KS837040"
POSITION( 00031:00035) CHAR(00005)
, "KS837050"
POSITION( 00036:00037) CHAR(00002)
, "KS837060"
POSITION( 00038:00047) DATE EXTERNAL
, "KS837070"
POSITION( 00048:00057) DATE EXTERNAL
, "KS837080"
POSITION( 00058:00067) DATE EXTERNAL
, "KS837090"
POSITION( 00068:00077) DATE EXTERNAL
, "KS837100"
POSITION( 00078:00103) TIMESTAMP EXTERNAL
, "KS837110"
POSITION( 00104:00113) CHAR(00010)
, "KS837120"
POSITION( 00114:00139) TIMESTAMP EXTERNAL
)
TEMPLATE TSREC7 DSN('A540769.TMPUL.A838A.D2010014.UNLOAD')
DATACLAS (NULL30) MGMTCLAS(COM#E005)
SPACE (1000,1250) CYL
LOAD DATA LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS INDEX(ALL) REPORT NO UPDATE ALL
EBCDIC CCSID(00500,00000,00000)
INDDN TSREC7
SORTKEYS
-- ENFORCE NO
SORTDEVT DISK
SORTNUM 160
WORKDDN(TSYUTD,TSOUTD)
INTO TABLE OA1T.TELKS838C4
( "KS838010"
POSITION( 00003:00022) CHAR(00020)
, "KS838020"
POSITION( 00023:00042) CHAR(00020)
, "KS838030"
POSITION( 00043:00062) CHAR(00020)
, "KS838040"
POSITION( 00063:00066) INTEGER
, "KS838050"
POSITION( 00067:00086) CHAR(00020)
, "KS838060"
POSITION( 00087:00090) CHAR(00004)
, "KS838070"
POSITION( 00091:00094) INTEGER
, "KS838080"
POSITION( 00095:00104) CHAR(00010)
, "KS838090"
POSITION( 00105:00130) TIMESTAMP EXTERNAL
, "KS838100"
POSITION( 00131:00132) CHAR(00002)
, "KS838150"
POSITION( 00133:00158) TIMESTAMP EXTERNAL
, "KS838160"
POSITION( 00159:00168) CHAR(00010)
, "KS838170"
POSITION( 00169:00194) TIMESTAMP EXTERNAL
)
TEMPLATE TSREC8 DSN('A540769.TMPUL.A839A.D2010014.UNLOAD')
DATACLAS (NULL30) MGMTCLAS(COM#E005)
SPACE (1000,1250) CYL
LOAD DATA LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS INDEX(ALL) REPORT NO UPDATE ALL
EBCDIC CCSID(00500,00000,00000)
INDDN TSREC8
SORTKEYS
-- ENFORCE NO
SORTDEVT DISK
SORTNUM 160
WORKDDN(TSYUTD,TSOUTD)
INTO TABLE OA1T.TELKS839C4
( "KS839010"
POSITION( 00003:00022) CHAR(00020)
, "KS839020"
POSITION( 00023:00026) INTEGER
, "KS839030"
POSITION( 00027:00046) CHAR(00020)
, "KS839040"
POSITION( 00047:00066) CHAR(00020)
, "KS839050"
POSITION( 00067:00070) INTEGER
, "KS839060"
POSITION( 00071:00090) CHAR(00020)
, "KS839070"
POSITION( 00091:00116) TIMESTAMP EXTERNAL
, "KS839080"
POSITION( 00117:00126) CHAR(00010)
, "KS839090"
POSITION( 00127:00152) TIMESTAMP EXTERNAL
, "KS839100"
POSITION( 00153:00160) CHAR(00008)
, "KS839110"
POSITION( 00161:00414) CHAR(00254)
)
TEMPLATE TSREC9 DSN('A540769.TMPUL.A840A.D2010014.UNLOAD')
DATACLAS (NULL30) MGMTCLAS(COM#E005)
SPACE (1000,1250) CYL
LOAD DATA LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS INDEX(ALL) REPORT NO UPDATE ALL
EBCDIC CCSID(00500,00000,00000)
INDDN TSREC9
SORTKEYS
-- ENFORCE NO
SORTDEVT DISK
SORTNUM 160
WORKDDN(TSYUTD,TSOUTD)
INTO TABLE OA1T.TELKS840C4
( "KS840001"
POSITION( 00003:00022) CHAR(00020)
, "KS840002"
POSITION( 00023:00042) CHAR(00020)
, "KS840003"
POSITION( 00043:00046) INTEGER
, "KS840004"
POSITION( 00047:00050) INTEGER
, "KS840005"
POSITION( 00051:00070) CHAR(00020)
, "KS840006"
POSITION( 00071:00090) CHAR(00020)
, "KS840007"
POSITION( 00091:00110) CHAR(00020)
, "KS840008"
POSITION( 00111:00114) CHAR(00004)
, "KS840009"
POSITION( 00115:00124) DATE EXTERNAL
, "KS840010"
POSITION( 00125:00134) DATE EXTERNAL
, "KS840011"
POSITION( 00135:00144) CHAR(00010)
, "KS840012"
POSITION( 00145:00284) CHAR(00140)
, "KS840013"
POSITION( 00285:00310) TIMESTAMP EXTERNAL
)
TEMPLATE TSREC10 DSN('A540769.TMPUL.A841A.D2010014.UNLOAD')
DATACLAS (NULL30) MGMTCLAS(COM#E005)
SPACE (1000,1250) CYL
LOAD DATA LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS INDEX(ALL) REPORT NO UPDATE ALL
EBCDIC CCSID(00500,00000,00000)
INDDN TSREC10
SORTKEYS
-- ENFORCE NO
SORTDEVT DISK
SORTNUM 160
WORKDDN(TSYUTD,TSOUTD)
INTO TABLE OA1T.TELKS841C4
( "KS841001"
POSITION( 00003:00028) TIMESTAMP EXTERNAL
, "KS841002"
POSITION( 00029:00048) CHAR(00020)
, "KS841003"
POSITION( 00049:00052) INTEGER
, "KS841004"
POSITION( 00053:00056) INTEGER
, "KS841005"
POSITION( 00057:00060) CHAR(00004)
, "KS841006"
POSITION( 00061:00070) CHAR(00010)
, "KS841009"
POSITION( 00071:00078) CHAR(00008)
, "KS841010"
POSITION( 00079:00086) CHAR(00008)
, "KS841007"
POSITION( 00087:00094) CHAR(00008)
, "KS841008"
POSITION( 00095:03996) VARCHAR
)
TEMPLATE TSREC11 DSN('A540769.TMPUL.A843A.D2010014.UNLOAD')
DATACLAS (NULL30) MGMTCLAS(COM#E005)
SPACE (1000,1250) CYL
LOAD DATA LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS INDEX(ALL) REPORT NO UPDATE ALL
EBCDIC CCSID(00500,00000,00000)
INDDN TSREC11
SORTKEYS
-- ENFORCE NO
SORTDEVT DISK
SORTNUM 160
WORKDDN(TSYUTD,TSOUTD)
INTO TABLE OA1T.TELKS843C4
( "KS843010"
POSITION( 00003:00022) CHAR(00020)
, "KS843020"
POSITION( 00023:00026) CHAR(00004)
, "KS843030"
POSITION( 00027:00029) CHAR(00003)
, "KS843040"
POSITION( 00030:00049) CHAR(00020)
, "KS843050"
POSITION( 00050:00052) DECIMAL
, "KS843060"
POSITION( 00053:00132) CHAR(00080)
, "KS843070"
POSITION( 00133:00162) CHAR(00030)
, "KS843080"
POSITION( 00163:00188) TIMESTAMP EXTERNAL
, "KS843090"
POSITION( 00189:00198) CHAR(00010)
, "KS843100"
POSITION( 00199:00224) TIMESTAMP EXTERNAL
, "KS843110"
POSITION( 00225:00228) CHAR(00004)
, "KS843120"
POSITION( 00229:00232) INTEGER
, "KS843130"
POSITION( 00233:00236) INTEGER
)
TEMPLATE TSREC12 DSN('A540769.TMPUL.A845A.D2010014.UNLOAD')
DATACLAS (NULL30) MGMTCLAS(COM#E005)
SPACE (1000,1250) CYL
LOAD DATA LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS INDEX(ALL) REPORT NO UPDATE ALL
EBCDIC CCSID(00500,00000,00000)
INDDN TSREC12
SORTKEYS
-- ENFORCE NO
SORTDEVT DISK
SORTNUM 160
WORKDDN(TSYUTD,TSOUTD)
INTO TABLE OA1T.TELKS845C4
( "KS845001"
POSITION( 00003:00009) CHAR(00007)
, "KS845002"
POSITION( 00010:00029) CHAR(00020)
, "KS845003"
POSITION( 00030:00049) CHAR(00020)
, "KS845004"
POSITION( 00050:00069) CHAR(00020)
, "KS845005"
POSITION( 00070:00079) DATE EXTERNAL
, "KS845006"
POSITION( 00080:00089) DATE EXTERNAL
, "KS845007"
POSITION( 00090:00115) TIMESTAMP EXTERNAL
, "KS845008"
POSITION( 00116:00125) CHAR(00010)
, "KS845009"
POSITION( 00126:00151) TIMESTAMP EXTERNAL
)
TEMPLATE TSREC13 DSN('A540769.TMPUL.A846A.D2010014.UNLOAD')
DATACLAS (NULL30) MGMTCLAS(COM#E005)
SPACE (1000,1250) CYL
LOAD DATA LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS INDEX(ALL) REPORT NO UPDATE ALL
EBCDIC CCSID(00500,00000,00000)
INDDN TSREC13
SORTKEYS
-- ENFORCE NO
SORTDEVT DISK
SORTNUM 160
WORKDDN(TSYUTD,TSOUTD)
INTO TABLE OA1T.TELKS846C4
( "KS846001"
POSITION( 00003:00006) INTEGER
, "KS846002"
POSITION( 00007:00026) CHAR(00020)
, "KS846003"
POSITION( 00027:00028) CHAR(00002)
, "KS846004"
POSITION( 00029:00054) TIMESTAMP EXTERNAL
, "KS846005"
POSITION( 00055:00064) CHAR(00010)
, "KS846006"
POSITION( 00065:00074) CHAR(00010)
, "KS846007"
POSITION( 00075:00084) DATE EXTERNAL
, "KS846008"
POSITION( 00085:00130) CHAR(00046)
, "KS846009"
POSITION( 00131:00134) INTEGER
, "KS846010"
POSITION( 00135:00160) TIMESTAMP EXTERNAL
, "KS846011"
POSITION( 00161:00170) CHAR(00010)
, "KS846012"
POSITION( 00171:00196) TIMESTAMP EXTERNAL
, "KS846013"
POSITION( 00197:00204) CHAR(00008)
, "KS846014"
POSITION( 00205:04104) VARCHAR
)
TEMPLATE TSREC14 DSN('A540769.TMPUL.A847A.D2010014.UNLOAD')
DATACLAS (NULL30) MGMTCLAS(COM#E005)
SPACE (1000,1250) CYL
LOAD DATA LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS INDEX(ALL) REPORT NO UPDATE ALL
EBCDIC CCSID(00500,00000,00000)
INDDN TSREC14
SORTKEYS
-- ENFORCE NO
SORTDEVT DISK
SORTNUM 160
WORKDDN(TSYUTD,TSOUTD)
INTO TABLE OA1T.TELKS847C4
( "KS847001"
POSITION( 00003:00005) CHAR(00003)
, "KS847002"
POSITION( 00006:00009) CHAR(00004)
, "KS847003"
POSITION( 00010:00013) INTEGER
, "KS847004"
POSITION( 00014:00017) CHAR(00004)
, "KS847005"
POSITION( 00018:00027) DATE EXTERNAL
, "KS847006"
POSITION( 00028:00037) DATE EXTERNAL
, "KS847007"
POSITION( 00038:00063) TIMESTAMP EXTERNAL
, "KS847008"
POSITION( 00064:00073) CHAR(00010)
, "KS847009"
POSITION( 00074:00099) TIMESTAMP EXTERNAL
)
TEMPLATE TSREC15 DSN('A540769.TMPUL.A848A.D2010014.UNLOAD')
DATACLAS (NULL30) MGMTCLAS(COM#E005)
SPACE (1000,1250) CYL
LOAD DATA LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS INDEX(ALL) REPORT NO UPDATE ALL
EBCDIC CCSID(00500,00000,00000)
INDDN TSREC15
SORTKEYS
-- ENFORCE NO
SORTDEVT DISK
SORTNUM 160
WORKDDN(TSYUTD,TSOUTD)
INTO TABLE OA1T.TELKS848C4
( "KS848001"
POSITION( 00003:00005) CHAR(00003)
, "KS848002"
POSITION( 00006:00009) CHAR(00004)
, "KS848003"
POSITION( 00010:00013) INTEGER
, "KS848004"
POSITION( 00014:00023) DATE EXTERNAL
, "KS848005"
POSITION( 00024:00033) DATE EXTERNAL
, "KS848006"
POSITION( 00034:00043) CHAR(00010)
, "KS848007"
POSITION( 00044:00069) TIMESTAMP EXTERNAL
, "KS848008"
POSITION( 00070:00070) CHAR(00001)
, "KS848009"
POSITION( 00071:00074) INTEGER
)
TEMPLATE TSREC16 DSN('A540769.TMPUL.A849A.D2010014.UNLOAD')
DATACLAS (NULL30) MGMTCLAS(COM#E005)
SPACE (1000,1250) CYL
LOAD DATA LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS INDEX(ALL) REPORT NO UPDATE ALL
EBCDIC CCSID(00500,00000,00000)
INDDN TSREC16
SORTKEYS
-- ENFORCE NO
SORTDEVT DISK
SORTNUM 160
WORKDDN(TSYUTD,TSOUTD)
INTO TABLE OA1T.TELKS849C4
( "KS849001"
POSITION( 00003:00022) CHAR(00020)
, "KS849002"
POSITION( 00023:00026) INTEGER
, "KS849003"
POSITION( 00027:00036) DATE EXTERNAL
, "KS849004"
POSITION( 00037:00046) DATE EXTERNAL
, "KS849005"
POSITION( 00047:00056) CHAR(00010)
, "KS849006"
POSITION( 00057:00082) TIMESTAMP EXTERNAL
, "KS849007"
POSITION( 00083:00086) INTEGER
)
TEMPLATE TSREC17 DSN('A540769.TMPUL.A850A.D2010014.UNLOAD')
DATACLAS (NULL30) MGMTCLAS(COM#E005)
SPACE (1000,1250) CYL
LOAD DATA LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS INDEX(ALL) REPORT NO UPDATE ALL
EBCDIC CCSID(00500,00000,00000)
INDDN TSREC17
SORTKEYS
-- ENFORCE NO
SORTDEVT DISK
SORTNUM 160
WORKDDN(TSYUTD,TSOUTD)
INTO TABLE OA1T.TELKS850C4
( "KS850001"
POSITION( 00003:00012) CHAR(00010)
, "KS850002"
POSITION( 00013:00032) CHAR(00020)
, "KS850003"
POSITION( 00033:00052) CHAR(00020)
, "KS850004"
POSITION( 00053:00056) INTEGER
, "KS850005"
POSITION( 00057:00076) CHAR(00020)
, "KS850006"
POSITION( 00077:00078) CHAR(00002)
, "KS850007"
POSITION( 00079:00104) TIMESTAMP EXTERNAL
, "KS850008"
POSITION( 00105:00114) CHAR(00010)
, "KS850009"
POSITION( 00115:00140) TIMESTAMP EXTERNAL
)
TEMPLATE TSREC18 DSN('A540769.TMPUL.A851A.D2010014.UNLOAD')
DATACLAS (NULL30) MGMTCLAS(COM#E005)
SPACE (1000,1250) CYL
LOAD DATA LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS INDEX(ALL) REPORT NO UPDATE ALL
EBCDIC CCSID(00500,00000,00000)
INDDN TSREC18
SORTKEYS
-- ENFORCE NO
SORTDEVT DISK
SORTNUM 160
WORKDDN(TSYUTD,TSOUTD)
INTO TABLE OA1T.TELKS851C4
( "KS851001"
POSITION( 00003:00012) CHAR(00010)
, "KS851002"
POSITION( 00013:00032) CHAR(00020)
, "KS851003"
POSITION( 00033:00052) CHAR(00020)
, "KS851004"
POSITION( 00053:00056) INTEGER
, "KS851005"
POSITION( 00057:00076) CHAR(00020)
, "KS851006"
POSITION( 00077:00096) CHAR(00020)
, "KS851007"
POSITION( 00097:00106) DATE EXTERNAL
, "KS851008"
POSITION( 00107:00116) DATE EXTERNAL
, "KS851009"
POSITION( 00117:00142) TIMESTAMP EXTERNAL
, "KS851010"
POSITION( 00143:00152) CHAR(00010)
, "KS851011"
POSITION( 00153:00178) TIMESTAMP EXTERNAL
)
TEMPLATE TSREC19 DSN('A540769.TMPUL.A852A.D2010014.UNLOAD')
DATACLAS (NULL30) MGMTCLAS(COM#E005)
SPACE (1000,1250) CYL
LOAD DATA LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS INDEX(ALL) REPORT NO UPDATE ALL
EBCDIC CCSID(00500,00000,00000)
INDDN TSREC19
SORTKEYS
-- ENFORCE NO
SORTDEVT DISK
SORTNUM 160
WORKDDN(TSYUTD,TSOUTD)
INTO TABLE OA1T.TELKS852C4
( "KS852001"
POSITION( 00003:00028) TIMESTAMP EXTERNAL
, "KS852002"
POSITION( 00029:00038) CHAR(00010)
, "KS852003"
POSITION( 00039:00048) CHAR(00010)
, "KS852004"
POSITION( 00049:00056) CHAR(00008)
, "KS852005"
POSITION( 00057:00064) CHAR(00008)
, "KS852006"
POSITION( 00065:00164) CHAR(00100)
)
TEMPLATE TSREC20 DSN('A540769.TMPUL.A853A.D2010014.UNLOAD')
DATACLAS (NULL30) MGMTCLAS(COM#E005)
SPACE (1000,1250) CYL
LOAD DATA LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS INDEX(ALL) REPORT NO UPDATE ALL
EBCDIC CCSID(00500,00000,00000)
INDDN TSREC20
SORTKEYS
-- ENFORCE NO
SORTDEVT DISK
SORTNUM 160
WORKDDN(TSYUTD,TSOUTD)
INTO TABLE OA1T.TELKS853C4
( "KS853001"
POSITION( 00003:00012) CHAR(00010)
, "KS853002"
POSITION( 00013:00016) INTEGER
, "KS853003"
POSITION( 00017:00036) CHAR(00020)
, "KS853004"
POSITION( 00037:00062) TIMESTAMP EXTERNAL
)
TEMPLATE TSREC21 DSN('A540769.TMPUL.A854A.D2010014.UNLOAD')
DATACLAS (NULL30) MGMTCLAS(COM#E005)
SPACE (1000,1250) CYL
LOAD DATA LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS INDEX(ALL) REPORT NO UPDATE ALL
EBCDIC CCSID(00500,00000,00000)
INDDN TSREC21
SORTKEYS
-- ENFORCE NO
SORTDEVT DISK
SORTNUM 160
WORKDDN(TSYUTD,TSOUTD)
INTO TABLE OA1T.TELKS854C4
( "KS854001"
POSITION( 00003:00034) CHAR(00032)
, "KS854002"
POSITION( 00035:00038) CHAR(00004)
, "KS854003"
POSITION( 00039:00048) DATE EXTERNAL
, "KS854004"
POSITION( 00049:00058) DATE EXTERNAL
, "KS854005"
POSITION( 00059:00084) TIMESTAMP EXTERNAL
, "KS854006"
POSITION( 00085:00094) CHAR(00010)
, "KS854007"
POSITION( 00095:00120) TIMESTAMP EXTERNAL
)
TEMPLATE TSREC22 DSN('A540769.TMPUL.A855A.D2010014.UNLOAD')
DATACLAS (NULL30) MGMTCLAS(COM#E005)
SPACE (1000,1250) CYL
LOAD DATA LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS INDEX(ALL) REPORT NO UPDATE ALL
EBCDIC CCSID(00500,00000,00000)
INDDN TSREC22
SORTKEYS
-- ENFORCE NO
SORTDEVT DISK
SORTNUM 160
WORKDDN(TSYUTD,TSOUTD)
INTO TABLE OA1T.TELKS855C4
( "KS855001"
POSITION( 00003:00007) CHAR(00005)
, "KS855002"
POSITION( 00008:00027) CHAR(00020)
, "KS855003"
POSITION( 00028:00037) DATE EXTERNAL
, "KS855004"
POSITION( 00038:00047) DATE EXTERNAL
, "KS855005"
POSITION( 00048:00073) TIMESTAMP EXTERNAL
, "KS855006"
POSITION( 00074:00083) CHAR(00010)
, "KS855007"
POSITION( 00084:00109) TIMESTAMP EXTERNAL
, "KS855008"
POSITION( 00110:00249) CHAR(00140)
)
TEMPLATE TSREC23 DSN('A540769.TMPUL.A856A.D2010014.UNLOAD')
DATACLAS (NULL30) MGMTCLAS(COM#E005)
SPACE (1000,1250) CYL
LOAD DATA LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS INDEX(ALL) REPORT NO UPDATE ALL
EBCDIC CCSID(00500,00000,00000)
INDDN TSREC23
SORTKEYS
-- ENFORCE NO
SORTDEVT DISK
SORTNUM 160
WORKDDN(TSYUTD,TSOUTD)
INTO TABLE OA1T.TELKS856C4
( "KS856001"
POSITION( 00003:00005) CHAR(00003)
, "KS856002"
POSITION( 00006:00009) CHAR(00004)
, "KS856003"
POSITION( 00010:00013) INTEGER
, "KS856004"
POSITION( 00014:00017) CHAR(00004)
, "KS856005"
POSITION( 00018:00021) CHAR(00004)
, "KS856006"
POSITION( 00022:00026) CHAR(00005)
, "KS856007"
POSITION( 00027:00036) DATE EXTERNAL
, "KS856008"
POSITION( 00037:00046) DATE EXTERNAL
, "KS856009"
POSITION( 00047:00072) TIMESTAMP EXTERNAL
, "KS856010"
POSITION( 00073:00082) CHAR(00010)
, "KS856011"
POSITION( 00083:00108) TIMESTAMP EXTERNAL
)
TEMPLATE TSREC24 DSN('A540769.TMPUL.A857A.D2010014.UNLOAD')
DATACLAS (NULL30) MGMTCLAS(COM#E005)
SPACE (1000,1250) CYL
LOAD DATA LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS INDEX(ALL) REPORT NO UPDATE ALL
EBCDIC CCSID(00500,00000,00000)
INDDN TSREC24
SORTKEYS
-- ENFORCE NO
SORTDEVT DISK
SORTNUM 160
WORKDDN(TSYUTD,TSOUTD)
INTO TABLE OA1T.TELKS857C4
( "KS857001"
POSITION( 00003:00009) CHAR(00007)
, "KS857002"
POSITION( 00010:00010) CHAR(00001)
, "KS857003"
POSITION( 00011:00020) CHAR(00010)
, "KS857004"
POSITION( 00021:00046) TIMESTAMP EXTERNAL
)
TEMPLATE TSREC25 DSN('A540769.TMPUL.A858A.D2010014.UNLOAD')
DATACLAS (NULL30) MGMTCLAS(COM#E005)
SPACE (1000,1250) CYL
LOAD DATA LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS INDEX(ALL) REPORT NO UPDATE ALL
EBCDIC CCSID(00500,00000,00000)
INDDN TSREC25
SORTKEYS
-- ENFORCE NO
SORTDEVT DISK
SORTNUM 160
WORKDDN(TSYUTD,TSOUTD)
INTO TABLE OA1T.TELKS858C4
( "KS858001"
POSITION( 00003:00022) CHAR(00020)
, "KS858002"
POSITION( 00023:00026) INTEGER
, "KS858003"
POSITION( 00027:00046) CHAR(00020)
, "KS858004"
POSITION( 00047:00066) CHAR(00020)
, "KS858005"
POSITION( 00067:00068) CHAR(00002)
, "KS858006"
POSITION( 00069:00094) TIMESTAMP EXTERNAL
, "KS858007"
POSITION( 00095:00098) INTEGER
, "KS858008"
POSITION( 00099:00238) CHAR(00140)
, "KS858009"
POSITION( 00239:00248) DATE EXTERNAL
, "KS858010"
POSITION( 00249:00258) DATE EXTERNAL
, "KS858011"
POSITION( 00259:00268) DATE EXTERNAL
, "KS858012"
POSITION( 00269:00278) DATE EXTERNAL
, "KS858013"
POSITION( 00279:00304) TIMESTAMP EXTERNAL
, "KS858014"
POSITION( 00305:00314) CHAR(00010)
, "KS858015"
POSITION( 00315:00340) TIMESTAMP EXTERNAL
, "KS858016"
POSITION( 00341:00366) TIMESTAMP EXTERNAL
, "KS858020"
POSITION( 00367:00376) DATE EXTERNAL
, "KS858021"
POSITION( 00377:00380) INTEGER
, "KS858017"
POSITION( 00381:00388) CHAR(00008)
, "KS858018"
POSITION( 00389:00516) CHAR(00128)
, "KS858019"
POSITION( 00517:00532) CHAR(00016)
, "KS858025"
POSITION( 00533:00558) TIMESTAMP EXTERNAL
, "KS858026"
POSITION( 00559:00568) CHAR(00010)
, "KS858027"
POSITION( 00569:00572) INTEGER
, "KS858022"
POSITION( 00573:00580) CHAR(00008)
, "KS858023"
POSITION( 00581:00708) CHAR(00128)
, "KS858024"
POSITION( 00709:00724) CHAR(00016)
, "KS858028"
POSITION( 00725:00728) INTEGER
, "KS858029"
POSITION( 00729:00729) CHAR(00001)
, "KS858030"
POSITION( 00730:00755) TIMESTAMP EXTERNAL
, "KS858031"
POSITION( 00756:00765) CHAR(00010)
, "KS858032"
POSITION( 00766:00767) CHAR(00002)
, "KS858033"
POSITION( 00768:00768) CHAR(00001)
, "KS858034"
POSITION( 00769:00794) TIMESTAMP EXTERNAL
, "KS858035"
POSITION( 00795:00804) CHAR(00010)
, "KS858036"
POSITION( 00805:00806) CHAR(00002)
, "KS858037"
POSITION( 00807:00807) CHAR(00001)
, "KS858038"
POSITION( 00808:00813) CHAR(00006)
, "KS858039"
POSITION( 00814:00814) CHAR(00001)
, "KS858040"
POSITION( 00815:00822) CHAR(00008)
, "KS858041"
POSITION( 00823:00826) INTEGER
, "KS858042"
POSITION( 00827:00827) CHAR(00001)
)
TEMPLATE TSREC26 DSN('A540769.TMPUL.A859A.D2010014.UNLOAD')
DATACLAS (NULL30) MGMTCLAS(COM#E005)
SPACE (1000,1250) CYL
LOAD DATA LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS INDEX(ALL) REPORT NO UPDATE ALL
EBCDIC CCSID(00500,00000,00000)
INDDN TSREC26
SORTKEYS
-- ENFORCE NO
SORTDEVT DISK
SORTNUM 160
WORKDDN(TSYUTD,TSOUTD)
INTO TABLE OA1T.TELKS859C4
( "KS859001"
POSITION( 00003:00022) CHAR(00020)
, "KS859002"
POSITION( 00023:00026) INTEGER
, "KS859003"
POSITION( 00027:00052) TIMESTAMP EXTERNAL
, "KS859004"
POSITION( 00053:00056) INTEGER
, "KS859005"
POSITION( 00057:00082) TIMESTAMP EXTERNAL
, "KS859006"
POSITION( 00083:00086) INTEGER
, "KS859007"
POSITION( 00087:00096) DATE EXTERNAL
, "KS859008"
POSITION( 00097:00106) DATE EXTERNAL
, "KS859009"
POSITION( 00107:00116) DATE EXTERNAL
, "KS859010"
POSITION( 00117:00126) DATE EXTERNAL
, "KS859011"
POSITION( 00127:00152) TIMESTAMP EXTERNAL
, "KS859012"
POSITION( 00153:00162) CHAR(00010)
, "KS859013"
POSITION( 00163:00188) TIMESTAMP EXTERNAL
)
TEMPLATE TSREC28 DSN('A540769.TMPUL.A861A.D2010014.UNLOAD')
DATACLAS (NULL30) MGMTCLAS(COM#E005)
SPACE (1000,1250) CYL
LOAD DATA LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS INDEX(ALL) REPORT NO UPDATE ALL
EBCDIC CCSID(00500,00000,00000)
INDDN TSREC28
SORTKEYS
-- ENFORCE NO
SORTDEVT DISK
SORTNUM 160
WORKDDN(TSYUTD,TSOUTD)
INTO TABLE OA1T.TELKS861C4
( "KS861001"
POSITION( 00003:00022) CHAR(00020)
, "KS861002"
POSITION( 00023:00048) TIMESTAMP EXTERNAL
, "KS861003"
POSITION( 00049:00052) INTEGER
, "KS861004"
POSITION( 00053:00056) INTEGER
, "KS861005"
POSITION( 00057:00057) CHAR(00001)
)
TEMPLATE TSREC29 DSN('A540769.TMPUL.A862A.D2010014.UNLOAD')
DATACLAS (NULL30) MGMTCLAS(COM#E005)
SPACE (1000,1250) CYL
LOAD DATA LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS INDEX(ALL) REPORT NO UPDATE ALL
EBCDIC CCSID(00500,00000,00000)
INDDN TSREC29
SORTKEYS
-- ENFORCE NO
SORTDEVT DISK
SORTNUM 160
WORKDDN(TSYUTD,TSOUTD)
INTO TABLE OA1T.TELKS862C4
( "KS862001"
POSITION( 00003:00012) CHAR(00010)
, "KS862002"
POSITION( 00013:00016) INTEGER
, "KS862003"
POSITION( 00017:00036) CHAR(00020)
, "KS862004"
POSITION( 00037:00062) TIMESTAMP EXTERNAL
, "KS862005"
POSITION( 00063:00072) CHAR(00010)
, "KS862006"
POSITION( 00073:00098) TIMESTAMP EXTERNAL
)
TEMPLATE TSREC30 DSN('A540769.TMPUL.A863A.D2010014.UNLOAD')
DATACLAS (NULL30) MGMTCLAS(COM#E005)
SPACE (1000,1250) CYL
LOAD DATA LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
STATISTICS INDEX(ALL) REPORT NO UPDATE ALL
EBCDIC CCSID(00500,00000,00000)
INDDN TSREC30
SORTKEYS
-- ENFORCE NO
SORTDEVT DISK
SORTNUM 160
WORKDDN(TSYUTD,TSOUTD)
INTO TABLE OA1T.TELKS863C4
( "KS863001"
POSITION( 00003:00006) INTEGER
, "KS863002"
POSITION( 00007:00010) INTEGER
, "KS863003"
POSITION( 00011:00020) CHAR(00010)
, "KS863004"
POSITION( 00021:00021) CHAR(00001)
, "KS863005"
POSITION( 00022:00041) CHAR(00020)
, "KS863006"
POSITION( 00043:00072) CHAR(00030)
NULLIF(00042)=X'FF'
, "KS863007"
POSITION( 00073:00102) CHAR(00030)
, "KS863008"
POSITION( 00103:00132) CHAR(00030)
, "KS863009"
POSITION( 00133:00142) DATE EXTERNAL
, "KS863010"
POSITION( 00143:00152) DATE EXTERNAL
, "KS863011"
POSITION( 00153:00178) TIMESTAMP EXTERNAL
, "KS863012"
POSITION( 00179:00188) CHAR(00010)
, "KS863013"
POSITION( 00189:00214) TIMESTAMP EXTERNAL
)
$#out 20100114 16:41:30
$#out 20100114 16:44:25
$#out 20100114 16:43:05