zOs/JCL/YWB11LOA

//YWB11LOA JOB (CP00,KE50),
//       'LOAD',MSGCLASS=T,TIME=1440,
//         NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=DBOF
//*
//***************************************************
//*  load Job für  TWB224A1, TWB225A1, TWB226A1, TWB228A1
//*                  TWB232A1, TWB233A1, TWB234A1
//*  vor dem start Save Datum  einsetzen:
//*
//*             c D070402 Dxxxxxx all
//*
//***************************************************
//STEP1 EXEC PGM=DSNUTILB,TIME=1440,
//   PARM=(DBOF,'YWB11LOA.LOAD')
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSOUT   DD SYSOUT=*
//*SYSTEMPL  DD DSN=DBOF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
     TEMPLATE TSRERR   DSN('R2.DSN.&SSID..&DB..&SN..D070402.UNLO')
                       DATACLAS (NULL30) MGMTCLAS(COM#A092)
                       SPACE (10,1250) CYL
                       DISP(OLD,KEEP,KEEP)
TEMPLATE TCOPYQ
    DSN('&SSID..&DB..&SN..Q&PART(2)..D&DATE(3)..T&TIME.')
    DATACLAS (NULL12) MGMTCLAS(COM#A011)
    SPACE (10,250) CYL
COPY TABLESPACE WB11A1P.A224A FULL YES
    COPYDDN (TCOPYQ) SHRLEVEL REFERENCE
LOAD DATA INDDN TSRERR
    RESUME NO REPLACE COPYDDN TCOPYD LOG NO
    STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
 EBCDIC  CCSID(00500,00000,00000)
 SORTKEYS               31530
    INTO TABLE OA1P.TWB224A1
 ( "TS_KEY"
        POSITION(  00003:00028) TIMESTAMP EXTERNAL
 , "SOURCE"
        POSITION(  00029:00036) CHAR(00008)
 , "REGION"
        POSITION(  00037:00044) CHAR(00008)
 , "KEY"
        POSITION(  00045:00094) CHAR(00050)
 )
COPY TABLESPACE WB11A1P.A225A FULL YES
    COPYDDN (TCOPYQ) SHRLEVEL REFERENCE
LOAD DATA INDDN TSRERR
    RESUME NO REPLACE COPYDDN TCOPYD LOG NO
    STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
 EBCDIC  CCSID(00500,00000,00000)
 SORTKEYS            47017150
    INTO TABLE OA1P.TWB225A1
 ( "TS_KEY"
        POSITION(  00003:00028) TIMESTAMP EXTERNAL
 , "TS_TRACE"
        POSITION(  00029:00054) TIMESTAMP EXTERNAL
 , "SOURCE"
        POSITION(  00055:00062) CHAR(00008)
 , "ACTION"
        POSITION(  00063:00067) CHAR(00005)
 , "NAME"
        POSITION(  00068:00119) VARCHAR
 )
COPY TABLESPACE WB11A1P.A226A FULL YES
    COPYDDN (TCOPYQ) SHRLEVEL REFERENCE
LOAD DATA INDDN TSRERR
    RESUME NO REPLACE COPYDDN TCOPYD LOG NO
    STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
 EBCDIC  CCSID(00500,00000,00000)
    INTO TABLE OA1P.TWB226A1
 ( "TS_KEY"
        POSITION(  00003:00028) TIMESTAMP EXTERNAL
 , "TS_TRACE"
        POSITION(  00029:00054) TIMESTAMP EXTERNAL
 , "STRUCTUR"
        POSITION(  00055:00079) CHAR(00025)
 , "DATEN"
        POSITION(  00080:04081) VARCHAR
 )
COPY TABLESPACE WB11A1P.A228A FULL YES
    COPYDDN (TCOPYQ) SHRLEVEL REFERENCE
LOAD DATA INDDN TSRERR
    RESUME NO REPLACE COPYDDN TCOPYD LOG NO
    STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
 EBCDIC  CCSID(00500,00000,00000)
 SORTKEYS                 123
    INTO TABLE OA1P.TWB228A1
 ( "PROGRAM"
        POSITION(  00003:00010) CHAR(00008)
 , "AKTIV"
        POSITION(  00011:00011) CHAR(00001)
 , "START"
        POSITION(  00012:00037) TIMESTAMP EXTERNAL
 , "ENDE"
        POSITION(  00038:00063) TIMESTAMP EXTERNAL
 , "OUTPUT"
        POSITION(  00064:00064) CHAR(00001)
 , "CLASS"
        POSITION(  00065:00089) CHAR(00025)
 , "MAXLINES"
        POSITION(  00090:00093) INTEGER
 , "SUBPROGRAM"
        POSITION(  00094:01095) VARCHAR
 , "PROCEDURES"
        POSITION(  01096:02097) VARCHAR
 )
COPY TABLESPACE WB11A1P.A232A FULL YES
    COPYDDN (TCOPYQ) SHRLEVEL REFERENCE
UNLOAD TABLESPACE WB11A1P.A232A
    FROM TABLE OA1P.TWB232A1
    PUNCHDDN TMULPUN UNLDDN TMULTS
    SHRLEVEL REFERENCE
LOAD DATA INDDN TSRERR
    RESUME NO REPLACE COPYDDN TCOPYD LOG NO
    STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
 EBCDIC  CCSID(00500,00000,00000)
 SORTKEYS                  11
    INTO TABLE OA1P.TWB232A1
 ( "USECASE_ID"
        POSITION(  00003:00052) CHAR(00050)
 , "TEST_ID"
        POSITION(  00053:00102) CHAR(00050)
 )
COPY TABLESPACE WB11A1P.A233A FULL YES
    COPYDDN (TCOPYQ) SHRLEVEL REFERENCE
LOAD DATA INDDN TSRERR
    RESUME NO REPLACE COPYDDN TCOPYD LOG NO
    STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
 EBCDIC  CCSID(00500,00000,00000)
 SORTKEYS                  27
    INTO TABLE OA1P.TWB233A1
 ( "TEST_ID"
        POSITION(  00003:00052) CHAR(00050)
 , "TS_KEY"
        POSITION(  00053:00078) TIMESTAMP EXTERNAL
 , "SOURCE"
        POSITION(  00079:00086) CHAR(00008)
 )
COPY TABLESPACE WB11A1P.A234A FULL YES
    COPYDDN (TCOPYQ) SHRLEVEL REFERENCE
LOAD DATA INDDN TSRERR
    RESUME NO REPLACE COPYDDN TCOPYD LOG NO
    STATISTICS TABLE(ALL) INDEX(ALL) UPDATE ALL
 EBCDIC  CCSID(00500,00000,00000)
 SORTKEYS                  16
    INTO TABLE OA1P.TWB234A1
 ( "IDENTIFIER"
        POSITION(  00003:00052) CHAR(00050)
 , "ID_TYPE"
        POSITION(  00053:00053) CHAR(00001)
 , "SDESCRIPTION"
        POSITION(  00054:00105) VARCHAR
 , "LDESCRIPTION"
        POSITION(  00106:00507) VARCHAR
 )