zOs/JCL/CARAT

$= sub = DBTF
$= cre = OA1T
$= jcll= TSS.SKA.JCLL
$= steps  = 999
$= stJob = -1
$= stCur = 0
$;
$@[
TCT100A1
TCT110A1
TCT111A1
TCT120A1
TCT130A1
TCT135A1
TCT140A1
TCT141A1
TCT150A1
TCT151A1
TCT152A1
TCT153A1
TCT170A1
TCT200A1
TCT201A1
TCT202A1
TCT203A1
TCT204A1
TCT205A1
TCT206A1
TCT207A1
TCT208A1
TCT209A1
TCT210A1
TCT211A1
TCT212A1
TCT213A1
TCT214A1
TCT220A1
TCT221A1
TCT222A1
TCT230A1
TCT233A1
TCT240A1
TCT241A1
TCT242A1
TCT243A1
TCT250A1
TCT251A1
TCT252A1
TCT253A1
TCT254A1
TCT255A1
TCT256A1
TCT257A1
TCT258A1
TCT270A1
TCT290A1
TCT291A1
TCT292A1
TCT293A1
TCT300A1
TCT301A1
TCT302A1
TCT303A1
TCT304A1
TCT305A1
TCT306A1
TCT307A1
TCT320A1
TCT340A1
TCT350A1
TCT351A1
TCT352A1
TCT353A1
TCT354A1
TCT355A1
TCT370A1
TCT400A1
$]
$! $@for tt $@{
       $=tt £ strip($tt)
       $=j £ 'T'substr($tt, 4, 3)'LOAD'
       $=jNa £ $jcll"("$j")"
       if sysDsn("'"$jNa"'") ^== 'OK' then do
           $$ $tt
           end
       else $@{
           lst = ''
           ct = ''
           st = ''
           $;
           $<$jNa $@for l $@{
               if abbrev($l, '//SYSREC ') then
                   st = 'r'
               else if abbrev($l, '//SYSIN ') then
                   st = 'i'
               else if abbrev($l, '//*') then
                   iterate
               else if ^ abbrev($l, '// ') then
                   st = ''
               if st = '' then
                   iterate
               cx = pos('DSN=', $l)
               if cx < 1 then
                   iterate
               dsn = word(translate(substr($l, cx+4), ' ', ','), 1)
               if st = 'i' then
                   ct = dsn
               else do
                   t = substr(dsn, 19, 6)
                   if $tt <> t'A1' then
                       call err 'mismatch tb' $tt '<> t' t 'in' $l
                   lst = lst dsn
                   end
               $}
           if lst = '' then
               call err 'no sysRec in' $jNa
           if ct = '' then
               call err 'no sysIn in' $jNa
           $£ $tt ct lst
           $}
       $}
$*(
$! tb = ''; lst = ''
   $@for l $@{
      d = strip($l)
      n = substr(d, 19, 6)
      if n <> tb then do
          if tb <> '' then
              $£ tb lst
          tb = n
          lst = ''
          end
      lst = lst d
      $}
      $£ tb lst
$*)
$! $@for l $@{
      parse value $l with tb ct lst
      $= tb £ tb
      $= tn £ substr(tb, 4, 3)
      $= stCur £ $stCur + 1
      if $stCur >= $stJob then $@{
          $= stJob £ $stCur + $steps
          $= jn = $tn
          $@[
//YCARA$jn  JOB (CP00,KE50),
//         MSGCLASS=T,TIME=1440,
//         NOTIFY=&SYSUID
//*MAIN CLASS=LOG
          $]
          $}
      $@[
//LO$tn    EXEC PGM=DSNUTILB,PARM='$sub,YCARA$tn.LOAD'
//SYSMAP   DD SYSOUT=*
//SYSERR   DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL  DD DSN=$sub.DBAA.LISTDEF(TEMPL),DISP=SHR
      $]
      if lst = '' then do
          $$ //SYSREC   DD DUMMY
          end
      else do wx=1 to words(lst)
          if wx = 1 then
              l = '//SYSREC   '
          else
              l = '//         '
          $£ l 'DD DISP=SHR,DSN='word(lst,wx)
          end
      $@[
//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 $cre.$tb
      $]
      $;
      if ct <> '' then $@{
          $<$(ct$)
          ccx = 0
          $@for cc $@{
             ccx = ccx + 1
             if ccx = 1 then
                 $$ -- $cc
             else
                 $$ $cc
             $}
         $}
      $;
      $}
