zOs/JCL/PO01
//A540769D JOB (CP00,KE50), 00010001
// MSGCLASS=T,TIME=1440,
// NOTIFY=A540769
//*MAIN CLASS=LOG SYSTEM=S12
//CRE EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99 00020001
//SYSTSIN DD *
DSN SYSTEM(DBTF)
RUN PROGRAM(DSNTEP2) PARMS('ALIGN(LHS)') PLAN(DSNTEP2)
//SYSTSPRT DD SYSOUT=*
//*SYSPRINT DD DISP=SHR,DSN=DSN.NAKTST.LIST(COUNTNEU)
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM DD DUMMY
//*SYSIN DD DISP=SHR,DSN=A540769.WK.SQL(TTT)
//SYSIN DD *
--
SET CURRENT SQLID='S100447';
DROP ALIAS OA1T.TPO001A1;
DROP ALIAS OA1T.TPO002A1;
DROP ALIAS OA1T.TPO003A1;
DROP ALIAS OA1T.TPO004A1;
DROP ALIAS OA1T.TPO005A1;
DROP ALIAS OA1T.TPO006A1;
COMMIT;
--
CREATE DATABASE PO01A1T
BUFFERPOOL BP2
INDEXBP BP1
CCSID EBCDIC
STOGROUP GSMS;
--
COMMIT;
--
------------------------------------------------------------------------
-- Database=PO01A1T Stogroup=GSMS
-- Tablespace=PO01A1T.A001A
------------------------------------------------------------------------
--
CREATE TABLESPACE A001A
IN PO01A1T
USING STOGROUP GSMS
PRIQTY 180 SECQTY 7200
FREEPAGE 10 PCTFREE 10
SEGSIZE 64
LOCKSIZE ANY
COMPRESS YES;
--
COMMIT;
--
------------------------------------------------------------------------
-- Table=OA1T.TPO001A1 In PO01A1T.A001A
------------------------------------------------------------------------
--
CREATE TABLE OA1T.TPO001A1
(PO001_LIST CHAR(4) NOT NULL WITH DEFAULT,
PO001_BUSP_K CHAR(1) NOT NULL WITH DEFAULT,
PO001_HWTK CHAR(1) NOT NULL WITH DEFAULT,
PO001_TIT_D CHAR(40),
PO001_TIT_F CHAR(40),
PO001_TIT_I CHAR(40),
PO001_FORM CHAR(4),
PO001_CARR CHAR(4),
PO001_PERI CHAR(1),
PO001_STAT CHAR(1),
PO001_JOBN CHAR(8),
PO001_BAHIN CHAR(8),
PO001_ARCHP CHAR(4),
PO001_LSTNOHT CHAR(3),
PO001_GRP CHAR(1),
PO001_CHAR_1 CHAR(4),
PO001_CHAR_2 CHAR(4),
PO001_CHAR_3 CHAR(4),
PO001_CHAR_4 CHAR(4),
PO001_AKON_1 CHAR(40),
PO001_AKON_2 CHAR(40),
PO001_AKON_3 CHAR(40),
PO001_HWT_ANY CHAR(1),
PO001_HWT_A CHAR(1),
PO001_HWT_B CHAR(1),
PO001_HWT_C CHAR(1),
PO001_HWT_G CHAR(1),
PO001_HWT_L CHAR(1),
PO001_HWT_M CHAR(1),
PO001_HWT_N CHAR(1),
PO001_HWT_P CHAR(1),
PO001_HWT_R CHAR(1),
PO001_HWT_S CHAR(1),
PO001_HWT_T CHAR(1),
PO001_HWT_V CHAR(1),
PO001_SKAT CHAR(1),
PO001_SSTU CHAR(1),
PO001_FRIST CHAR(5),
PO001_COUVI CHAR(1),
PO001_EPCHL SMALLINT,
PO001_EPLIP SMALLINT,
PO001_EPAGE_ZNR_01 SMALLINT,
PO001_EPAGE_POS_01 SMALLINT,
PO001_EPAGE_FLN_01 SMALLINT,
PO001_EPAGE_ZNR_02 SMALLINT,
PO001_EPAGE_POS_02 SMALLINT,
PO001_EPAGE_FLN_02 SMALLINT,
PO001_EPAGE_ZNR_03 SMALLINT,
PO001_EPAGE_POS_03 SMALLINT,
PO001_EPAGE_FLN_03 SMALLINT,
PO001_EPAGE_ZNR_04 SMALLINT,
PO001_EPAGE_POS_04 SMALLINT,
PO001_EPAGE_FLN_04 SMALLINT,
PO001_EPAGE_ZNR_05 SMALLINT,
PO001_EPAGE_POS_05 SMALLINT,
PO001_EPAGE_FLN_05 SMALLINT,
PO001_EPAGE_ZNR_06 SMALLINT,
PO001_EPAGE_POS_06 SMALLINT,
PO001_EPAGE_FLN_06 SMALLINT,
PO001_EPAGE_ZNR_07 SMALLINT,
PO001_EPAGE_POS_07 SMALLINT,
PO001_EPAGE_FLN_07 SMALLINT,
PO001_EPAGE_ZNR_08 SMALLINT,
PO001_EPAGE_POS_08 SMALLINT,
PO001_EPAGE_FLN_08 SMALLINT,
PO001_EPAGE_ZNR_09 SMALLINT,
PO001_EPAGE_POS_09 SMALLINT,
PO001_EPAGE_FLN_09 SMALLINT,
PO001_EPAGE_ZNR_10 SMALLINT,
PO001_EPAGE_POS_10 SMALLINT,
PO001_EPAGE_FLN_10 SMALLINT,
PO001_EPAGE_ZNR_11 SMALLINT,
PO001_EPAGE_POS_11 SMALLINT,
PO001_EPAGE_FLN_11 SMALLINT,
PO001_EPAGE_ZNR_12 SMALLINT,
PO001_EPAGE_POS_12 SMALLINT,
PO001_EPAGE_FLN_12 SMALLINT,
PO001_EPAGE_ZNR_13 SMALLINT,
PO001_EPAGE_POS_13 SMALLINT,
PO001_EPAGE_FLN_13 SMALLINT,
PO001_EPAGE_ZNR_14 SMALLINT,
PO001_EPAGE_POS_14 SMALLINT,
PO001_EPAGE_FLN_14 SMALLINT,
PO001_EPAGE_ZNR_15 SMALLINT,
PO001_EPAGE_POS_15 SMALLINT,
PO001_EPAGE_FLN_15 SMALLINT,
PO001_EPAGE_ZNR_16 SMALLINT,
PO001_EPAGE_POS_16 SMALLINT,
PO001_EPAGE_FLN_16 SMALLINT,
PO001_EPAGE_ZNR_17 SMALLINT,
PO001_EPAGE_POS_17 SMALLINT,
PO001_EPAGE_FLN_17 SMALLINT,
PO001_EPAGE_ZNR_18 SMALLINT,
PO001_EPAGE_POS_18 SMALLINT,
PO001_EPAGE_FLN_18 SMALLINT,
PO001_EPAGE_ZNR_19 SMALLINT,
PO001_EPAGE_POS_19 SMALLINT,
PO001_EPAGE_FLN_19 SMALLINT,
PO001_EPAGE_ZNR_20 SMALLINT,
PO001_EPAGE_POS_20 SMALLINT,
PO001_EPAGE_FLN_20 SMALLINT,
PO001_EPAGE_ZNR_21 SMALLINT,
PO001_EPAGE_POS_21 SMALLINT,
PO001_EPAGE_FLN_21 SMALLINT,
PO001_EPAGE_ZNR_22 SMALLINT,
PO001_EPAGE_POS_22 SMALLINT,
PO001_EPAGE_FLN_22 SMALLINT,
PO001_EPAGE_ZNR_23 SMALLINT,
PO001_EPAGE_POS_23 SMALLINT,
PO001_EPAGE_FLN_23 SMALLINT,
PO001_EPAGE_ZNR_24 SMALLINT,
PO001_EPAGE_POS_24 SMALLINT,
PO001_EPAGE_FLN_24 SMALLINT,
PO001_EPAGE_ZNR_25 SMALLINT,
PO001_EPAGE_POS_25 SMALLINT,
PO001_EPAGE_FLN_25 SMALLINT,
PO001_EPAGE_ZNR_26 SMALLINT,
PO001_EPAGE_POS_26 SMALLINT,
PO001_EPAGE_FLN_26 SMALLINT,
PO001_EPAGE_ZNR_27 SMALLINT,
PO001_EPAGE_POS_27 SMALLINT,
PO001_EPAGE_FLN_27 SMALLINT,
PO001_EPAGE_ZNR_28 SMALLINT,
PO001_EPAGE_POS_28 SMALLINT,
PO001_EPAGE_FLN_28 SMALLINT,
PO001_ARES CHAR(4),
PO001_LVB CHAR(8),
PO001_LVA CHAR(8),
PO001_POVR_A CHAR(1),
PO001_POVR_B CHAR(1),
PO001_POVR_L CHAR(1),
PO001_POVR_P CHAR(1),
PO001_BUAR CHAR(1),
PO001_OPTC CHAR(1),
PO001_INLA CHAR(1),
PO001_AUSL CHAR(1),
PO001_LAND1 CHAR(2),
PO001_LAND2 CHAR(2),
PO001_LAND3 CHAR(2),
PO001_LAND4 CHAR(2),
PO001_LAND5 CHAR(2),
PO001_LAND6 CHAR(2),
PO001_LAND7 CHAR(2),
PO001_LAND8 CHAR(2),
PO001_LAND9 CHAR(2),
PO001_DOD CHAR(1),
PO001_M38FO CHAR(4),
PO001_M38FD CHAR(6),
PO001_M38PD CHAR(6),
PO001_M38PF CHAR(6),
PO001_M38CG CHAR(6),
PO001_FMT CHAR(1),
PO001_CUT CHAR(1),
PO001_VTE CHAR(1),
PO001_VAUF CHAR(1),
PO001_VPER CHAR(1),
PO001_ARCH CHAR(1),
PO001_DVPC CHAR(2),
PO001_MADR CHAR(1),
PO001_GEB CHAR(4),
PO001_APPL CHAR(4),
PO001_COMI CHAR(1),
PO001_COMSS CHAR(1),
PO001_COMVO CHAR(1),
PO001_COMPRI CHAR(2),
PO001_COMPER CHAR(7),
PO001_COMFMT CHAR(4),
PO001_COMPGM CHAR(8),
PO001_COMBKST CHAR(4),
CONSTRAINT PO001_LIST
PRIMARY KEY (PO001_LIST,
PO001_BUSP_K,
PO001_HWTK))
IN PO01A1T.A001A;
--
------------------------------------------------------------------------
-- Database=PO01A1T
-- Index=OA1T.IPO001A1 On OA1T.TPO001A1
------------------------------------------------------------------------
--
CREATE UNIQUE INDEX OA1T.IPO001A1
ON OA1T.TPO001A1
(PO001_LIST ASC,
PO001_BUSP_K ASC,
PO001_HWTK ASC)
USING STOGROUP GSMS
PRIQTY 180 SECQTY 7200
FREEPAGE 0 PCTFREE 5;
--
COMMIT;
--
------------------------------------------------------------------------
-- Database=PO01A1T Stogroup=GSMS
-- Tablespace=PO01A1T.A002A
------------------------------------------------------------------------
--
CREATE TABLESPACE A002A
IN PO01A1T
USING STOGROUP GSMS
PRIQTY 180 SECQTY 7200
FREEPAGE 10 PCTFREE 10
SEGSIZE 64
LOCKSIZE ANY
COMPRESS YES;
--
COMMIT;
--
------------------------------------------------------------------------
-- Table=OA1T.TPO002A1 In PO01A1T.A002A
------------------------------------------------------------------------
--
CREATE TABLE OA1T.TPO002A1
(PO002_BUID CHAR(3) NOT NULL WITH DEFAULT,
PO002_BKST CHAR(4) NOT NULL WITH DEFAULT,
PO002_KBST CHAR(4),
PO002_SPRC CHAR(1),
PO002_SPLN SMALLINT,
PO002_ADDR_1 CHAR(38),
PO002_ADDR_2 CHAR(38),
PO002_ADDR_3 CHAR(38),
PO002_ADDR_4 CHAR(38),
PO002_ADDR_5 CHAR(38),
PO002_GEHT CHAR(20),
PO002_ZUSA CHAR(20),
PO002_LDKY CHAR(1),
PO002_LDTI CHAR(1),
PO002_SPRC_2 CHAR(1),
PO002_LAND CHAR(1),
PO002_BUKB CHAR(3),
PO002_VPC CHAR(2),
PO002_PEI CHAR(1),
PO002_PZI CHAR(1),
CONSTRAINT PO002_BUID
PRIMARY KEY (PO002_BUID,
PO002_BKST))
IN PO01A1T.A002A;
--
------------------------------------------------------------------------
-- Database=PO01A1T
-- Index=OA1T.IPO002A1 On OA1T.TPO002A1
------------------------------------------------------------------------
--
CREATE UNIQUE INDEX OA1T.IPO002A1
ON OA1T.TPO002A1
(PO002_BUID ASC,
PO002_BKST ASC)
USING STOGROUP GSMS
PRIQTY 180 SECQTY 7200
FREEPAGE 0 PCTFREE 5;
--
COMMIT;
--
------------------------------------------------------------------------
-- Database=PO01A1T Stogroup=GSMS
-- Tablespace=PO01A1T.A003A
------------------------------------------------------------------------
--
CREATE TABLESPACE A003A
IN PO01A1T
USING STOGROUP GSMS
PRIQTY 180 SECQTY 7200
FREEPAGE 10 PCTFREE 10
SEGSIZE 64
LOCKSIZE ANY
COMPRESS YES;
--
COMMIT;
--
------------------------------------------------------------------------
-- Table=OA1T.TPO003A1 In PO01A1T.A003A
------------------------------------------------------------------------
--
CREATE TABLE OA1T.TPO003A1
(PO003_BUID CHAR(3) NOT NULL WITH DEFAULT,
PO003_BKST CHAR(4) NOT NULL WITH DEFAULT,
PO003_LIST CHAR(4) NOT NULL WITH DEFAULT,
PO003_SQNR CHAR(2) NOT NULL WITH DEFAULT,
PO003_GEHT CHAR(20),
PO003_ZUSA CHAR(20),
PO003_AORT CHAR(8),
PO003_EPID CHAR(8),
PO003_COPY DECIMAL(3, 0),
PO003_PRIO DECIMAL(3, 0),
PO003_VPC CHAR(2),
PO003_GEHT_F CHAR(20),
PO003_ZUSA_F CHAR(20),
PO003_GEHT_I CHAR(20),
PO003_ZUSA_I CHAR(20))
IN PO01A1T.A003A;
--
------------------------------------------------------------------------
-- Database=PO01A1T
-- Index=OA1T.IPO003A1 On OA1T.TPO003A1
------------------------------------------------------------------------
--
CREATE UNIQUE INDEX OA1T.IPO003A1
ON OA1T.TPO003A1
(PO003_BUID ASC,
PO003_BKST ASC,
PO003_LIST ASC,
PO003_SQNR ASC)
USING STOGROUP GSMS
PRIQTY 180 SECQTY 7200
FREEPAGE 0 PCTFREE 5;
--
COMMIT;
--
------------------------------------------------------------------------
-- Database=PO01A1T Stogroup=GSMS
-- Tablespace=PO01A1T.A004A
------------------------------------------------------------------------
--
CREATE TABLESPACE A004A
IN PO01A1T
USING STOGROUP GSMS
PRIQTY 180 SECQTY 7200
FREEPAGE 10 PCTFREE 10
SEGSIZE 64
LOCKSIZE ANY
COMPRESS YES;
--
COMMIT;
--
------------------------------------------------------------------------
-- Table=OA1T.TPO004A1 In PO01A1T.A004A
------------------------------------------------------------------------
--
CREATE TABLE OA1T.TPO004A1
(PO004_BUID CHAR(3) NOT NULL WITH DEFAULT,
PO004_BKST CHAR(4) NOT NULL WITH DEFAULT,
PO004_AORT CHAR(8) NOT NULL WITH DEFAULT,
PO004_HWNM_1 CHAR(8),
PO004_HWNM_2 CHAR(8),
PO004_HWNM_3 CHAR(8),
PO004_HWNM_4 CHAR(8))
IN PO01A1T.A004A;
--
------------------------------------------------------------------------
-- Database=PO01A1T
-- Index=OA1T.IPO004A1 On OA1T.TPO004A1
------------------------------------------------------------------------
--
CREATE UNIQUE INDEX OA1T.IPO004A1
ON OA1T.TPO004A1
(PO004_BUID ASC,
PO004_BKST ASC,
PO004_AORT ASC)
USING STOGROUP GSMS
PRIQTY 180 SECQTY 7200
FREEPAGE 0 PCTFREE 5;
--
COMMIT;
--
------------------------------------------------------------------------
-- Database=PO01A1T Stogroup=GSMS
-- Tablespace=PO01A1T.A005A
------------------------------------------------------------------------
--
CREATE TABLESPACE A005A
IN PO01A1T
USING STOGROUP GSMS
PRIQTY 180 SECQTY 7200
FREEPAGE 10 PCTFREE 10
SEGSIZE 64
LOCKSIZE ANY
COMPRESS YES;
--
COMMIT;
--
------------------------------------------------------------------------
-- Table=OA1T.TPO005A1 In PO01A1T.A005A
------------------------------------------------------------------------
--
CREATE TABLE OA1T.TPO005A1
(PO005_HWNM CHAR(8) NOT NULL WITH DEFAULT,
PO005_HWPLZ CHAR(8),
PO005_HWT_A CHAR(1),
PO005_HWT_B CHAR(1),
PO005_HWT_C CHAR(1),
PO005_HWT_G CHAR(1),
PO005_HWT_L CHAR(1),
PO005_HWT_M CHAR(1),
PO005_HWT_N CHAR(1),
PO005_HWT_P CHAR(1),
PO005_HWT_R CHAR(1),
PO005_HWT_S CHAR(1),
PO005_HWT_T CHAR(1),
PO005_HWT_V CHAR(1),
PO005_HWSPL DECIMAL(7, 0),
PO005_HWDEV CHAR(1),
PO005_LOK CHAR(1),
PO005_LAND CHAR(2),
CONSTRAINT PO005_HWNM
PRIMARY KEY (PO005_HWNM))
IN PO01A1T.A005A;
--
------------------------------------------------------------------------
-- Database=PO01A1T
-- Index=OA1T.IPO005A1 On OA1T.TPO005A1
------------------------------------------------------------------------
--
CREATE UNIQUE INDEX OA1T.IPO005A1
ON OA1T.TPO005A1
(PO005_HWNM ASC)
USING STOGROUP GSMS
PRIQTY 180 SECQTY 7200
FREEPAGE 0 PCTFREE 5;
--
COMMIT;
--
------------------------------------------------------------------------
-- Database=PO01A1T Stogroup=GSMS
-- Tablespace=PO01A1T.A006A
------------------------------------------------------------------------
--
CREATE TABLESPACE A006A
IN PO01A1T
USING STOGROUP GSMS
PRIQTY 180 SECQTY 7200
FREEPAGE 10 PCTFREE 10
SEGSIZE 64
LOCKSIZE ANY
COMPRESS YES;
--
COMMIT;
--
------------------------------------------------------------------------
-- Table=OA1T.TPO006A1 In PO01A1T.A006A
------------------------------------------------------------------------
--
CREATE TABLE OA1T.TPO006A1
(PO006_BUID CHAR(3) NOT NULL WITH DEFAULT,
PO006_KBST CHAR(4) NOT NULL WITH DEFAULT,
PO006_LIST CHAR(4) NOT NULL WITH DEFAULT,
PO006_LS CHAR(2) NOT NULL WITH DEFAULT,
PO006_IBST CHAR(4) NOT NULL WITH DEFAULT,
PO006_IPER CHAR(10),
PO006_TS INTEGER,
PO006_UPID CHAR(8),
PO006_DS CHAR(1),
PO006_PER CHAR(1) NOT NULL WITH DEFAULT,
PO006_PEI CHAR(1),
PO006_CPYN CHAR(3),
PO006_BKST CHAR(4) NOT NULL WITH DEFAULT,
PO006_EPID CHAR(8) NOT NULL WITH DEFAULT,
PO006_AORT CHAR(8) NOT NULL WITH DEFAULT,
CONSTRAINT PO006_BUID
PRIMARY KEY (PO006_BUID,
PO006_KBST,
PO006_LIST,
PO006_LS,
PO006_IBST,
PO006_PER,
PO006_BKST,
PO006_EPID,
PO006_AORT))
IN PO01A1T.A006A;
--
------------------------------------------------------------------------
-- Database=PO01A1T
-- Index=OA1T.IPO006A1 On OA1T.TPO006A1
------------------------------------------------------------------------
--
CREATE UNIQUE INDEX OA1T.IPO006A1
ON OA1T.TPO006A1
(PO006_BUID ASC,
PO006_KBST ASC,
PO006_LIST ASC,
PO006_LS ASC,
PO006_IBST ASC,
PO006_PER ASC,
PO006_BKST ASC,
PO006_EPID ASC,
PO006_AORT ASC)
USING STOGROUP GSMS
PRIQTY 180 SECQTY 7200
FREEPAGE 0 PCTFREE 5;
--
COMMIT;
--
--SET CURRENT SQLID='OA1T';
--
--CREATE ALIAS OA1T.TPO001A1 FOR OA1T.TPO001A1 ;
--
--CREATE ALIAS OA1T.TPO002A1 FOR OA1T.TPO002A1 ;
--
--CREATE ALIAS OA1T.TPO003A1 FOR OA1T.TPO003A1 ;
--
--CREATE ALIAS OA1T.TPO004A1 FOR OA1T.TPO004A1 ;
--
--CREATE ALIAS OA1T.TPO005A1 FOR OA1T.TPO005A1 ;
--
--CREATE ALIAS OA1T.TPO006A1 FOR OA1T.TPO006A1 ;
--
COMMIT;
--
-- REBIND command(s) have been written to the CMD file
--
------------------------------------------------------------------------
-- ADB2GEN - End of generated DDL --
------------------------------------------------------------------------
--
//LOA EXEC PGM=DSNUTILB,PARM='DBTF,A540769L.LOAD' 00020001
//SYSMAP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSERR DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
EXEC SQL
DECLARE CUR1 CURSOR FOR
SELECT *
FROM CHSKA000DBZF.OA1Z.TPO001A1
ENDEXEC
LOAD DATA INCURSOR CUR1 LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTS ,TSOUTS )
STATISTICS INDEX(ALL) UPDATE(ALL)
INTO TABLE OA1T.TPO001A1
EXEC SQL
DECLARE CUR2 CURSOR FOR
SELECT *
FROM CHSKA000DBZF.OA1Z.TPO002A1
ENDEXEC
LOAD DATA INCURSOR CUR2 LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTS ,TSOUTS )
STATISTICS INDEX(ALL) UPDATE(ALL)
INTO TABLE OA1T.TPO002A1
EXEC SQL
DECLARE CUR3 CURSOR FOR
SELECT *
FROM CHSKA000DBZF.OA1Z.TPO003A1
ENDEXEC
LOAD DATA INCURSOR CUR3 LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTS ,TSOUTS )
STATISTICS INDEX(ALL) UPDATE(ALL)
INTO TABLE OA1T.TPO003A1
EXEC SQL
DECLARE CUR4 CURSOR FOR
SELECT *
FROM CHSKA000DBZF.OA1Z.TPO004A1
ENDEXEC
LOAD DATA INCURSOR CUR4 LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTS ,TSOUTS )
STATISTICS INDEX(ALL) UPDATE(ALL)
INTO TABLE OA1T.TPO004A1
EXEC SQL
DECLARE CUR5 CURSOR FOR
SELECT *
FROM CHSKA000DBZF.OA1Z.TPO005A1
ENDEXEC
LOAD DATA INCURSOR CUR5 LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTS ,TSOUTS )
STATISTICS INDEX(ALL) UPDATE(ALL)
INTO TABLE OA1T.TPO005A1
EXEC SQL
DECLARE CUR6 CURSOR FOR
SELECT *
FROM CHSKA000DBZF.OA1Z.TPO006A1
ENDEXEC
LOAD DATA INCURSOR CUR6 LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
SORTDEVT DISK SORTNUM 50
WORKDDN(TSYUTS ,TSOUTS )
STATISTICS INDEX(ALL) UPDATE(ALL)
INTO TABLE OA1T.TPO006A1
//BIND EXEC PGM=IKJEFT01,DYNAMNBR=30
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
DSN S(DBTF)
REBIND PACKAGE(PO.POVAORT.(IRA00000425C9242F2));
REBIND PACKAGE(PO.POVAORT.(TRAI0003255C88F619));
END
//SYSTOLD DD *
-- vivo=BSYY con=187D10D018D82B96 tst=2009-03-19-13.53.00.730893
-- vivo=BSYY con=187BF4FD17772A3C tst=2009-03-12-12.26.34.409322