zOs/TX/WK915DDT
------------------------------------------------------------------------
-- --
-- Database 2 Administration Tool (DB2 Admin) , program 5697-L90 --
-- --
-- ADB2GEN - Extract object definitions from the DB2 Catalog tables --
-- --
-- Title : TRG WB01007C 0 --
-- --
-- Input prepared on : DBAF (915) Extract time : 2009-08-25 10:12 --
-- --
-- Catalog values overridden : none
-- --
-- Generate : SG=Y DB=Y TS=Y TB=Y VW=Y IX=Y SY=Y AL=Y LB=Y CM=Y FK=Y --
-- TG=Y UT=Y UF=Y SP=Y SQ=Y RO=Y --
-- Grants : SG=N DB=Y TS=Y TB=Y VW=Y SC=Y UT=Y UF=Y SP=Y SQ=Y --
-- --
------------------------------------------------------------------------
------------------------------------------------------------------------
-- --
-- ADB2GEN: Generate DDL for Table=OA1A.TWBXYZA1
-- --
------------------------------------------------------------------------
--
------------------------------------------------------------------------
-- Table=OA1A.TWBXYZA1 In WB01A1A.AXYZA
------------------------------------------------------------------------
--
SET CURRENT SQLID='S100447';
-- drop TABLESPACE $db.A915A;
commit;
CREATE TABLESPACE AXYZA
IN WB01A1A
USING STOGROUP GSMS
PRIQTY -1 SECQTY -1
FREEPAGE 0 PCTFREE 10
GBPCACHE CHANGED
TRACKMOD YES
BUFFERPOOL BP2
LOCKSIZE ANY
LOCKMAX SYSTEM
CLOSE YES
COMPRESS YES
CCSID EBCDIC
DEFINE YES
MAXROWS 255;
COMMIT;
--
CREATE TABLE OA1A.TWBXYZA1
(WBXYZ01I DECIMAL(7, 0) NOT NULL GENERATED ALWAYS
AS IDENTITY
(START WITH 290000, INCREMENT BY 1, CACHE 20, NO CYCLE,
NO ORDER, MAXVALUE 9999999, MINVALUE 290000),
WBXYZ02A CHAR(6) FOR SBCS DATA NOT NULL,
WBXYZ03A CHAR(6) FOR SBCS DATA NOT NULL,
WBXYZ04A CHAR(6) FOR SBCS DATA NOT NULL,
WBXYZ05A CHAR(6) FOR SBCS DATA NOT NULL,
WBXYZ06A CHAR(30) FOR SBCS DATA NOT NULL,
WBXYZ07A CHAR(6) FOR SBCS DATA NOT NULL,
WBXYZ08A CHAR(8) FOR SBCS DATA NOT NULL,
WBXYZ09A CHAR(6) FOR SBCS DATA NOT NULL,
WBXYZ10A CHAR(6) FOR SBCS DATA NOT NULL
WITH DEFAULT,
WBXYZ11A CHAR(8) FOR SBCS DATA NOT NULL
WITH DEFAULT,
WBXYZ12A CHAR(6) FOR SBCS DATA NOT NULL
WITH DEFAULT,
WBXYZ13A CHAR(6) FOR SBCS DATA NOT NULL
WITH DEFAULT,
WBXYZ14A CHAR(8) FOR SBCS DATA NOT NULL
WITH DEFAULT,
WBXYZ15A CHAR(8) FOR SBCS DATA NOT NULL
WITH DEFAULT,
WBXYZ16A CHAR(1) FOR SBCS DATA NOT NULL
WITH DEFAULT,
CONSTRAINT WBXYZ01I
PRIMARY KEY (WBXYZ01I))
IN WB01A1A.AXYZA
AUDIT NONE
DATA CAPTURE NONE
CCSID EBCDIC
NOT VOLATILE;
--
LABEL ON TABLE OA1A.TWBXYZA1 IS 'CODES';
--
COMMENT ON OA1A.TWBXYZA1
(WBXYZ16A IS 'KENNZEICHEN EBS-REPORTED / DB2: EKZ',
WBXYZ15A IS 'GUELTIG-BIS-DATUM / DB2: EGUELBIS',
WBXYZ14A IS 'GUELTIG-AB-DATUM / DB2: EGUELVON',
WBXYZ13A IS 'ANERKANNTE BÖRSE / DB2: ECEDEL',
WBXYZ12A IS 'EUROCLEAR / DB2: EEUROCLR',
WBXYZ11A IS 'SECOM / DB2: ESECOM',
WBXYZ10A IS 'SEGA-NR / DB2: ESEGA',
WBXYZ09A IS 'MUTATIONSZEIT / DB2: EMUTTIM',
WBXYZ08A IS 'MUTATIONSDATUM / DB2: EMUTDAT',
WBXYZ07A IS 'MUTATIONSPROGRAMM / DB2: EMUTPGM',
WBXYZ06A IS 'WS80-GESCHAEFTSART-BEZEICHUNG / DB2: ENAME30',
WBXYZ05A IS 'WS80-GESCHAEFTSART / DB2: EKBZ',
WBXYZ04A IS 'ISO-CODE-BEZEICHNUNG / DB2: ECODISO',
WBXYZ03A IS 'TELEKURS-CODE-BEZEICHNUNG / DB2: ECODTK',
WBXYZ02A IS 'SKA-CODE-BEZEICHUNG / DB2: ECODSKA',
WBXYZ01I IS 'Objekt-Id der Tabellenrow Primary-Key');
--
LABEL ON OA1A.TWBXYZA1
(WBXYZ16A IS 'EKZ',
WBXYZ15A IS 'EGUELBIS',
WBXYZ14A IS 'EGUELVON',
WBXYZ13A IS 'ECEDEL',
WBXYZ12A IS 'EEUROCLR',
WBXYZ11A IS 'ESECOM',
WBXYZ10A IS 'ESEGA',
WBXYZ09A IS 'EMUTTIM',
WBXYZ08A IS 'EMUTDAT',
WBXYZ07A IS 'EMUTPGM',
WBXYZ06A IS 'ENAME30',
WBXYZ05A IS 'EKBZ',
WBXYZ04A IS 'ECODISO',
WBXYZ03A IS 'ECODTK',
WBXYZ02A IS 'ECODSKA',
WBXYZ01I IS 'EOBJID#');
--
COMMIT;
--
--
------------------------------------------------------------------------
-- Stogroup=GSMS
------------------------------------------------------------------------
--
--
------------------------------------------------------------------------
CREATE UNIQUE INDEX OA1A.IWBXYZA1
ON OA1A.TWBXYZA1
(WBXYZ01I ASC)
USING STOGROUP GSMS
PRIQTY 12 SECQTY 7200
ERASE NO
FREEPAGE 10 PCTFREE 10
GBPCACHE CHANGED
CLUSTER
BUFFERPOOL BP1
CLOSE YES
COPY NO
DEFER NO
DEFINE YES
PIECESIZE 2 G;
--
COMMIT;
--
------------------------------------------------------------------------
-- View=OA1A.VWBXYZA1A
------------------------------------------------------------------------
--
--
SET CURRENT PATH = "SYSIBM","SYSFUN","SYSPROC","GDB0135" ;
--
CREATE VIEW OA1A.VWBXYZA1A(EOBJID#, ECODSKA, ECODTK, ECODISO, EKBZ,
ENAME30, EMUTPGM, EMUTDAT, EMUTTIM, ESEGA, ESECOM, EEUROCLR,
ECEDEL, EGUELVON, EGUELBIS, EKZ) AS
SELECT ALL WBXYZ01I, WBXYZ02A, WBXYZ03A, WBXYZ04A, WBXYZ05A,
WBXYZ06A, WBXYZ07A, WBXYZ08A, WBXYZ09A, WBXYZ10A, WBXYZ11A,
WBXYZ12A, WBXYZ13A, WBXYZ14A, WBXYZ15A, WBXYZ16A
FROM oa1a.TWBXYZA1 ;
--
COMMIT;
--
------------------------------------------------------------------------
-- ADB2GEN - End of generated DDL --
------------------------------------------------------------------------
--