$***out            20080225 12:04:57
//YCARA100  JOB (CP00,KE50),
//         MSGCLASS=T,TIME=1440,
//         NOTIFY=&SYSUID
//*MAIN CLASS=LOG
//LO100    EXEC PGM=DSNUTILB,PARM='DBTF,YCARA100.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.TCT100A1
//LO110    EXEC PGM=DSNUTILB,PARM='DBTF,YCARA110.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.TCT110A1
//LO111    EXEC PGM=DSNUTILB,PARM='DBTF,YCARA111.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.TCT111A1
//LO120    EXEC PGM=DSNUTILB,PARM='DBTF,YCARA120.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.TCT120A1
//LO130    EXEC PGM=DSNUTILB,PARM='DBTF,YCARA130.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.TCT130A1
//LO135    EXEC PGM=DSNUTILB,PARM='DBTF,YCARA135.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.TCT135A1
//LO140    EXEC PGM=DSNUTILB,PARM='DBTF,YCARA140.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.TCT140A1
//LO141    EXEC PGM=DSNUTILB,PARM='DBTF,YCARA141.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.TCT141A1
//LO150    EXEC PGM=DSNUTILB,PARM='DBTF,YCARA150.LOAD'
//SYSMAP   DD SYSOUT=*
//SYSERR   DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL  DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC    DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT150.IT
//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.TCT150A1
-- LOAD DATA RESUME YES INTO TABLE "OA1T"."TCT150A1"
(I_CRDT_CSTMR  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_CRDT_CSTMR_STS_T POSITION (133) CHAR  (5) ,
 I_BU_T POSITION (138) CHAR  (4) ,
 I_IP POSITION (142) CHAR  (20) ,
 I_IC POSITION (162) CHAR  (20) ,
 F_PRSPCT POSITION (182) INTEGER ,
 F_CRDT_CSTMR POSITION (186) INTEGER )
//LO151    EXEC PGM=DSNUTILB,PARM='DBTF,YCARA151.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.TCT151A1
//LO152    EXEC PGM=DSNUTILB,PARM='DBTF,YCARA152.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.TCT152A1
//LO153    EXEC PGM=DSNUTILB,PARM='DBTF,YCARA153.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.TCT153A1
//LO170    EXEC PGM=DSNUTILB,PARM='DBTF,YCARA170.LOAD'
//SYSMAP   DD SYSOUT=*
//SYSERR   DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL  DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC    DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT170.IT
//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.TCT170A1
-- LOAD DATA RESUME YES INTO TABLE "OA1T"."TCT170A1"
(I_CRDT_CSTMR  POSITION (1) CHAR  (20) ,
 D_TIME_CREATED POSITION (21) TIMESTAMP EXTERNAL  (26) ,
 I_ID_CREATOR POSITION (47) CHAR  (20) ,
 I_CRDT_CSTMR_STS_T POSITION (67) CHAR  (5) )
