zOs/TX/WK915DDS
------------------------------------------------------------------------
-- --
-- Database 2 Administration Tool (DB2 Admin) , program 5697-L90 --
-- --
-- ADB2GEN - Extract object definitions from the DB2 Catalog tables --
-- --
-- Title : SRC WB01007C 0 --
-- --
-- Input prepared on : DBAF (915) Extract time : 2009-08-25 10:12 --
-- --
-- Catalog values overridden : none
-- --
-- Generate : SG=N DB=Y TS=Y TB=Y VW=Y IX=Y SY=Y AL=Y LB=Y CM=Y FK=Y --
-- TG=Y UT=N UF=N SP=N SQ=N RO=N --
-- Grants : SG=N DB=N TS=N TB=N VW=N SC=N UT=N UF=N SP=N SQ=N --
-- --
------------------------------------------------------------------------
------------------------------------------------------------------------
-- --
-- ADB2GEN: Generate DDL for Table=GDB0135.TWBXYZA1
-- --
------------------------------------------------------------------------
--
------------------------------------------------------------------------
-- Table=GDB0135.TWBXYZA1 In DGDB0135.AXYZA
------------------------------------------------------------------------
--
SET CURRENT SQLID='S100447';
--drop TABLESPACE $db.A915A;
commit;
CREATE TABLESPACE AXYZA
IN DGDB0135
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 GDB0135.TWBXYZA1
(WBXYZ01I DECIMAL(7, 0) NOT NULL,
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,
WBXYZ14A))
IN DGDB0135.AXYZA
AUDIT NONE
DATA CAPTURE NONE
CCSID EBCDIC
NOT VOLATILE;
--
LABEL ON TABLE GDB0135.TWBXYZA1 IS 'EUREX-Kontrahenten';
--
COMMENT ON TABLE GDB0135.TWBXYZA1 IS '?';
--
COMMENT ON GDB0135.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 GDB0135.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;
--
------------------------------------------------------------------------
-- Database=DGDB0135
-- Index=GDB0135.IWBXYZA1 On GDB0135.TWBXYZA1
------------------------------------------------------------------------
--
CREATE UNIQUE INDEX GDB0135.IWBXYZA1
ON GDB0135.TWBXYZA1
(WBXYZ01I ASC,
WBXYZ14A ASC)
USING STOGROUP GSMS
PRIQTY 40 SECQTY 40
ERASE NO
FREEPAGE 10 PCTFREE 10
GBPCACHE CHANGED
CLUSTER
BUFFERPOOL BP1
CLOSE YES
COPY NO
DEFER NO
DEFINE YES
PIECESIZE 2 G;
--
COMMIT;
--
------------------------------------------------------------------------
-- View=GDB0135.VWBXYZA1A
------------------------------------------------------------------------
--
--
SET CURRENT PATH = "SYSIBM","SYSFUN","SYSPROC","GDB0135" ;
--
CREATE VIEW GDB0135.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 GDB0135.TWBXYZA1 ;
--
COMMIT;
--
------------------------------------------------------------------------
-- ADB2GEN - End of generated DDL --
------------------------------------------------------------------------
--