zOs/JCL/DB2LOSCH

//A540769L  JOB (CP00,KE50),                                            00010001
//         MSGCLASS=T,TIME=1440,
//         NOTIFY=A540769
//*MAIN CLASS=LOG
//*********************************************************************
//*
//* load tables twi400a1-twi404a1 mit daten aus access
//*   - mit access daten im delimited format (delimiter '}') erstellen
//*   - library A540769.tmp.schick allozieren (vb, maxrecl=32756)
//*   - files als entsprechende Member in diese Library transferieren
//*   - diesen Job starten, er
//*       l�dt die 5 Tabellen
//*       f�hrt ein Check Data auf betroffenen TS durch
//*
//*********************************************************************
//* kiut 23, Walter Keller, 19.10.2007
//*********************************************************************
//S1       EXEC PGM=DSNUTILB,PARM='DBAF,A540769L.LOAD'                  00020001
//SYSMAP   DD DISP=(,PASS),UNIT=SYSDA
//SYSUT1   DD DISP=(,PASS),UNIT=SYSDA
//SORTOUT  DD DISP=(,PASS),UNIT=SYSDA
//SYSERR   DD DISP=(,PASS),UNIT=SYSDA
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL  DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//IN400    DD DISP=SHR,DSN=A540769.TMP.SCHICK(TWI400A1)
//IN401    DD DISP=SHR,DSN=A540769.TMP.SCHICK(TWI401A1)
//IN402    DD DISP=SHR,DSN=A540769.TMP.SCHICK(TWI402A1)
//IN403    DD DISP=SHR,DSN=A540769.TMP.SCHICK(TWI403A1)
//IN404    DD DISP=SHR,DSN=A540769.TMP.SCHICK(TWI404A1)
//SYSIN    DD *
TEMPLATE TCOPYX   DSN('&SSID..&DB..&SN..P&PART(2)..D&DATE(3)..T&TIME.')
                  DATACLAS(NULL12) MGMTCLAS(COM#A011) STORCLAS(FAR$N)
                  SPACE(100,1000) TRK MAXPRIME 600 UNCNT 59

LOAD DATA INDDN IN400 LOG NO  RESUME NO REPLACE COPYDDN(TCOPYX)
                ENFORCE NO
                STATISTICS INDEX ALL UPDATE(ALL)
 EBCDIC  CCSID(00500,00000,00000)
 SORTDEVT SYSDA SORTNUM  50
 FORMAT DELIMITED COLDEL '{'
 INTO TABLE OA1A.TWI400A1
LOAD DATA INDDN IN401 LOG NO  RESUME NO REPLACE COPYDDN(TCOPYX)
                ENFORCE NO
                STATISTICS INDEX ALL UPDATE(ALL)
 EBCDIC  CCSID(00500,00000,00000)
 SORTDEVT SYSDA SORTNUM  50
 FORMAT DELIMITED COLDEL '{'
 INTO TABLE OA1A.TWI401A1
LOAD DATA INDDN IN402 LOG NO  RESUME NO REPLACE COPYDDN(TCOPYX)
                ENFORCE NO
                STATISTICS INDEX ALL UPDATE(ALL)
 EBCDIC  CCSID(00500,00000,00000)
 SORTDEVT SYSDA SORTNUM  50
 FORMAT DELIMITED COLDEL '{'
 INTO TABLE OA1A.TWI402A1
LOAD DATA INDDN IN403 LOG NO  RESUME NO REPLACE COPYDDN(TCOPYX)
                ENFORCE NO
                STATISTICS INDEX ALL UPDATE(ALL)
 EBCDIC  CCSID(00500,00000,00000)
 SORTDEVT SYSDA SORTNUM  50
 FORMAT DELIMITED COLDEL '{'
 INTO TABLE OA1A.TWI403A1
LOAD DATA INDDN IN404 LOG NO  RESUME NO REPLACE COPYDDN(TCOPYX)
                ENFORCE NO
                STATISTICS INDEX ALL UPDATE(ALL)
 EBCDIC  CCSID(00500,00000,00000)
 SORTDEVT SYSDA SORTNUM  50
 FORMAT DELIMITED COLDEL '{'
 INTO TABLE OA1A.TWI404A1
 CHECK DATA TABLESPACE WI03A1A.A400A
            TABLESPACE WI03A1A.A401A
            TABLESPACE WI03A1A.A402A
            TABLESPACE WI03A1A.A403A
            TABLESPACE WI03A1A.A404A
            TABLESPACE WI03A1A.A405A
            TABLESPACE WI03A1A.A406A
            TABLESPACE WI03A1A.A407A
       SCOPE ALL