//LO200    EXEC PGM=DSNUTILB,PARM='DBTF,YCARA200.LOAD'
//SYSMAP   DD SYSOUT=*
//SYSERR   DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL  DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC    DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT200.IT
//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.TCT200A1
-- LOAD DATA RESUME YES INTO TABLE "OA1T"."TCT200A1"
(I_CRDT_RQST  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_CRDT_RQST_STS_T POSITION (133) CHAR  (5) ,
 I_CRDT_CSTMR POSITION (138) CHAR  (20) ,
 I_ID_CRDT_RQST POSITION (158) INTEGER ,
 I_CRDT_RQST_T POSITION (162) CHAR  (5) ,
 I_RQST_T POSITION (167) CHAR  (5) ,
 I_PRCS_T POSITION (172) CHAR  (5) ,
 I_RQST_STS_T POSITION (177) CHAR  (5) ,
 I_PRCS_PHSE_T POSITION (182) CHAR  (5) ,
 I_RQST_ORGN_T POSITION (187) CHAR  (5) ,
 C_BRNCH_OE POSITION (192) CHAR  (20) ,
 C_CRDT_UNT POSITION (212) CHAR  (20) ,
 I_CMPTNCE_T POSITION (232) CHAR  (5) ,
 C_BRNCH_OE_2 POSITION (237) CHAR  (20) ,
 F_OGR POSITION (257) INTEGER ,
 D_STLMNT POSITION (261) DATE EXTERNAL  (10) ,
 I_RQST_PRCS_STS_T POSITION (271) CHAR  (5) ,
 F_PRE_APRVD_CO POSITION (276) INTEGER ,
 I_TRNSCTN_DTL_T_1 POSITION (280) CHAR  (5) ,
 I_TRNSCTN_DTL_T_2 POSITION (285) CHAR  (5) )
//LO201    EXEC PGM=DSNUTILB,PARM='DBTF,YCARA201.LOAD'
//SYSMAP   DD SYSOUT=*
//SYSERR   DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL  DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC    DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT201.IT
//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.TCT201A1
-- LOAD DATA RESUME YES INTO TABLE "OA1T"."TCT201A1"
(I_CRDT_RQST  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) ,
 D_DUE_START POSITION (133) DATE EXTERNAL  (10) ,
 I_RQST_STS_T POSITION (143) CHAR  (5) ,
 I_PRCS_PHSE_T POSITION (148) CHAR  (5) )
//LO202    EXEC PGM=DSNUTILB,PARM='DBTF,YCARA202.LOAD'
//SYSMAP   DD SYSOUT=*
//SYSERR   DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL  DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC    DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT202.IT.A
//          DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT202.IT.B
//          DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT202.IT.C
//          DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT202.IT.D
//          DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT202.IT.E
//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.TCT202A1
-- LOAD DATA RESUME YES INTO TABLE "OA1T"."TCT202A1"
(I_CRDT_RQST  POSITION (1) CHAR  (20) ,
 D_TIME_CREATED POSITION (21) TIMESTAMP EXTERNAL  (26) ,
 D_TIME_CREATED_A POSITION (47) TIMESTAMP EXTERNAL  (26) ,
 I_ID_CREATOR POSITION (73) CHAR  (20) ,
 D_TIME_MODIFIED POSITION (93) TIMESTAMP EXTERNAL  (26) ,
 I_ID_MODIFIER POSITION (119) CHAR  (20) ,
 D_EFFECTIVE POSITION (139) DATE EXTERNAL  (10) ,
 D_END POSITION (149) DATE EXTERNAL  (10) ,
 I_DCSN_CMNT_T POSITION (159) CHAR  (5) ,
 I_RJCT_T POSITION (164) CHAR  (5) ,
 T_CMNT POSITION (169) VARCHAR )
//LO203    EXEC PGM=DSNUTILB,PARM='DBTF,YCARA203.LOAD'
//SYSMAP   DD SYSOUT=*
//SYSERR   DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL  DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC    DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT203.IT.A
//          DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT203.IT.B
//          DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT203.IT.C
//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.TCT203A1
-- LOAD DATA RESUME YES INTO TABLE "OA1T"."TCT203A1"
(I_CRDT_RQST  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_RQST_CMNT_T POSITION (133) CHAR  (5) ,
 T_CMNT POSITION (138) VARCHAR )
//LO204    EXEC PGM=DSNUTILB,PARM='DBTF,YCARA204.LOAD'
//SYSMAP   DD SYSOUT=*
//SYSERR   DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL  DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC    DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT204.IT
//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.TCT204A1
-- LOAD DATA RESUME YES INTO TABLE "OA1T"."TCT204A1"
(I_CRDT_RQST  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_RQST_INFRMTN_T POSITION (133) CHAR  (5) ,
 I_UOM_T POSITION (138) CHAR  (5) ,
 I_CRNCY_ISO_T POSITION (143) CHAR  (3) ,
 A_VLE POSITION (146:176) DECIMAL EXTERNAL,
 T_VLE POSITION (177) CHAR  (60) )
//LO205    EXEC PGM=DSNUTILB,PARM='DBTF,YCARA205.LOAD'
//SYSMAP   DD SYSOUT=*
//SYSERR   DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL  DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC    DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT205.IT
//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.TCT205A1
-- LOAD DATA RESUME YES INTO TABLE "OA1T"."TCT205A1"
(I_CRDT_RQST  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_EXCLSN_CRTRA_T POSITION (133) CHAR  (5) ,
 F_EXCLSN_CRTRA POSITION (138) INTEGER )
//LO206    EXEC PGM=DSNUTILB,PARM='DBTF,YCARA206.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.TCT206A1
//LO207    EXEC PGM=DSNUTILB,PARM='DBTF,YCARA207.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.TCT207A1
//LO208    EXEC PGM=DSNUTILB,PARM='DBTF,YCARA208.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.TCT208A1
//LO209    EXEC PGM=DSNUTILB,PARM='DBTF,YCARA209.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.TCT209A1
//LO210    EXEC PGM=DSNUTILB,PARM='DBTF,YCARA210.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.TCT210A1
//LO211    EXEC PGM=DSNUTILB,PARM='DBTF,YCARA211.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.TCT211A1
//LO212    EXEC PGM=DSNUTILB,PARM='DBTF,YCARA212.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.TCT212A1
//LO213    EXEC PGM=DSNUTILB,PARM='DBTF,YCARA213.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.TCT213A1
//LO214    EXEC PGM=DSNUTILB,PARM='DBTF,YCARA214.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.TCT214A1
//LO220    EXEC PGM=DSNUTILB,PARM='DBTF,YCARA220.LOAD'
//SYSMAP   DD SYSOUT=*
//SYSERR   DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL  DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC    DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT220.IT
//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.TCT220A1
-- LOAD DATA RESUME YES INTO TABLE "OA1T"."TCT220A1"
(I_CRDT_RQST  POSITION (1) CHAR  (20) ,
 D_TIME_CREATED POSITION (21) TIMESTAMP EXTERNAL  (26) ,
 I_ID_CREATOR POSITION (47) CHAR  (20) ,
 I_CRDT_RQST_STS_T POSITION (67) CHAR  (5) )
//LO221    EXEC PGM=DSNUTILB,PARM='DBTF,YCARA221.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.TCT221A1
//LO222    EXEC PGM=DSNUTILB,PARM='DBTF,YCARA222.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.TCT222A1
//LO230    EXEC PGM=DSNUTILB,PARM='DBTF,YCARA230.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.TCT230A1
//LO233    EXEC PGM=DSNUTILB,PARM='DBTF,YCARA233.LOAD'
//SYSMAP   DD SYSOUT=*
//SYSERR   DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL  DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC    DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT233.IT
//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.TCT233A1
-- LOAD DATA RESUME YES INTO TABLE "OA1T"."TCT233A1"
(I_CRDT_RQST  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_CMPTNCE_T POSITION (133) CHAR  (5) ,
 T_NME_CMPTNCE POSITION (138) CHAR  (30) ,
 T_FNCTN_CMPTNCE POSITION (168) CHAR  (30) )
//LO240    EXEC PGM=DSNUTILB,PARM='DBTF,YCARA240.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.TCT240A1
//LO241    EXEC PGM=DSNUTILB,PARM='DBTF,YCARA241.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.TCT241A1
//LO242    EXEC PGM=DSNUTILB,PARM='DBTF,YCARA242.LOAD'
//SYSMAP   DD SYSOUT=*
//SYSERR   DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL  DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC    DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT242.IT
//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.TCT242A1
-- LOAD DATA RESUME YES INTO TABLE "OA1T"."TCT242A1"
(I_RQST_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_CRDT_RQST POSITION (133) CHAR  (20) ,
 F_CRDT_RQST_ARCHVD POSITION (153) INTEGER ,
 I_BLNCE POSITION (157) CHAR  (20) ,
 F_BLNCE_ARCHVD POSITION (177) INTEGER )
//LO243    EXEC PGM=DSNUTILB,PARM='DBTF,YCARA243.LOAD'
//SYSMAP   DD SYSOUT=*
//SYSERR   DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL  DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC    DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT243.IT
//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.TCT243A1
-- LOAD DATA RESUME YES INTO TABLE "OA1T"."TCT243A1"
(I_RQST_AFRDBLT_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_CRDT_RQST POSITION (133) CHAR  (20) ,
 F_CRDT_RQST_ARCHVD POSITION (153) INTEGER ,
 I_AFRDBLTY POSITION (157) CHAR  (20) ,
 F_AFRDBLTY_ARCHVD POSITION (177) INTEGER )
//LO250    EXEC PGM=DSNUTILB,PARM='DBTF,YCARA250.LOAD'
//SYSMAP   DD SYSOUT=*
//SYSERR   DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL  DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC    DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT250.IT
//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.TCT250A1
-- LOAD DATA RESUME YES INTO TABLE "OA1T"."TCT250A1"
(I_ANLYS  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_ANLYS_STS_T POSITION (133) CHAR  (5) ,
 I_ANLYS_T POSITION (138) CHAR  (5) ,
 I_CRDT_CSTMR POSITION (143) CHAR  (20) ,
 I_MDLVRSN_T POSITION (163) CHAR  (5) ,
 I_MDLVRSN_USR_T POSITION (168) CHAR  (5) ,
 I_CSTMR_RTNG_FNL_T POSITION (173) CHAR  (5) ,
 P_PD_FNL POSITION (178:186) DECIMAL EXTERNAL,
 I_MX_CRDT_RSK POSITION (187) CHAR  (5) ,
 I_CVRD_CRDT_T POSITION (192) CHAR  (5) ,
 T_CSTMR_RLBLTY POSITION (197) CHAR  (5) ,
 I_ECNMC_SCTR_T POSITION (202) CHAR  (5) ,
 I_RSK_DMCLE_ISO_T POSITION (207) CHAR  (3) )
//LO251    EXEC PGM=DSNUTILB,PARM='DBTF,YCARA251.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.TCT251A1
//LO252    EXEC PGM=DSNUTILB,PARM='DBTF,YCARA252.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.TCT252A1
//LO253    EXEC PGM=DSNUTILB,PARM='DBTF,YCARA253.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.TCT253A1
//LO254    EXEC PGM=DSNUTILB,PARM='DBTF,YCARA254.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.TCT254A1
//LO255    EXEC PGM=DSNUTILB,PARM='DBTF,YCARA255.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.TCT255A1
//LO256    EXEC PGM=DSNUTILB,PARM='DBTF,YCARA256.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.TCT256A1
//LO257    EXEC PGM=DSNUTILB,PARM='DBTF,YCARA257.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.TCT257A1
//LO258    EXEC PGM=DSNUTILB,PARM='DBTF,YCARA258.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.TCT258A1
//LO270    EXEC PGM=DSNUTILB,PARM='DBTF,YCARA270.LOAD'
//SYSMAP   DD SYSOUT=*
//SYSERR   DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL  DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC    DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT270.IT
//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.TCT270A1
-- LOAD DATA RESUME YES INTO TABLE "OA1T"."TCT270A1"
(I_ANLYS  POSITION (1) CHAR  (20) ,
 D_TIME_CREATED POSITION (21) TIMESTAMP EXTERNAL  (26) ,
 I_ID_CREATOR POSITION (47) CHAR  (20) ,
 I_ANLYS_STS_T POSITION (67) CHAR  (5) )
//LO290    EXEC PGM=DSNUTILB,PARM='DBTF,YCARA290.LOAD'
//SYSMAP   DD SYSOUT=*
//SYSERR   DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL  DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC    DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT290.IT
//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.TCT290A1
-- LOAD DATA RESUME YES INTO TABLE "OA1T"."TCT290A1"
(I_ANLYS_RQST_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_ANLYS POSITION (133) CHAR  (20) ,
 F_ANLYS_ARCHVD POSITION (153) INTEGER ,
 I_CRDT_RQST POSITION (157) CHAR  (20) ,
 F_CRDT_RQST_ARCHVD POSITION (177) INTEGER )
//LO291    EXEC PGM=DSNUTILB,PARM='DBTF,YCARA291.LOAD'
//SYSMAP   DD SYSOUT=*
//SYSERR   DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL  DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC    DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT291.IT
//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.TCT291A1
-- LOAD DATA RESUME YES INTO TABLE "OA1T"."TCT291A1"
(I_ANLYS_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_ANLYS_RP_T     POSITION (133) CHAR  (5) ,
 I_ANLYS_1        POSITION (138) CHAR  (20) ,
 F_ANLYS_1_ARCHVD POSITION (158) INTEGER ,
 I_ANLYS_2        POSITION (162) CHAR  (20) ,
 F_ANLYS_2_ARCHVD POSITION (182) INTEGER )
//LO292    EXEC PGM=DSNUTILB,PARM='DBTF,YCARA292.LOAD'
//SYSMAP   DD SYSOUT=*
//SYSERR   DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL  DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC    DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT292.IT
//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.TCT292A1
-- LOAD DATA RESUME YES INTO TABLE "OA1T"."TCT292A1"
(I_ANLYS_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_ANLYS POSITION (133) CHAR  (20) ,
 F_ANLYS_ARCHVD POSITION (153) INTEGER ,
 I_BLNCE POSITION (157) CHAR  (20) ,
 F_BLNCE_ARCHVD POSITION (177) INTEGER )
//LO293    EXEC PGM=DSNUTILB,PARM='DBTF,YCARA293.LOAD'
//SYSMAP   DD SYSOUT=*
//SYSERR   DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL  DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC    DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT293.IT
//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.TCT293A1
-- LOAD DATA RESUME YES INTO TABLE "OA1T"."TCT293A1"
(I_ANLYS_AFRDBLT_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_ANLYS                   POSITION (133) CHAR  (20) ,
 F_ANLYS_ARCHVD            POSITION (153) INTEGER ,
 I_AFRDBLTY                POSITION (157) CHAR  (20) ,
 F_AFRDBLTY_ARCHVD         POSITION (177) INTEGER )
//LO300    EXEC PGM=DSNUTILB,PARM='DBTF,YCARA300.LOAD'
//SYSMAP   DD SYSOUT=*
//SYSERR   DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL  DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC    DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT300.IT.STEU
//          DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT300.IT.GEAB
//          DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT300.IT.PACK
//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.TCT300A1
-- LOAD DATA RESUME YES INTO TABLE "OA1T"."TCT300A1"
(I_BLNCE  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_STS_T POSITION (133) CHAR  (5) ,
 I_CRDT_CSTMR POSITION (138) CHAR  (20) ,
 I_MDLVRSN_T POSITION (158) CHAR  (5) ,
 D_BLNCE POSITION (163) DATE EXTERNAL  (10) ,
 I_BLNCE_T POSITION (173) CHAR  (5) ,
 I_NOGA_T POSITION (178) CHAR  (20) ,
 I_BRNCH_GRP_T POSITION (198) CHAR  (5) ,
 N_CLSNG_PRD POSITION (203) INTEGER ,
 I_CRNCY_ISO_T POSITION (207) CHAR  (3) ,
 I_ACNTNG_PRNCPLS_T POSITION (210) CHAR  (5) ,
 I_BSNS_T POSITION (215) CHAR  (5) ,
 I_PRFT_ORNTN_T POSITION (220) CHAR  (5) ,
 I_RVSN_PRNCPLS_T POSITION (225) CHAR  (5) ,
 I_PRFT_LS_ACNT_T POSITION (230) CHAR  (5) )
//LO301    EXEC PGM=DSNUTILB,PARM='DBTF,YCARA301.LOAD'
//SYSMAP   DD SYSOUT=*
//SYSERR   DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL  DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC    DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT301.IT.A
//          DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT301.IT.B
//          DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT301.IT.C
//          DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT301.IT.STEU
//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.TCT301A1
-- LOAD DATA RESUME YES INTO TABLE "OA1T"."TCT301A1"
(I_BLNCE  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) ,
 I_KY_FGRE_T POSITION (113) CHAR  (20) ,
 C_BLNCE_T POSITION (133) CHAR  (1) ,
 I_UOM_T POSITION (134) CHAR  (5) ,
 I_CRNCY_ISO_T POSITION (139) CHAR  (3) ,
 A_VLE POSITION (142:172) DECIMAL EXTERNAL,
 I_RFT_T POSITION (173) CHAR  (4) ,
 I_VLE_T POSITION (177) CHAR  (5) ,
 I_PRFT_LS_ACNT_T POSITION (182) CHAR  (5) ,
 T_CMNT_RM POSITION (187) VARCHAR ,
 T_CMNT_CO POSITION (1689) VARCHAR )
//LO302    EXEC PGM=DSNUTILB,PARM='DBTF,YCARA302.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.TCT302A1
//LO303    EXEC PGM=DSNUTILB,PARM='DBTF,YCARA303.LOAD'
//SYSMAP   DD SYSOUT=*
//SYSERR   DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL  DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC    DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT303.IT
//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.TCT303A1
-- LOAD DATA RESUME YES INTO TABLE "OA1T"."TCT303A1"
(I_BLNCE_CMNT  POSITION (1) CHAR  (20) ,
 I_BLNCE POSITION (21) CHAR  (20) ,
 D_TIME_CREATED POSITION (41) TIMESTAMP EXTERNAL  (26) ,
 I_ID_CREATOR POSITION (67) CHAR  (20) ,
 D_TIME_MODIFIED POSITION (87) TIMESTAMP EXTERNAL  (26) ,
 I_ID_MODIFIER POSITION (113) CHAR  (20) ,
 D_EFFECTIVE POSITION (133) DATE EXTERNAL  (10) ,
 D_END POSITION (143) DATE EXTERNAL  (10) ,
 I_BLNCE_OWNR_T POSITION (153) CHAR  (5) ,
 I_CMNT_OWNR_T POSITION (158) CHAR  (5) ,
 I_CMNT_STS_T POSITION (163) CHAR  (5) )
//LO304    EXEC PGM=DSNUTILB,PARM='DBTF,YCARA304.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.TCT304A1
//LO305    EXEC PGM=DSNUTILB,PARM='DBTF,YCARA305.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.TCT305A1
//LO306    EXEC PGM=DSNUTILB,PARM='DBTF,YCARA306.LOAD'
//SYSMAP   DD SYSOUT=*
//SYSERR   DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL  DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC    DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT306.IT
//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.TCT306A1
-- LOAD DATA RESUME YES INTO TABLE "OA1T"."TCT306A1"
(I_BLNCE_CMNT  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) ,
 I_BLNCE_CMNT_GRP_T POSITION (113) CHAR  (5) ,
 I_BLNCE_CMNT_T POSITION (118) CHAR  (20) ,
 I_CMNT_CTGRY_T POSITION (138) CHAR  (5) ,
 T_CMNT POSITION (143) VARCHAR )
//LO307    EXEC PGM=DSNUTILB,PARM='DBTF,YCARA307.LOAD'
//SYSMAP   DD SYSOUT=*
//SYSERR   DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL  DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC    DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT307.IT
//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.TCT307A1
-- LOAD DATA RESUME YES INTO TABLE "OA1T"."TCT307A1"
(I_BLNCE_CMNT  POSITION (1) CHAR  (20) ,
 D_TIME_CREATED POSITION (21) TIMESTAMP EXTERNAL  (26) ,
 I_ID_CREATOR POSITION (47) CHAR  (20) ,
 I_CMNT_STS_T POSITION (67) CHAR  (5) )
//LO320    EXEC PGM=DSNUTILB,PARM='DBTF,YCARA320.LOAD'
//SYSMAP   DD SYSOUT=*
//SYSERR   DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL  DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC    DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT320.IT
//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.TCT320A1
-- LOAD DATA RESUME YES INTO TABLE "OA1T"."TCT320A1"
(I_BLNCE  POSITION (1) CHAR  (20) ,
 D_TIME_CREATED POSITION (21) TIMESTAMP EXTERNAL  (26) ,
 I_ID_CREATOR POSITION (47) CHAR  (20) ,
 I_BLNCE_STS_T POSITION (67) CHAR  (5) )
//LO340    EXEC PGM=DSNUTILB,PARM='DBTF,YCARA340.LOAD'
//SYSMAP   DD SYSOUT=*
//SYSERR   DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL  DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC    DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT340.IT
//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.TCT340A1
-- LOAD DATA RESUME YES INTO TABLE "OA1T"."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 )
//LO350    EXEC PGM=DSNUTILB,PARM='DBTF,YCARA350.LOAD'
//SYSMAP   DD SYSOUT=*
//SYSERR   DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL  DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC    DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT350.IT
//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.TCT350A1
-- LOAD DATA RESUME YES INTO TABLE "OA1T"."TCT350A1"
(I_AFRDBLTY  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_AFRDBLTY_STS_T POSITION (133) CHAR  (5) ,
 I_CRDT_CSTMR POSITION (138) CHAR  (20) ,
 I_MDLVRSN_T POSITION (158) CHAR  (5) ,
 F_USDBY_CSTMR POSITION (163) INTEGER ,
 F_PRVTE POSITION (167) INTEGER ,
 F_CRDTWRTHY POSITION (171) INTEGER ,
 I_PRTFLO_DCSN_T POSITION (175) CHAR  (5) ,
 F_AFRDBLTY_CLCLTD POSITION (180) INTEGER ,
 I_AFRDBLTY_USR_T POSITION (184) CHAR  (5) ,
 A_CRDT_RQST POSITION (189:219) DECIMAL EXTERNAL,
 A_SMLTN_RTE POSITION (220:250) DECIMAL EXTERNAL,
 A_LMTS_EXSTNG POSITION (251:281) DECIMAL EXTERNAL,
 A_LMTS_NW POSITION (282:312) DECIMAL EXTERNAL,
 D_BLNCE POSITION (313) DATE EXTERNAL  (10) ,
 A_NT_TRNVR POSITION (323:353) DECIMAL EXTERNAL,
 A_NT_LBLTY POSITION (354:384) DECIMAL EXTERNAL,
 A_EQTY POSITION (385:415) DECIMAL EXTERNAL,
 A_RLVNT_RSRCS POSITION (416:446) DECIMAL EXTERNAL,
 A_EBIT POSITION (447:477) DECIMAL EXTERNAL,
 A_CSHFLW POSITION (478:508) DECIMAL EXTERNAL,
 I_CRNCY_ISO_T POSITION (509) CHAR  (3) ,
 T_CMNT POSITION (512) VARCHAR )
//LO351    EXEC PGM=DSNUTILB,PARM='DBTF,YCARA351.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.TCT351A1
//LO352    EXEC PGM=DSNUTILB,PARM='DBTF,YCARA352.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.TCT352A1
//LO353    EXEC PGM=DSNUTILB,PARM='DBTF,YCARA353.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.TCT353A1
//LO354    EXEC PGM=DSNUTILB,PARM='DBTF,YCARA354.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.TCT354A1
//LO355    EXEC PGM=DSNUTILB,PARM='DBTF,YCARA355.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.TCT355A1
//LO370    EXEC PGM=DSNUTILB,PARM='DBTF,YCARA370.LOAD'
//SYSMAP   DD SYSOUT=*
//SYSERR   DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL  DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSREC    DD DISP=SHR,DSN=#CT.U0000.A0.CANA.TCT370.IT
//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.TCT370A1
-- LOAD DATA RESUME YES INTO TABLE "OA1T"."TCT370A1"
(I_AFRDBLTY  POSITION (1) CHAR  (20) ,
 D_TIME_CREATED POSITION (21) TIMESTAMP EXTERNAL  (26) ,
 I_ID_CREATOR POSITION (47) CHAR  (20) ,
 I_AFRDBLTY_STS_T POSITION (67) CHAR  (5) )
//LO400    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
$***out            20080225 12:04:08