--********************************************************************
--*                                                                  *
--*    THIS DDL DEFINES DI/CLIENT V3.1 CUSTTIME ON DB2 FOR MVS       *
--*    -------------------------------------------------------       *
--*                                                                  *
--* IF YOU WILL BE DEFINING THESE TABLES IN THE SAME DB2 SUBSYSTEM   *
--* WITH YOUR EXISTING DI/MVS HOST TABLES, THEN CONSIDER THE         *
--* FOLLOWING:                                                       *
--*                                                                  *
--* - FOR CONVENIENCE, A NEW STORAGE GROUP (EDISG31C) AND DATABASE   *
--*   (EDIDB31C) ARE CREATED FOR DEFINING CUSTTIME OBJECTS.  IF      *
--*   DESIRED, YOU CAN INSTEAD USE THE SAME STORAGE GROUP AND        *
--*   DATABASE THAT WERE PREVIOUSLY DEFINED DURING THE DI/MVS HOST   *
--*   INSTALLATION (STOGROUP EDISG311 AND DATABASE EDIDB31E).        *
--*                                                                  *
--* - THE CUSTTIME DEFINITIONS HEREIN USE "EDIENU31" AS THE SQLID    *
--*   AND HIGH-LEVEL-QUALIFIER.  THIS IS THE SAME AS THAT WHICH WAS  *
--*   PROVIDED DURING THE DI/MVS HOST INSTALLATION.  YOU CAN CHOOSE  *
--*   YOUR OWN HIGH-LEVEL-QUALIFIER (AND SQLID) IF DESIRED, AND IT   *
--*   CAN DIFFER FROM WHAT WAS USED DURING THE HOST INSTALLATION.    *
--*   HOWEVER, IF THE VALUE HERE MATCHES THE HOST INSTALLATION, YOU  *
--*   WILL ENCOUNTER DUPLICATE CONDITIONS WHILE DEFINING OBJECTS     *
--*   ASSOCIATED WITH TWO TABLESPACES; EDIPSDI AND EDITPCM.  AND,    *
--*   THE SUBSEQUENT INSERT STATEMENT PERTAINING TO EDIPSDI WILL     *
--*   FAIL WITH A DUPLICATE ROW CONDITION.  YOU CAN IGNORE THESE     *
--*   CONDITIONS AND CONTINUE, OR REMOVE THESE SECTIONS PRIOR TO     *
--*   EXECUTION.                                                     *
--*                                                                  *
--* WHILE THE INSERTS HEREIN ARE NECESSARY, IT IS NOT NECESSARY TO   *
--* LOAD DATA INTO THESE TABLES PRIOR TO USE.                        *
--*                                                                  *
--********************************************************************

  SET CURRENT SQLID='EDIENU31';

  CREATE STOGROUP EDISG31C
         VOLUMES(VVVVVV)
         VCAT EDICAT;

  CREATE DATABASE EDIDB31C
         STOGROUP EDISG31C
         BUFFERPOOL BP0;
  COMMIT;


--********************************************************************
--* CREATE THE DB2 CUSTTIME OBJECTS                                  *
--********************************************************************

  CREATE TABLESPACE ADFDICT
    IN EDIDB31C
    USING STOGROUP EDISG31C
      PRIQTY 50
      SECQTY 25
      ERASE NO
    LOCKSIZE PAGE
    BUFFERPOOL BP0
    SEGSIZE  4
    CLOSE NO;

  CREATE TABLE EDIENU31.EDIADFDICT(
    DICTIONARYNAME    CHAR(30)     NOT NULL,
    LOGLOCK           CHAR(1),
    LASTUID           CHAR(17),
    LASTUDT           INTEGER,
    DESCRIPT          VARCHAR(50),
    CMTTEXT           VARCHAR(2048),
    PRIMARY KEY (DICTIONARYNAME))
  IN EDIDB31C.ADFDICT;

  CREATE UNIQUE INDEX EDIENU31.EDIADFDICTX
    ON EDIENU31.EDIADFDICT(DICTIONARYNAME)
    USING STOGROUP EDISG31C
      PRIQTY 25
      SECQTY 10
      ERASE NO
    SUBPAGES 8
    BUFFERPOOL BP0
    CLOSE NO;


  CREATE TABLESPACE ADFFIELD
    IN EDIDB31C
    USING STOGROUP EDISG31C
      PRIQTY 5000
      SECQTY 2500
      ERASE NO
    LOCKSIZE PAGE
    BUFFERPOOL BP0
    SEGSIZE  4
    CLOSE NO;

  CREATE TABLE EDIENU31.EDIADFFIELD(
    DICTIONARYNAME    CHAR(30)     NOT NULL,
    FIELDNAME         CHAR(30)     NOT NULL,
    DATATYPE          CHAR(2),
    FIELDLEN          INTEGER,
    SENDMAP           SMALLINT,
    RECEIVEMAP        SMALLINT,
    VALTBLNAME        CHAR(8),
    LOGLOCK           CHAR(1),
    LASTUID           CHAR(17),
    LASTUDT           INTEGER,
    MAPCMDS           VARCHAR(80),
    DESCRIPT          VARCHAR(50),
    CMTTEXT           VARCHAR(2048),
    PRIMARY KEY (DICTIONARYNAME,FIELDNAME),
    FOREIGN KEY EDIDIC1  (DICTIONARYNAME)
       REFERENCES EDIENU31.EDIADFDICT
       ON DELETE CASCADE)
  IN EDIDB31C.ADFFIELD;

  CREATE UNIQUE INDEX EDIENU31.EDIADFFIELDX
    ON EDIENU31.EDIADFFIELD(DICTIONARYNAME,FIELDNAME)
    USING STOGROUP EDISG31C
      PRIQTY 2000
      SECQTY 800
      ERASE NO
    SUBPAGES 8
    BUFFERPOOL BP0
    CLOSE NO;

  CREATE INDEX EDIENU31.EDIADFFIELDY
    ON EDIENU31.EDIADFFIELD(DICTIONARYNAME)
    USING STOGROUP EDISG31C
      PRIQTY 1000
      SECQTY 400
      ERASE NO
    SUBPAGES 8
    BUFFERPOOL BP0
    CLOSE NO;


  CREATE TABLESPACE ADFRINFO
    IN EDIDB31C
    USING STOGROUP EDISG31C
      PRIQTY 50
      SECQTY 25
      ERASE NO
    LOCKSIZE PAGE
    BUFFERPOOL BP0
    SEGSIZE  4
    CLOSE NO;

  CREATE TABLE EDIENU31.EDIADFRECIDINFO(
    RECIDINFONAME     CHAR(30)     NOT NULL,
    ADFTYPE           SMALLINT,
    RECIDPOS          INTEGER,
    RECIDLEN          INTEGER,
    RECIDTYPE         CHAR(2),
    LOGLOCK           CHAR(1),
    LASTUID           CHAR(17),
    LASTUDT           INTEGER,
    DESCRIPT          VARCHAR(50),
    CMTTEXT           VARCHAR(2048),
    PRIMARY KEY (RECIDINFONAME))
  IN EDIDB31C.ADFRINFO;

  CREATE UNIQUE INDEX EDIENU31.EDIADFRECIDINFOX
    ON EDIENU31.EDIADFRECIDINFO(RECIDINFONAME)
    USING STOGROUP EDISG31C
      PRIQTY 50
      SECQTY 20
      ERASE NO
    SUBPAGES 8
    BUFFERPOOL BP0
    CLOSE NO;


  CREATE TABLESPACE ADFHDR
    IN EDIDB31C
    USING STOGROUP EDISG31C
      PRIQTY 50
      SECQTY 25
      ERASE NO
    LOCKSIZE PAGE
    BUFFERPOOL BP0
    SEGSIZE  4
    CLOSE NO;

  CREATE TABLE EDIENU31.EDIADFHEADER(
    DICTIONARYNAME    CHAR(30)     NOT NULL,
    ADFNAME           CHAR(16)     NOT NULL,
    RECIDINFONAME     CHAR(30)     NOT NULL,
    DDNAME            CHAR(8),
    FILETYPE          CHAR(2),
    TRADPARTIDFLD     CHAR(30),
    BEGRECID          CHAR(30),
    ENDRECID          CHAR(30),
    GENRTCDE          CHAR(30),
    INTSNDQ           CHAR(30),
    INTSNDID          CHAR(30),
    INTRCVQ           CHAR(30),
    INTRCVID          CHAR(30),
    EDITPID           CHAR(30),
    APPLTPID          CHAR(30),
    LOGLOCK           CHAR(1),
    LASTUID           CHAR(17),
    LASTUDT           INTEGER,
    DESCRIPT          VARCHAR(50),
    CMTTEXT           VARCHAR(2048),
    PRIMARY KEY (DICTIONARYNAME,ADFNAME),
    FOREIGN KEY EDIDIC2  (DICTIONARYNAME)
       REFERENCES EDIENU31.EDIADFDICT
       ON DELETE CASCADE,
    FOREIGN KEY EDIDIC2A (RECIDINFONAME)
       REFERENCES EDIENU31.EDIADFRECIDINFO
       ON DELETE CASCADE)
  IN EDIDB31C.ADFHDR;

  CREATE UNIQUE INDEX EDIENU31.EDIADFHEADERX
    ON EDIENU31.EDIADFHEADER(DICTIONARYNAME,ADFNAME)
    USING STOGROUP EDISG31C
      PRIQTY 50
      SECQTY 20
      ERASE NO
    SUBPAGES 8
    BUFFERPOOL BP0
    CLOSE NO;

  CREATE INDEX EDIENU31.EDIADFHEADERY
    ON EDIENU31.EDIADFHEADER(RECIDINFONAME)
    USING STOGROUP EDISG31C
      PRIQTY 50
      SECQTY 20
      ERASE NO
    SUBPAGES 8
    BUFFERPOOL BP0
    CLOSE NO;

  CREATE INDEX EDIENU31.EDIADFHEADERZ
    ON EDIENU31.EDIADFHEADER(DICTIONARYNAME)
    USING STOGROUP EDISG31C
      PRIQTY 50
      SECQTY 20
      ERASE NO
    SUBPAGES 8
    BUFFERPOOL BP0
    CLOSE NO;


  CREATE TABLESPACE ADFHDMEM
    IN EDIDB31C
    USING STOGROUP EDISG31C
      PRIQTY 100
      SECQTY 50
      ERASE NO
    LOCKSIZE PAGE
    BUFFERPOOL BP0
    SEGSIZE  4
    CLOSE NO;

  CREATE TABLE EDIENU31.EDIADFHDRMEM(
    DICTIONARYNAME    CHAR(30)     NOT NULL,
    ADFNAME           CHAR(16)     NOT NULL,
    SEQNUM            INTEGER      NOT NULL,
    MEMBERNAME        CHAR(30),
    MEMBERTYPE        CHAR(8),
    AREA              CHAR(16),
    MAXUSE            INTEGER,
    INFLOOP           SMALLINT,
    PRIMARY KEY (DICTIONARYNAME,ADFNAME,SEQNUM),
    FOREIGN KEY EDIDIC3  (DICTIONARYNAME, ADFNAME)
       REFERENCES EDIENU31.EDIADFHEADER
       ON DELETE CASCADE)
  IN EDIDB31C.ADFHDMEM;

  CREATE UNIQUE INDEX EDIENU31.EDIADFHDRMEMX
    ON EDIENU31.EDIADFHDRMEM(DICTIONARYNAME,ADFNAME,SEQNUM)
    USING STOGROUP EDISG31C
      PRIQTY 50
      SECQTY 20
      ERASE NO
    SUBPAGES 8
    BUFFERPOOL BP0
    CLOSE NO;

  CREATE INDEX EDIENU31.EDIADFHDRMEMY
    ON EDIENU31.EDIADFHDRMEM(DICTIONARYNAME,ADFNAME)
    USING STOGROUP EDISG31C
      PRIQTY 50
      SECQTY 20
      ERASE NO
    SUBPAGES 8
    BUFFERPOOL BP0
    CLOSE NO;

  CREATE TABLESPACE ADFLOOP
    IN EDIDB31C
    USING STOGROUP EDISG31C
      PRIQTY 50
      SECQTY 25
      ERASE NO
    LOCKSIZE PAGE
    BUFFERPOOL BP0
    SEGSIZE  4
    CLOSE NO;

  CREATE TABLE EDIENU31.EDIADFLOOP(
    DICTIONARYNAME    CHAR(30)     NOT NULL,
    LOOPNAME          CHAR(30)     NOT NULL,
    RECIDINFONAME     CHAR(30)     NOT NULL,
    LOGLOCK           CHAR(1),
    LASTUID           CHAR(17),
    LASTUDT           INTEGER,
    DESCRIPT          VARCHAR(50),
    CMTTEXT           VARCHAR(2048),
    PRIMARY KEY (DICTIONARYNAME,LOOPNAME),
    FOREIGN KEY EDIDIC4  (DICTIONARYNAME)
       REFERENCES EDIENU31.EDIADFDICT
       ON DELETE CASCADE,
    FOREIGN KEY EDIDIC4A (RECIDINFONAME)
       REFERENCES EDIENU31.EDIADFRECIDINFO
       ON DELETE CASCADE)
  IN EDIDB31C.ADFLOOP;

  CREATE UNIQUE INDEX EDIENU31.EDIADFLOOPX
    ON EDIENU31.EDIADFLOOP(DICTIONARYNAME,LOOPNAME)
    USING STOGROUP EDISG31C
      PRIQTY 50
      SECQTY 20
      ERASE NO
    SUBPAGES 8
    BUFFERPOOL BP0
    CLOSE NO;

  CREATE INDEX EDIENU31.EDIADFLOOPY
    ON EDIENU31.EDIADFLOOP(DICTIONARYNAME)
    USING STOGROUP EDISG31C
      PRIQTY 50
      SECQTY 20
      ERASE NO
    SUBPAGES 8
    BUFFERPOOL BP0
    CLOSE NO;

  CREATE INDEX EDIENU31.EDIADFLOOPZ
    ON EDIENU31.EDIADFLOOP(RECIDINFONAME)
    USING STOGROUP EDISG31C
      PRIQTY 50
      SECQTY 20
      ERASE NO
    SUBPAGES 8
    BUFFERPOOL BP0
    CLOSE NO;


  CREATE TABLESPACE ADFLPMEM
    IN EDIDB31C
    USING STOGROUP EDISG31C
      PRIQTY 100
      SECQTY 50
      ERASE NO
    LOCKSIZE PAGE
    BUFFERPOOL BP0
    SEGSIZE  4
    CLOSE NO;

  CREATE TABLE EDIENU31.EDIADFLOOPMEM(
    DICTIONARYNAME    CHAR(30)     NOT NULL,
    LOOPNAME          CHAR(30)     NOT NULL,
    SEQNUM            INTEGER      NOT NULL,
    MEMBERNAME        CHAR(30),
    MEMBERTYPE        CHAR(8),
    MAXUSE            INTEGER,
    INFLOOP           SMALLINT,
    PRIMARY KEY (DICTIONARYNAME,LOOPNAME,SEQNUM),
    FOREIGN KEY EDIDIC5  (DICTIONARYNAME, LOOPNAME)
       REFERENCES EDIENU31.EDIADFLOOP
       ON DELETE CASCADE)
  IN EDIDB31C.ADFLPMEM;

  CREATE UNIQUE INDEX EDIENU31.EDIADFLOOPMEMX
    ON EDIENU31.EDIADFLOOPMEM(DICTIONARYNAME,LOOPNAME,SEQNUM)
    USING STOGROUP EDISG31C
      PRIQTY 100
      SECQTY 40
      ERASE NO
    SUBPAGES 8
    BUFFERPOOL BP0
    CLOSE NO;

  CREATE INDEX EDIENU31.EDIADFLOOPMEMY
    ON EDIENU31.EDIADFLOOPMEM(DICTIONARYNAME,LOOPNAME)
    USING STOGROUP EDISG31C
      PRIQTY 50
      SECQTY 20
      ERASE NO
    SUBPAGES 8
    BUFFERPOOL BP0
    CLOSE NO;


  CREATE TABLESPACE ADFRECRD
    IN EDIDB31C
    USING STOGROUP EDISG31C
      PRIQTY 200
      SECQTY 100
      ERASE NO
    LOCKSIZE PAGE
    BUFFERPOOL BP0
    SEGSIZE  4
    CLOSE NO;

  CREATE TABLE EDIENU31.EDIADFRECORD(
    DICTIONARYNAME    CHAR(30)     NOT NULL,
    RECORDNAME        CHAR(30)     NOT NULL,
    RECIDINFONAME     CHAR(30)     NOT NULL,
    RECORDID          CHAR(16),
    LOGLOCK           CHAR(1),
    LASTUID           CHAR(17),
    LASTUDT           INTEGER,
    DESCRIPT          VARCHAR(50),
    CMTTEXT           VARCHAR(2048),
    PRIMARY KEY (DICTIONARYNAME,RECORDNAME),
    FOREIGN KEY EDIDIC6  (DICTIONARYNAME)
       REFERENCES EDIENU31.EDIADFDICT
       ON DELETE CASCADE,
    FOREIGN KEY EDIDIC6A (RECIDINFONAME)
       REFERENCES EDIENU31.EDIADFRECIDINFO
       ON DELETE CASCADE)
  IN EDIDB31C.ADFRECRD;

  CREATE UNIQUE INDEX EDIENU31.EDIADFRECORDX
    ON EDIENU31.EDIADFRECORD(DICTIONARYNAME,RECORDNAME)
    USING STOGROUP EDISG31C
      PRIQTY 100
      SECQTY 40
      ERASE NO
    SUBPAGES 8
    BUFFERPOOL BP0
    CLOSE NO;

  CREATE INDEX EDIENU31.EDIADFRECORDY
    ON EDIENU31.EDIADFRECORD(DICTIONARYNAME)
    USING STOGROUP EDISG31C
      PRIQTY 50
      SECQTY 20
      ERASE NO
    SUBPAGES 8
    BUFFERPOOL BP0
    CLOSE NO;

  CREATE INDEX EDIENU31.EDIADFRECORDZ
    ON EDIENU31.EDIADFRECORD(RECIDINFONAME)
    USING STOGROUP EDISG31C
      PRIQTY 50
      SECQTY 20
      ERASE NO
    SUBPAGES 8
    BUFFERPOOL BP0
    CLOSE NO;


  CREATE TABLESPACE ADFRECM
    IN EDIDB31C
    USING STOGROUP EDISG31C
      PRIQTY 1000
      SECQTY 500
      ERASE NO
    LOCKSIZE PAGE
    BUFFERPOOL BP0
    SEGSIZE  4
    CLOSE NO;

  CREATE TABLE EDIENU31.EDIADFRECMEM(
    DICTIONARYNAME    CHAR(30)     NOT NULL,
    RECORDNAME        CHAR(30)     NOT NULL,
    SEQNUM            INTEGER      NOT NULL,
    MEMBERNAME        CHAR(30),
    MEMBERTYPE        CHAR(8),
    MAXUSE            INTEGER,
    PRIMARY KEY (DICTIONARYNAME,RECORDNAME,SEQNUM),
    FOREIGN KEY EDIDIC7  (DICTIONARYNAME, RECORDNAME)
       REFERENCES EDIENU31.EDIADFRECORD
       ON DELETE CASCADE)
  IN EDIDB31C.ADFRECM;

  CREATE UNIQUE INDEX EDIENU31.EDIADFRECMEMX
    ON EDIENU31.EDIADFRECMEM(DICTIONARYNAME,RECORDNAME,SEQNUM)
    USING STOGROUP EDISG31C
      PRIQTY 300
      SECQTY 120
      ERASE NO
    SUBPAGES 8
    BUFFERPOOL BP0
    CLOSE NO;

  CREATE INDEX EDIENU31.EDIADFRECMEMY
    ON EDIENU31.EDIADFRECMEM(DICTIONARYNAME,RECORDNAME)
    USING STOGROUP EDISG31C
      PRIQTY 100
      SECQTY 40
      ERASE NO
    SUBPAGES 8
    BUFFERPOOL BP0
    CLOSE NO;


  CREATE TABLESPACE ADFSTRUC
    IN EDIDB31C
    USING STOGROUP EDISG31C
      PRIQTY 400
      SECQTY 200
      ERASE NO
    LOCKSIZE PAGE
    BUFFERPOOL BP0
    SEGSIZE  4
    CLOSE NO;

  CREATE TABLE EDIENU31.EDIADFSTRUCT(
    DICTIONARYNAME    CHAR(30)     NOT NULL,
    STRUCTNAME        CHAR(30)     NOT NULL,
    LOGLOCK           CHAR(1),
    LASTUID           CHAR(17),
    LASTUDT           INTEGER,
    DESCRIPT          VARCHAR(50),
    CMTTEXT           VARCHAR(2048),
    PRIMARY KEY (DICTIONARYNAME,STRUCTNAME),
    FOREIGN KEY EDIDIC8  (DICTIONARYNAME)
       REFERENCES EDIENU31.EDIADFDICT
       ON DELETE CASCADE)
  IN EDIDB31C.ADFSTRUC;

  CREATE UNIQUE INDEX EDIENU31.EDIADFSTRUCTX
    ON EDIENU31.EDIADFSTRUCT(DICTIONARYNAME,STRUCTNAME)
    USING STOGROUP EDISG31C
      PRIQTY 100
      SECQTY 40
      ERASE NO
    SUBPAGES 8
    BUFFERPOOL BP0
    CLOSE NO;

  CREATE INDEX EDIENU31.EDIADFSTRUCTY
    ON EDIENU31.EDIADFSTRUCT(DICTIONARYNAME)
    USING STOGROUP EDISG31C
      PRIQTY 50
      SECQTY 20
      ERASE NO
    SUBPAGES 8
    BUFFERPOOL BP0
    CLOSE NO;


  CREATE TABLESPACE ADFSTRM
    IN EDIDB31C
    USING STOGROUP EDISG31C
      PRIQTY 2000
      SECQTY 200
      ERASE NO
    LOCKSIZE PAGE
    BUFFERPOOL BP0
    SEGSIZE  4
    CLOSE NO;

  CREATE TABLE EDIENU31.EDIADFSTRUCTMEM(
    DICTIONARYNAME    CHAR(30)     NOT NULL,
    STRUCTNAME        CHAR(30)     NOT NULL,
    SEQNUM            INTEGER      NOT NULL,
    MEMBERNAME        CHAR(30),
    MEMBERTYPE        CHAR(8),
    MAXUSE            INTEGER,
    PRIMARY KEY (DICTIONARYNAME,STRUCTNAME,SEQNUM),
    FOREIGN KEY EDIDIC9  (DICTIONARYNAME, STRUCTNAME)
       REFERENCES EDIENU31.EDIADFSTRUCT
       ON DELETE CASCADE)
  IN EDIDB31C.ADFSTRM;

  CREATE UNIQUE INDEX EDIENU31.EDIADFSTRUCTMEMX
    ON EDIENU31.EDIADFSTRUCTMEM(DICTIONARYNAME,STRUCTNAME,SEQNUM)
    USING STOGROUP EDISG31C
      PRIQTY 600
      SECQTY 240
      ERASE NO
    SUBPAGES 8
    BUFFERPOOL BP0
    CLOSE NO;

  CREATE INDEX EDIENU31.EDIADFSTRUCTMEMY
    ON EDIENU31.EDIADFSTRUCTMEM(DICTIONARYNAME,STRUCTNAME)
    USING STOGROUP EDISG31C
      PRIQTY 200
      SECQTY 80
      ERASE NO
    SUBPAGES 8
    BUFFERPOOL BP0
    CLOSE NO;


  CREATE TABLESPACE MAPHEAD
    IN EDIDB31C
    USING STOGROUP EDISG31C
      PRIQTY 50
      SECQTY 25
      ERASE NO
    LOCKSIZE PAGE
    BUFFERPOOL BP0
    SEGSIZE  4
    CLOSE NO;

  CREATE TABLE EDIENU31.EDIMAPHEAD(
    MAPID             CHAR(16)     NOT NULL,
    STDID             CHAR(8),
    TRNID             CHAR(8),
    DICTIONARYNAME    CHAR(30),
    ADFID             CHAR(16),
    SENDRCV           CHAR(1),
    COMPREQD          CHAR(1),
    CMPCHK            CHAR(1),
    LASTUID           CHAR(17),
    LASTUDT           INTEGER,
    LOGLOCK           CHAR(1),
    DESCRIPT          VARCHAR(50),
    PRIMARY KEY (MAPID))
  IN EDIDB31C.MAPHEAD;

  CREATE UNIQUE INDEX EDIENU31.EDIMAPHEADX
    ON EDIENU31.EDIMAPHEAD(MAPID)
    USING STOGROUP EDISG31C
      PRIQTY 100
      SECQTY 40
      ERASE NO
    SUBPAGES 8
    BUFFERPOOL BP0
    CLOSE NO;


  CREATE TABLESPACE MAPAPCTL
    IN EDIDB31C
    USING STOGROUP EDISG31C
      PRIQTY 60
      SECQTY 30
      ERASE NO
    LOCKSIZE PAGE
    BUFFERPOOL BP0
    SEGSIZE  4
    CLOSE NO;

  CREATE TABLE EDIENU31.EDIMAPAPPLCNTL(
    MAPID             CHAR(16)     NOT NULL,
    UNIQUEID          SMALLINT     NOT NULL,
    SEQNO             SMALLINT,
    FIELD             CHAR(30),
    LENGTH            SMALLINT,
    PATH              VARCHAR(255),
    PRIMARY KEY (MAPID,UNIQUEID),
    FOREIGN KEY EDIMAP1  (MAPID)
       REFERENCES EDIENU31.EDIMAPHEAD
       ON DELETE CASCADE)
  IN EDIDB31C.MAPAPCTL;

  CREATE UNIQUE INDEX EDIENU31.EDIMAPAPPLCNTLX
    ON EDIENU31.EDIMAPAPPLCNTL(MAPID,UNIQUEID)
    USING STOGROUP EDISG31C
      PRIQTY 50
      SECQTY 20
      ERASE NO
    SUBPAGES 8
    BUFFERPOOL BP0
    CLOSE NO;

  CREATE INDEX EDIENU31.EDIMAPAPPLCNTLY
    ON EDIENU31.EDIMAPAPPLCNTL(MAPID)
    USING STOGROUP EDISG31C
      PRIQTY 50
      SECQTY 20
      ERASE NO
    SUBPAGES 8
    BUFFERPOOL BP0
    CLOSE NO;


  CREATE TABLESPACE MAPSEG
    IN EDIDB31C
    USING STOGROUP EDISG31C
      PRIQTY 2000
      SECQTY 1000
      ERASE NO
    LOCKSIZE PAGE
    BUFFERPOOL BP0
    SEGSIZE  4
    CLOSE NO;

  CREATE TABLE EDIENU31.EDIMAPSEG(
    MAPID             CHAR(16)     NOT NULL,
    TABLENO           SMALLINT     NOT NULL,
    POSNO             SMALLINT     NOT NULL,
    OCCURNO           SMALLINT     NOT NULL,
    PARTABLENO        SMALLINT,
    PARPOSNO          SMALLINT,
    PAROCCURNO        SMALLINT,
    DEEPSEQNO         SMALLINT,
    QUALOCCURNO       INTEGER,
    QUALELEPOS        SMALLINT,
    QUALSUBELEPOS     SMALLINT,
    SEGLOOPQUAL       CHAR(45),
    HLNODENO          INTEGER,
    HLPARENTNODENO    INTEGER,
    HL03CODE          CHAR(2),
    HLPARENTHL03      CHAR(2),
    HLFIELDHL03       CHAR(30),
    HLFIELDPARENTHL03 CHAR(30),
    COMPILE           CHAR(1),
    ALWAYSFLAG        CHAR(1),
    PATH              VARCHAR(255),
    BSNIPET           VARCHAR(80),
    ASNIPET           VARCHAR(80),
    COMMENTS          VARCHAR(2048),
    PRIMARY KEY (MAPID,TABLENO,POSNO,OCCURNO),
    FOREIGN KEY EDIMAP3  (MAPID)
       REFERENCES EDIENU31.EDIMAPHEAD
       ON DELETE CASCADE)
  IN EDIDB31C.MAPSEG;

  CREATE UNIQUE INDEX EDIENU31.EDIMAPSEGX
    ON EDIENU31.EDIMAPSEG(MAPID,TABLENO,POSNO,OCCURNO)
    USING STOGROUP EDISG31C
      PRIQTY 400
      SECQTY 160
      ERASE NO
    SUBPAGES 8
    BUFFERPOOL BP0
    CLOSE NO;

  CREATE INDEX EDIENU31.EDIMAPSEGY
    ON EDIENU31.EDIMAPSEG(MAPID)
    USING STOGROUP EDISG31C
      PRIQTY 100
      SECQTY 40
      ERASE NO
    SUBPAGES 8
    BUFFERPOOL BP0
    CLOSE NO;

  CREATE INDEX EDIENU31.EDIMAPSEGZ
    ON EDIENU31.EDIMAPSEG(MAPID,TABLENO,POSNO,PARTABLENO,
                          PARPOSNO,PAROCCURNO)
    USING STOGROUP EDISG31C
      PRIQTY 800
      SECQTY 320
      ERASE NO
    SUBPAGES 8
    BUFFERPOOL BP0
    CLOSE NO;


  CREATE TABLESPACE MAPELEM
    IN EDIDB31C
    USING STOGROUP EDISG31C
      PRIQTY 5000
      SECQTY 2500
      ERASE NO
    LOCKSIZE PAGE
    BUFFERPOOL BP0
    SEGSIZE  4
    CLOSE NO;

  CREATE TABLE EDIENU31.EDIMAPELE(
    MAPID             CHAR(16)     NOT NULL,
    TABLENO           SMALLINT     NOT NULL,
    POSNO             SMALLINT     NOT NULL,
    OCCURNO           SMALLINT     NOT NULL,
    ELEPOSNO          SMALLINT     NOT NULL,
    SUBELEPOSNO       SMALLINT     NOT NULL,
    ELEOCCURNO        SMALLINT     NOT NULL,
    FIELD             CHAR(30),
    QUALELEPOSNO      SMALLINT,
    QUALSUBELEPOSNO   SMALLINT,
    QUALELEOCCUR      SMALLINT,
    ELEMENTQUAL       CHAR(45),
    TRANTABLE         CHAR(8),
    USEREXIT          CHAR(8),
    CODELIST          CHAR(8),
    DATEEDIT          SMALLINT,
    SUBCATPOS         SMALLINT,
    SUBCATLENGTH      SMALLINT,
    ACCUM1            CHAR(2),
    ACTION1           CHAR(2),
    ACCUM2            CHAR(2),
    ACTION2           CHAR(2),
    ACCUM3            CHAR(2),
    ACTION3           CHAR(2),
    ACCUM4            CHAR(2),
    ACTION4           CHAR(2),
    PATH              VARCHAR(255),
    SNIPET            VARCHAR(80),
    COMMENTS          VARCHAR(2048),
    PRIMARY KEY (MAPID,TABLENO,POSNO,OCCURNO,ELEPOSNO,
      SUBELEPOSNO,ELEOCCURNO),
    FOREIGN KEY EDIMAP2  (MAPID, TABLENO, POSNO, OCCURNO)
       REFERENCES EDIENU31.EDIMAPSEG
       ON DELETE CASCADE)
  IN EDIDB31C.MAPELEM;

  CREATE UNIQUE INDEX EDIENU31.EDIMAPELEX
    ON EDIENU31.EDIMAPELE(MAPID,TABLENO,POSNO,OCCURNO,
      ELEPOSNO,SUBELEPOSNO,ELEOCCURNO)
    USING STOGROUP EDISG31C
      PRIQTY 2000
      SECQTY 800
      ERASE NO
    SUBPAGES 8
    BUFFERPOOL BP0
    CLOSE NO;

  CREATE INDEX EDIENU31.EDIMAPELEY
    ON EDIENU31.EDIMAPELE(MAPID,TABLENO,POSNO,OCCURNO)
    USING STOGROUP EDISG31C
      PRIQTY 1000
      SECQTY 400
      ERASE NO
    SUBPAGES 8
    BUFFERPOOL BP0
    CLOSE NO;


  CREATE TABLESPACE EDIPSDI
    IN EDIDB31C
    USING STOGROUP EDISG31C
      PRIQTY 5
      SECQTY 2
      ERASE NO
    LOCKSIZE PAGE
    BUFFERPOOL BP0
    SEGSIZE  4
    CLOSE NO;

  CREATE TABLE EDIENU31.EDIPSDI(
    SYSKEY            CHAR(1)      NOT NULL,
    SYSDATA           VARCHAR(590) NOT NULL WITH DEFAULT,
    PRIMARY KEY (SYSKEY))
  IN EDIDB31C.EDIPSDI;

  CREATE UNIQUE INDEX EDIENU31.EDIPSDIX
    ON EDIENU31.EDIPSDI(SYSKEY)
    USING STOGROUP EDISG31C
      PRIQTY 5
      SECQTY 2
      ERASE NO
    SUBPAGES 8
    BUFFERPOOL BP0
    CLOSE NO;


  CREATE TABLESPACE EDIPSEI
    IN EDIDB31C
    USING STOGROUP EDISG31C
      PRIQTY 5
      SECQTY 2
      ERASE NO
    LOCKSIZE PAGE
    BUFFERPOOL BP0
    SEGSIZE  4
    CLOSE NO;

  CREATE TABLE EDIENU31.EDIPSEI(
    PROFILETYPE       CHAR(8)      NOT NULL,
    DESCRIPTION       VARCHAR(50),
    PRIMARY KEY (PROFILETYPE))
  IN EDIDB31C.EDIPSEI;

  CREATE UNIQUE INDEX EDIENU31.EDIPSEIX
    ON EDIENU31.EDIPSEI(PROFILETYPE)
    USING STOGROUP EDISG31C
      PRIQTY 5
      SECQTY 2
      ERASE NO
    SUBPAGES 8
    BUFFERPOOL BP0
    CLOSE NO;


  CREATE TABLESPACE STDSTH
    IN EDIDB31C
    USING STOGROUP EDISG31C
      PRIQTY 100
      SECQTY 50
      ERASE NO
    LOCKSIZE PAGE
    BUFFERPOOL BP0
    SEGSIZE  4
    CLOSE NO;

  CREATE TABLE EDIENU31.EDISTDSTH(
    STDID             CHAR(8)      NOT NULL,
    STDAC             CHAR(8),
    STDVER            CHAR(8),
    STDREL            CHAR(8),
    STDIND            CHAR(8),
    INTENVID          CHAR(8),
    GRPENVID          CHAR(8),
    TXENVID           CHAR(8),
    LOGLOCK           CHAR(1),
    LASTUID           CHAR(17),
    LASTUDT           INTEGER,
    DESCRIPT          VARCHAR(80),
    PURPOSE           VARCHAR(512),
    CMTTEXT           VARCHAR(2048),
    PRIMARY KEY (STDID))
  IN EDIDB31C.STDSTH;

  CREATE UNIQUE INDEX EDIENU31.EDISTDSTHX
    ON EDIENU31.EDISTDSTH(STDID)
    USING STOGROUP EDISG31C
      PRIQTY 20
      SECQTY 8
      ERASE NO
    SUBPAGES 8
    BUFFERPOOL BP0
    CLOSE NO;


  CREATE TABLESPACE STDDEH
    IN EDIDB31C
    USING STOGROUP EDISG31C
      PRIQTY 5000
      SECQTY 2500
      ERASE NO
    LOCKSIZE PAGE
    BUFFERPOOL BP0
    SEGSIZE  4
    CLOSE NO;

  CREATE TABLE EDIENU31.EDISTDDEH(
    STDID             CHAR(8)      NOT NULL,
    DEID              CHAR(8)      NOT NULL,
    TAG               CHAR(8),
    DATATYPE          CHAR(2),
    MINLEN            INTEGER,
    MAXLEN            INTEGER,
    CODELIST          CHAR(8),
    LOGLOCK           CHAR(1),
    LASTUID           CHAR(17),
    LASTUDT           INTEGER,
    DESCRIPT          VARCHAR(80),
    PURPOSE           VARCHAR(2048),
    CMTTEXT           VARCHAR(1800),
    PRIMARY KEY (STDID,DEID),
    FOREIGN KEY EDISTD1  (STDID)
       REFERENCES EDIENU31.EDISTDSTH
       ON DELETE CASCADE)
  IN EDIDB31C.STDDEH;

  CREATE UNIQUE INDEX EDIENU31.EDISTDDEHX
    ON EDIENU31.EDISTDDEH(STDID,DEID)
    USING STOGROUP EDISG31C
      PRIQTY 300
      SECQTY 120
      ERASE NO
    SUBPAGES 8
    BUFFERPOOL BP0
    CLOSE NO;

  CREATE INDEX EDIENU31.EDISTDDEHY
    ON EDIENU31.EDISTDDEH(STDID)
    USING STOGROUP EDISG31C
      PRIQTY 50
      SECQTY 20
      ERASE NO
    SUBPAGES 8
    BUFFERPOOL BP0
    CLOSE NO;


  CREATE TABLESPACE STDDED
    IN EDIDB31C
    USING STOGROUP EDISG31C
      PRIQTY 25
      SECQTY 12
      ERASE NO
    LOCKSIZE PAGE
    BUFFERPOOL BP0
    SEGSIZE  4
    CLOSE NO;

  CREATE TABLE EDIENU31.EDISTDDED(
    STDID             CHAR(8)      NOT NULL,
    COMPID            CHAR(8)      NOT NULL,
    POSNO             SMALLINT     NOT NULL,
    DEID              CHAR(8),
    REQUIRED          CHAR(1),
    MAXUSE            SMALLINT,
    PRIMARY KEY (STDID,COMPID,POSNO),
    FOREIGN KEY EDISTD4  (STDID, COMPID)
       REFERENCES EDIENU31.EDISTDDEH
       ON DELETE CASCADE,
    FOREIGN KEY EDISTD5  (STDID, DEID)
       REFERENCES EDIENU31.EDISTDDEH
       ON DELETE CASCADE)
  IN EDIDB31C.STDDED;

  CREATE UNIQUE INDEX EDIENU31.EDISTDDEDU
    ON EDIENU31.EDISTDDED(STDID,COMPID,POSNO)
    USING STOGROUP EDISG31C
      PRIQTY 25
      SECQTY 10
      ERASE NO
    SUBPAGES 8
    BUFFERPOOL BP0
    CLOSE NO;

  CREATE UNIQUE INDEX EDIENU31.EDISTDDEDX
    ON EDIENU31.EDISTDDED(COMPID,STDID,POSNO)
    USING STOGROUP EDISG31C
      PRIQTY 25
      SECQTY 10
      ERASE NO
    SUBPAGES 8
    BUFFERPOOL BP0
    CLOSE NO;

  CREATE INDEX EDIENU31.EDISTDDEDY
    ON EDIENU31.EDISTDDED(DEID,COMPID,STDID)
    USING STOGROUP EDISG31C
      PRIQTY 25
      SECQTY 10
      ERASE NO
    SUBPAGES 8
    BUFFERPOOL BP0
    CLOSE NO;

  CREATE INDEX EDIENU31.EDISTDDEDZ
    ON EDIENU31.EDISTDDED(STDID,COMPID)
    USING STOGROUP EDISG31C
      PRIQTY 100
      SECQTY 40
      ERASE NO
    SUBPAGES 8
    BUFFERPOOL BP0
    CLOSE NO;


  CREATE TABLESPACE STDCDN
    IN EDIDB31C
    USING STOGROUP EDISG31C
      PRIQTY 50
      SECQTY 25
      ERASE NO
    LOCKSIZE PAGE
    BUFFERPOOL BP0
    SEGSIZE  4
    CLOSE NO;

  CREATE TABLE EDIENU31.EDISTDCDN(
    STDID             CHAR(8)      NOT NULL,
    COMPID            CHAR(8)      NOT NULL,
    POSNO             SMALLINT     NOT NULL,
    NOTETYPE          CHAR(1)      NOT NULL,
    PARAGRAPHNO       SMALLINT     NOT NULL,
    RELCODE           CHAR(2),
    RELN01            SMALLINT,
    RELN02            SMALLINT,
    RELN03            SMALLINT,
    RELN04            SMALLINT,
    RELN05            SMALLINT,
    NOTEDESC          VARCHAR(1024),
    PRIMARY KEY (STDID,COMPID,POSNO,NOTETYPE,PARAGRAPHNO),
    FOREIGN KEY EDISTD2  (STDID, COMPID, POSNO)
       REFERENCES EDIENU31.EDISTDDED
       ON DELETE CASCADE)
  IN EDIDB31C.STDCDN;

  CREATE UNIQUE INDEX EDIENU31.EDISTDCDNX
    ON EDIENU31.EDISTDCDN(STDID,COMPID,POSNO,NOTETYPE,PARAGRAPHNO)
    USING STOGROUP EDISG31C
      PRIQTY 50
      SECQTY 20
      ERASE NO
    SUBPAGES 8
    BUFFERPOOL BP0
    CLOSE NO;


  CREATE TABLESPACE STDCDNT
    IN EDIDB31C
    USING STOGROUP EDISG31C
      PRIQTY 5
      SECQTY 2
      ERASE NO
    LOCKSIZE PAGE
    BUFFERPOOL BP0
    SEGSIZE  4
    CLOSE NO;

  CREATE TABLE EDIENU31.EDISTDCDNT(
    STDID             CHAR(8)      NOT NULL,
    COMPID            CHAR(8)      NOT NULL,
    POSNO             SMALLINT     NOT NULL,
    NOTETYPE          CHAR(1)      NOT NULL,
    PARAGRAPHNO       SMALLINT     NOT NULL,
    RELCODE           CHAR(2),
    RELN01            SMALLINT,
    RELN02            SMALLINT,
    RELN03            SMALLINT,
    RELN04            SMALLINT,
    RELN05            SMALLINT,
    NOTEDESC          VARCHAR(1024))
  IN EDIDB31C.STDCDNT;


  CREATE TABLESPACE STDSGH
    IN EDIDB31C
    USING STOGROUP EDISG31C
      PRIQTY 1000
      SECQTY 500
      ERASE NO
    LOCKSIZE PAGE
    BUFFERPOOL BP0
    SEGSIZE  4
    CLOSE NO;

  CREATE TABLE EDIENU31.EDISTDSGH(
    STDID             CHAR(8)      NOT NULL,
    SEGID             CHAR(8)      NOT NULL,
    TAG               CHAR(8),
    LOGLOCK           CHAR(1),
    LASTUID           CHAR(17),
    LASTUDT           INTEGER,
    DESCRIPT          VARCHAR(80),
    PURPOSE           VARCHAR(2048),
    CMTTEXT           VARCHAR(1800),
    PRIMARY KEY (STDID,SEGID),
    FOREIGN KEY EDISTD3  (STDID)
       REFERENCES EDIENU31.EDISTDSTH
       ON DELETE CASCADE)
  IN EDIDB31C.STDSGH;

  CREATE UNIQUE INDEX EDIENU31.EDISTDSGHX
    ON EDIENU31.EDISTDSGH(STDID,SEGID)
    USING STOGROUP EDISG31C
      PRIQTY 100
      SECQTY 40
      ERASE NO
    SUBPAGES 8
    BUFFERPOOL BP0
    CLOSE NO;


  CREATE TABLESPACE STDDEDT
    IN EDIDB31C
    USING STOGROUP EDISG31C
      PRIQTY 5
      SECQTY 2
      ERASE NO
    LOCKSIZE PAGE
    BUFFERPOOL BP0
    SEGSIZE  4
    CLOSE NO;

  CREATE TABLE EDIENU31.EDISTDDEDT(
    STDID             CHAR(8)      NOT NULL,
    COMPID            CHAR(8)      NOT NULL,
    POSNO             SMALLINT     NOT NULL,
    DEID              CHAR(8),
    REQUIRED          CHAR(1),
    MAXUSE            SMALLINT)
  IN EDIDB31C.STDDEDT;


  CREATE TABLESPACE STDDEHT
    IN EDIDB31C
    USING STOGROUP EDISG31C
      PRIQTY 300
      SECQTY 150
      ERASE NO
    LOCKSIZE PAGE
    BUFFERPOOL BP0
    SEGSIZE  4
    CLOSE NO;

  CREATE TABLE EDIENU31.EDISTDDEHT(
    STDID             CHAR(8)      NOT NULL,
    DEID              CHAR(8)      NOT NULL,
    TAG               CHAR(8),
    DATATYPE          CHAR(2),
    MINLEN            INTEGER,
    MAXLEN            INTEGER,
    CODELIST          CHAR(8),
    LOGLOCK           CHAR(1),
    LASTUID           CHAR(17),
    LASTUDT           INTEGER,
    DESCRIPT          VARCHAR(80),
    PURPOSE           VARCHAR(2048),
    CMTTEXT           VARCHAR(1800))
  IN EDIDB31C.STDDEHT;


  CREATE TABLESPACE STDSGD
    IN EDIDB31C
    USING STOGROUP EDISG31C
      PRIQTY 5000
      SECQTY 2500
      ERASE NO
    LOCKSIZE PAGE
    BUFFERPOOL BP0
    SEGSIZE  4
    CLOSE NO;

  CREATE TABLE EDIENU31.EDISTDSGD(
    STDID             CHAR(8)      NOT NULL,
    SEGID             CHAR(8)      NOT NULL,
    POSNO             SMALLINT     NOT NULL,
    DEID              CHAR(8)      NOT NULL,
    REQUIRED          CHAR(1),
    MAXUSE            SMALLINT,
    PRIMARY KEY (STDID,SEGID,POSNO),
    FOREIGN KEY EDISTD6  (STDID, SEGID)
       REFERENCES EDIENU31.EDISTDSGH
       ON DELETE CASCADE,
    FOREIGN KEY EDISTD7  (STDID, DEID)
       REFERENCES EDIENU31.EDISTDDEH
       ON DELETE CASCADE)
  IN EDIDB31C.STDSGD;

  CREATE UNIQUE INDEX EDIENU31.EDISTDSGDU
    ON EDIENU31.EDISTDSGD(STDID,SEGID,POSNO)
    USING STOGROUP EDISG31C
      PRIQTY 2000
      SECQTY 800
      ERASE NO
    SUBPAGES 8
    BUFFERPOOL BP0
    CLOSE NO;

  CREATE UNIQUE INDEX EDIENU31.EDISTDSGDX
    ON EDIENU31.EDISTDSGD(SEGID,STDID,POSNO)
    USING STOGROUP EDISG31C
      PRIQTY 2000
      SECQTY 800
      ERASE NO
    SUBPAGES 8
    BUFFERPOOL BP0
    CLOSE NO;

  CREATE INDEX EDIENU31.EDISTDSGDY
    ON EDIENU31.EDISTDSGD(DEID)
    USING STOGROUP EDISG31C
      PRIQTY 500
      SECQTY 200
      ERASE NO
    SUBPAGES 8
    BUFFERPOOL BP0
    CLOSE NO;

  CREATE INDEX EDIENU31.EDISTDSGDZ
    ON EDIENU31.EDISTDSGD(SEGID,STDID)
    USING STOGROUP EDISG31C
      PRIQTY 1000
      SECQTY 400
      ERASE NO
    SUBPAGES 8
    BUFFERPOOL BP0
    CLOSE NO;


  CREATE TABLESPACE STDENV
    IN EDIDB31C
    USING STOGROUP EDISG31C
      PRIQTY 300
      SECQTY 150
      ERASE NO
    LOCKSIZE PAGE
    BUFFERPOOL BP0
    SEGSIZE  4
    CLOSE NO;

CREATE TABLE EDIENU31.EDISTDENV(
    STDID             CHAR(8)      NOT NULL,
    GROUPOPT          CHAR(1),
    ELEMDEL           CHAR(1)    FOR BIT DATA NOT NULL,
    SUBELDEL          CHAR(1)    FOR BIT DATA NOT NULL,
    TERMINAT          CHAR(1)    FOR BIT DATA NOT NULL,
    DECNOT            CHAR(1),
    RELCHAR           CHAR(1)    FOR BIT DATA NOT NULL,
    SEGDEL            CHAR(1)    FOR BIT DATA NOT NULL,
    DELIMSEG          CHAR(8),
    INTERHDR          CHAR(8),
    GROUPHDR          CHAR(8),
    TRANSHDR          CHAR(8),
    TRANSTRL          CHAR(8),
    GROUPTRL          CHAR(8),
    INTERTRL          CHAR(8),
    PRIMARY KEY (STDID),
    FOREIGN KEY EDISTD8  (STDID)
       REFERENCES EDIENU31.EDISTDSTH
       ON DELETE CASCADE)
  IN EDIDB31C.STDENV;

  CREATE UNIQUE INDEX EDIENU31.EDISTDENVX
    ON EDIENU31.EDISTDENV(STDID)
    USING STOGROUP EDISG31C
      PRIQTY 50
      SECQTY 20
      ERASE NO
    SUBPAGES 8
    BUFFERPOOL BP0
    CLOSE NO;


  CREATE TABLESPACE STDSGDT
    IN EDIDB31C
    USING STOGROUP EDISG31C
      PRIQTY 300
      SECQTY 150
      ERASE NO
    LOCKSIZE PAGE
    BUFFERPOOL BP0
    SEGSIZE  4
    CLOSE NO;

  CREATE TABLE EDIENU31.EDISTDSGDT(
    STDID             CHAR(8)      NOT NULL,
    SEGID             CHAR(8)      NOT NULL,
    POSNO             SMALLINT     NOT NULL,
    DEID              CHAR(8)      NOT NULL,
    REQUIRED          CHAR(1),
    MAXUSE            SMALLINT)
  IN EDIDB31C.STDSGDT;


  CREATE TABLESPACE STDSGHT
    IN EDIDB31C
    USING STOGROUP EDISG31C
      PRIQTY 100
      SECQTY 50
      ERASE NO
    LOCKSIZE PAGE
    BUFFERPOOL BP0
    SEGSIZE  4
    CLOSE NO;

  CREATE TABLE EDIENU31.EDISTDSGHT(
    STDID             CHAR(8)      NOT NULL,
    SEGID             CHAR(8)      NOT NULL,
    TAG               CHAR(8),
    LOGLOCK           CHAR(1),
    LASTUID           CHAR(17),
    LASTUDT           INTEGER,
    DESCRIPT          VARCHAR(80),
    PURPOSE           VARCHAR(2048),
    CMTTEXT           VARCHAR(1800))
  IN EDIDB31C.STDSGHT;


  CREATE TABLESPACE STDSGN
    IN EDIDB31C
    USING STOGROUP EDISG31C
      PRIQTY 100
      SECQTY 50
      ERASE NO
    LOCKSIZE PAGE
    BUFFERPOOL BP0
    SEGSIZE  4
    CLOSE NO;

  CREATE TABLE EDIENU31.EDISTDSGN(
    STDID             CHAR(8)      NOT NULL,
    SEGID             CHAR(8)      NOT NULL,
    POSNO             SMALLINT     NOT NULL,
    NOTETYPE          CHAR(1)      NOT NULL,
    PARAGRAPHNO       SMALLINT     NOT NULL,
    RELCODE           CHAR(2),
    RELN01            SMALLINT,
    RELN02            SMALLINT,
    RELN03            SMALLINT,
    RELN04            SMALLINT,
    RELN05            SMALLINT,
    NOTEDESC          VARCHAR(1024),
    PRIMARY KEY (STDID,SEGID,POSNO,NOTETYPE,PARAGRAPHNO),
    FOREIGN KEY EDISTD9  (STDID, SEGID, POSNO)
       REFERENCES EDIENU31.EDISTDSGD
       ON DELETE CASCADE)
  IN EDIDB31C.STDSGN;

  CREATE UNIQUE INDEX EDIENU31.EDISTDSGNX
    ON EDIENU31.EDISTDSGN(STDID,SEGID,POSNO,NOTETYPE,PARAGRAPHNO)
    USING STOGROUP EDISG31C
      PRIQTY 50
      SECQTY 20
      ERASE NO
    SUBPAGES 8
    BUFFERPOOL BP0
    CLOSE NO;


  CREATE TABLESPACE STDSGNT
    IN EDIDB31C
    USING STOGROUP EDISG31C
      PRIQTY 10
      SECQTY 5
      ERASE NO
    LOCKSIZE PAGE
    BUFFERPOOL BP0
    SEGSIZE  4
    CLOSE NO;

  CREATE TABLE EDIENU31.EDISTDSGNT(
    STDID             CHAR(8)      NOT NULL,
    SEGID             CHAR(8)      NOT NULL,
    POSNO             SMALLINT     NOT NULL,
    NOTETYPE          CHAR(1)      NOT NULL,
    PARAGRAPHNO       SMALLINT     NOT NULL,
    RELCODE           CHAR(2),
    RELN01            SMALLINT,
    RELN02            SMALLINT,
    RELN03            SMALLINT,
    RELN04            SMALLINT,
    RELN05            SMALLINT,
    NOTEDESC          VARCHAR(1024))
  IN EDIDB31C.STDSGNT;


  CREATE TABLESPACE STDSTHT
    IN EDIDB31C
    USING STOGROUP EDISG31C
      PRIQTY 10
      SECQTY 5
      ERASE NO
    LOCKSIZE PAGE
    BUFFERPOOL BP0
    SEGSIZE  4
    CLOSE NO;

  CREATE TABLE EDIENU31.EDISTDSTHT(
    STDID             CHAR(8)      NOT NULL,
    STDAC             CHAR(8),
    STDVER            CHAR(8),
    STDREL            CHAR(8),
    STDIND            CHAR(8),
    INTENVID          CHAR(8),
    GRPENVID          CHAR(8),
    TXENVID           CHAR(8),
    LOGLOCK           CHAR(1),
    LASTUID           CHAR(17),
    LASTUDT           INTEGER,
    DESCRIPT          VARCHAR(80),
    PURPOSE           VARCHAR(512),
    CMTTEXT           VARCHAR(2048))
  IN EDIDB31C.STDSTHT;


  CREATE TABLESPACE STDTXH
    IN EDIDB31C
    USING STOGROUP EDISG31C
      PRIQTY 1000
      SECQTY 500
      ERASE NO
    LOCKSIZE PAGE
    BUFFERPOOL BP0
    SEGSIZE  4
    CLOSE NO;

  CREATE TABLE EDIENU31.EDISTDTXH(
    STDID             CHAR(8)      NOT NULL,
    TRNID             CHAR(8)      NOT NULL,
    TAG               CHAR(8),
    FNGRPID           CHAR(8),
    LOGLOCK           CHAR(1),
    LASTUID           CHAR(17),
    LASTUDT           INTEGER,
    DESCRIPT          VARCHAR(80),
    PURPOSE           VARCHAR(2048),
    CMTTEXT           VARCHAR(1800),
    PRIMARY KEY (STDID,TRNID),
    FOREIGN KEY EDISTD10 (STDID)
       REFERENCES EDIENU31.EDISTDSTH
       ON DELETE CASCADE)
  IN EDIDB31C.STDTXH;

  CREATE UNIQUE INDEX EDIENU31.EDISTDTXHX
    ON EDIENU31.EDISTDTXH(STDID,TRNID)
    USING STOGROUP EDISG31C
      PRIQTY 100
      SECQTY 40
      ERASE NO
    SUBPAGES 8
    BUFFERPOOL BP0
    CLOSE NO;

  CREATE INDEX EDIENU31.EDISTDTXHY
    ON EDIENU31.EDISTDTXH(STDID)
    USING STOGROUP EDISG31C
      PRIQTY 20
      SECQTY 8
      ERASE NO
    SUBPAGES 8
    BUFFERPOOL BP0
    CLOSE NO;


  CREATE TABLESPACE STDTXD
    IN EDIDB31C
    USING STOGROUP EDISG31C
      PRIQTY 4000
      SECQTY 2000
      ERASE NO
    LOCKSIZE PAGE
    BUFFERPOOL BP0
    SEGSIZE  4
    CLOSE NO;

  CREATE TABLE EDIENU31.EDISTDTXD(
    STDID             CHAR(8)      NOT NULL,
    TRNID             CHAR(8)      NOT NULL,
    TABLENO           SMALLINT     NOT NULL,
    POSNO             SMALLINT     NOT NULL,
    SEGID             CHAR(8)      NOT NULL,
    REQUIRED          CHAR(1),
    MAXUSE            INTEGER,
    UNLIMMAXUSE       SMALLINT,
    LOOPID            CHAR(6),
    LOOPREP           INTEGER,
    UNLIMLOOPREP      SMALLINT,
    LOOPLVL           SMALLINT,
    PRIMARY KEY (STDID,TRNID,TABLENO,POSNO),
    FOREIGN KEY EDISTD11 (STDID, TRNID)
       REFERENCES EDIENU31.EDISTDTXH
       ON DELETE CASCADE,
    FOREIGN KEY EDISTD12 (STDID, SEGID)
       REFERENCES EDIENU31.EDISTDSGH
       ON DELETE CASCADE)
  IN EDIDB31C.STDTXD;

  CREATE UNIQUE INDEX EDIENU31.EDISTDTXDX
    ON EDIENU31.EDISTDTXD(STDID,TRNID,TABLENO,POSNO)
    USING STOGROUP EDISG31C
      PRIQTY 2000
      SECQTY 800
      ERASE NO
    SUBPAGES 8
    BUFFERPOOL BP0
    CLOSE NO;

  CREATE INDEX EDIENU31.EDISTDTXDY
    ON EDIENU31.EDISTDTXD(SEGID,STDID)
    USING STOGROUP EDISG31C
      PRIQTY 1000
      SECQTY 400
      ERASE NO
    SUBPAGES 8
    BUFFERPOOL BP0
    CLOSE NO;

  CREATE INDEX EDIENU31.EDISTDTXDZ
    ON EDIENU31.EDISTDTXD(SEGID)
    USING STOGROUP EDISG31C
      PRIQTY 1000
      SECQTY 400
      ERASE NO
    SUBPAGES 8
    BUFFERPOOL BP0
    CLOSE NO;


  CREATE TABLESPACE STDTXDT
    IN EDIDB31C
    USING STOGROUP EDISG31C
      PRIQTY 400
      SECQTY 40
      ERASE NO
    LOCKSIZE PAGE
    BUFFERPOOL BP0
    SEGSIZE  4
    CLOSE NO;

  CREATE TABLE EDIENU31.EDISTDTXDT(
    STDID             CHAR(8)      NOT NULL,
    TRNID             CHAR(8)      NOT NULL,
    TABLENO           SMALLINT     NOT NULL,
    POSNO             SMALLINT     NOT NULL,
    SEGID             CHAR(8)      NOT NULL,
    REQUIRED          CHAR(1),
    MAXUSE            INTEGER,
    UNLIMMAXUSE       SMALLINT,
    LOOPID            CHAR(6),
    LOOPREP           INTEGER,
    UNLIMLOOPREP      SMALLINT,
    LOOPLVL           SMALLINT)
  IN EDIDB31C.STDTXDT;


  CREATE TABLESPACE STDTXHT
    IN EDIDB31C
    USING STOGROUP EDISG31C
      PRIQTY 100
      SECQTY 50
      ERASE NO
    LOCKSIZE PAGE
    BUFFERPOOL BP0
    SEGSIZE  4
    CLOSE NO;

  CREATE TABLE EDIENU31.EDISTDTXHT(
    STDID             CHAR(8)      NOT NULL,
    TRNID             CHAR(8)      NOT NULL,
    TAG               CHAR(8),
    FNGRPID           CHAR(8),
    LOGLOCK           CHAR(1),
    LASTUID           CHAR(17),
    LASTUDT           INTEGER,
    DESCRIPT          VARCHAR(80),
    PURPOSE           VARCHAR(2048),
    CMTTEXT           VARCHAR(1800))
  IN EDIDB31C.STDTXHT;


  CREATE TABLESPACE STDTXN
    IN EDIDB31C
    USING STOGROUP EDISG31C
      PRIQTY 50
      SECQTY 25
      ERASE NO
    LOCKSIZE PAGE
    BUFFERPOOL BP0
    SEGSIZE  4
    CLOSE NO;

  CREATE TABLE EDIENU31.EDISTDTXN(
    STDID             CHAR(8)      NOT NULL,
    TRNID             CHAR(8)      NOT NULL,
    TABLENO           SMALLINT     NOT NULL,
    POSNO             SMALLINT     NOT NULL,
    NOTETYPE          CHAR(1)      NOT NULL,
    PARAGRAPHNO       SMALLINT     NOT NULL,
    RELCODE           CHAR(2),
    RELN01            SMALLINT,
    RELN02            SMALLINT,
    RELN03            SMALLINT,
    RELN04            SMALLINT,
    RELN05            SMALLINT,
    NOTEDESC          VARCHAR(1024),
    PRIMARY KEY (STDID,TRNID,TABLENO,POSNO,NOTETYPE,PARAGRAPHNO),
    FOREIGN KEY EDISTD13 (STDID, TRNID, TABLENO, POSNO)
       REFERENCES EDIENU31.EDISTDTXD
       ON DELETE CASCADE)
  IN EDIDB31C.STDTXN;

  CREATE UNIQUE INDEX EDIENU31.EDISTDTXNX
    ON EDIENU31.EDISTDTXN(STDID,TRNID,TABLENO,POSNO,
                          NOTETYPE,PARAGRAPHNO)
    USING STOGROUP EDISG31C
      PRIQTY 100
      SECQTY 40
      ERASE NO
    SUBPAGES 8
    BUFFERPOOL BP0
    CLOSE NO;


  CREATE TABLESPACE STDTXNT
    IN EDIDB31C
    USING STOGROUP EDISG31C
      PRIQTY 5
      SECQTY 2
      ERASE NO
    LOCKSIZE PAGE
    BUFFERPOOL BP0
    SEGSIZE  4
    CLOSE NO;

  CREATE TABLE EDIENU31.EDISTDTXNT(
    STDID             CHAR(8)      NOT NULL,
    TRNID             CHAR(8)      NOT NULL,
    TABLENO           SMALLINT     NOT NULL,
    POSNO             SMALLINT     NOT NULL,
    NOTETYPE          CHAR(1)      NOT NULL,
    PARAGRAPHNO       SMALLINT     NOT NULL,
    RELCODE           CHAR(2),
    RELN01            SMALLINT,
    RELN02            SMALLINT,
    RELN03            SMALLINT,
    RELN04            SMALLINT,
    RELN05            SMALLINT,
    NOTEDESC          VARCHAR(1024))
  IN EDIDB31C.STDTXNT;


  CREATE TABLESPACE EDITPCM
    IN EDIDB31C
    USING STOGROUP EDISG31C
      PRIQTY 3000
      SECQTY 1500
      ERASE NO
    LOCKSIZE PAGE
    BUFFERPOOL BP0
    SEGSIZE  4
    CLOSE NO;

  CREATE TABLE EDIENU31.EDITPCM(
    CMTTYPE           CHAR(8)      NOT NULL,
    CMTKEY            CHAR(35)     NOT NULL,
    CMTTEXT           VARCHAR(2048),
    PRIMARY KEY (CMTTYPE,CMTKEY))
  IN EDIDB31C.EDITPCM;

  CREATE UNIQUE INDEX EDIENU31.EDITPCMX
    ON EDIENU31.EDITPCM(CMTTYPE,CMTKEY)
    USING STOGROUP EDISG31C
      PRIQTY 300
      SECQTY 120
      ERASE NO
    SUBPAGES 8
    BUFFERPOOL BP0
    CLOSE NO;


--
-- CREATE VIEWS
--

  CREATE VIEW EDIENU31.EDISTDDEDDEHQ
  AS SELECT B.COMPID,B.POSNO,B.REQUIRED,A.STDID,
    A.DEID,
    A.TAG,
    A.DATATYPE,
    A.MINLEN,A.MAXLEN,A.CODELIST,A.DESCRIPT,A.LOGLOCK,
    A.LASTUID,
    A.LASTUDT,
    A.PURPOSE,
    A.CMTTEXT
    FROM EDIENU31.EDISTDDEH A, EDIENU31.EDISTDDED B
    WHERE A.STDID=B.STDID
    AND A.DEID=B.DEID;

  CREATE VIEW EDIENU31.EDISTDFULLSEGDET
  AS SELECT A.STDID,A.SEGID,A.POSNO,B.POSNO AS SUBPOSNO
    FROM EDIENU31.EDISTDSGD A, EDIENU31.EDISTDDED B
    WHERE A.DEID=B.COMPID
    AND A.STDID=B.STDID;

  CREATE VIEW EDIENU31.EDISTDSGDDEHQ
  AS SELECT B.SEGID,B.POSNO,B.REQUIRED,A.STDID,
    A.DEID,
    A.TAG,
    A.DATATYPE,A.MINLEN,A.MAXLEN,
    A.CODELIST,
    A.DESCRIPT,
    A.LOGLOCK,
    A.LASTUID,
    A.LASTUDT,
    A.PURPOSE,
    A.CMTTEXT,
    B.MAXUSE FROM EDIENU31.EDISTDDEH A, EDIENU31.EDISTDSGD B
    WHERE A.DEID=B.DEID AND A.STDID=B.STDID;

  CREATE VIEW EDIENU31.EDISTDSTHTXHQ
  AS SELECT A.STDAC,A.STDVER,A.STDREL,A.STDIND,
    A.INTENVID,A.GRPENVID,A.TXENVID,B.STDID,
    B.TRNID,
    B.TAG,
    B.FNGRPID,B.DESCRIPT,
    B.LOGLOCK,
    B.LASTUID,
    B.LASTUDT,
    B.PURPOSE,
    B.CMTTEXT
    FROM EDIENU31.EDISTDSTH A, EDIENU31.EDISTDTXH B
    WHERE A.STDID=B.STDID;

  CREATE VIEW EDIENU31.EDISTDTXDSGHQ
  AS SELECT B.STDID,
    B.TRNID,
    B.TABLENO,
    B.POSNO,
    B.SEGID,
    B.REQUIRED,
    B.MAXUSE,
    B.UNLIMMAXUSE,
    B.LOOPID,
    B.LOOPREP,
    B.UNLIMLOOPREP,
    B.LOOPLVL,
    A.TAG,A.DESCRIPT,A.PURPOSE
    FROM EDIENU31.EDISTDSGH A, EDIENU31.EDISTDTXD B
    WHERE A.STDID=B.STDID
    AND A.SEGID=B.SEGID;

--
-- VIEW FOR MAP REPORT. 
--
  CREATE VIEW EDIENU31.EDIMAPRPT
  AS SELECT A.MAPID, A.STDID, A.TRNID,
    A.DICTIONARYNAME, A.ADFID,
    A.SENDRCV, A.DESCRIPT AS MAPDESC, A.CMPCHK,
    C.SEGID, C.REQUIRED,
    C.LOOPID, C.LOOPREP, C.LOOPLVL,
    B.TABLENO, B.POSNO, B.OCCURNO,
    B.DEEPSEQNO, B.QUALOCCURNO, B.QUALELEPOS,
    B.QUALSUBELEPOS, B.PATH AS QUALPATH, B.SEGLOOPQUAL,
    B.HLNODENO, B.HLPARENTNODENO, B.HL03CODE,
    B.HLPARENTHL03, B.HLFIELDHL03,
    B.HLFIELDPARENTHL03, E.ELEPOSNO,
    E.SUBELEPOSNO, E.ELEOCCURNO, E.PATH,
    E.FIELD, E.QUALELEPOSNO, E.QUALSUBELEPOSNO,
    E.ELEMENTQUAL, E.TRANTABLE, E.USEREXIT,
    E.CODELIST, E.DATEEDIT, E.SUBCATPOS,
    E.SUBCATLENGTH, E.ACCUM1, E.ACTION1,
    E.ACCUM2, E.ACTION2, E.ACCUM3,
    E.ACTION3, E.ACCUM4, E.ACTION4,
    E.SNIPET, D.DESCRIPT AS SEGDESC
    FROM (((EDIENU31.EDIMAPHEAD A INNER JOIN EDIENU31.EDIMAPSEG B
    ON A.MAPID = B.MAPID)
    INNER JOIN EDIENU31.EDISTDTXD C
    ON A.STDID = C.STDID AND A.TRNID = C.TRNID)
    INNER JOIN EDIENU31.EDISTDSGH D
    ON C.STDID = D.STDID AND C.SEGID = D.SEGID)
    LEFT OUTER JOIN EDIENU31.EDIMAPELE E
    ON B.MAPID = E.MAPID AND
       B.TABLENO = E.TABLENO AND
       B.POSNO = E.POSNO AND
       B.OCCURNO = E.OCCURNO
    WHERE B.TABLENO = C.TABLENO
      AND B.POSNO = C.POSNO;


--
-- INSERT DEFAULT VALUES INTO EDIPSDI TABLE
--
  INSERT INTO EDIENU31.EDIPSDI
        VALUES ('V','0301003.1   NH');
--
-- INSERT DEFAULT VALUES INTO EDIPSEI TABLE
--
  INSERT INTO EDIENU31.EDIPSEI
      VALUES ('ACTLOGS','ACTIVITY LOG');
  INSERT INTO EDIENU31.EDIPSEI
      VALUES ('ADAMCTL','USER PROGRAMS INFORMATION');
  INSERT INTO EDIENU31.EDIPSEI
      VALUES ('APPDEFS','APPLICATION DEFINITION PROFILE');
  INSERT INTO EDIENU31.EDIPSEI
      VALUES ('CONTRECV','CONTINUOUS RECEIVE PROFILE');
  INSERT INTO EDIENU31.EDIPSEI
      VALUES ('E','ICS STANDARD ENVELOPE DATA');
  INSERT INTO EDIENU31.EDIPSEI
      VALUES ('I','ICS STANDARD ENVELOPE DATA');
  INSERT INTO EDIENU31.EDIPSEI
      VALUES ('LANGPROF','LANGUAGE PROFILE');
  INSERT INTO EDIENU31.EDIPSEI
      VALUES ('LOGDATA','LOG FILE INFORMATION');
  INSERT INTO EDIENU31.EDIPSEI
      VALUES ('NETOP','NETWORK OPERATION PROFILE');
  INSERT INTO EDIENU31.EDIPSEI
      VALUES ('NETPROF','NETWORK PROFILE');
  INSERT INTO EDIENU31.EDIPSEI
      VALUES ('REQPROF','REQUESTOR PROFILE');
  INSERT INTO EDIENU31.EDIPSEI
      VALUES ('SECUPROF','SECURITY PROFILE');
  INSERT INTO EDIENU31.EDIPSEI
      VALUES ('SYSPROF','SYSTEM PROFILE');
  INSERT INTO EDIENU31.EDIPSEI
      VALUES ('T','UN/TDI STANDARD ENVELOPE DATA');
  INSERT INTO EDIENU31.EDIPSEI
      VALUES ('TPPROF','TRADING PARTNER PROFILE');
  INSERT INTO EDIENU31.EDIPSEI
      VALUES ('U','UCS STANDARD ENVELOPE DATA');
  INSERT INTO EDIENU31.EDIPSEI
      VALUES ('X','X12 STANDARD ENVELOPE DATA');


--
-- GRANT PERMISSIONS TO VIEWS
--
  GRANT SELECT ON EDIENU31.EDISTDDEDDEHQ TO PUBLIC;
  GRANT SELECT ON EDIENU31.EDISTDFULLSEGDET TO PUBLIC;
  GRANT SELECT ON EDIENU31.EDISTDSGDDEHQ TO PUBLIC;
  GRANT SELECT ON EDIENU31.EDISTDSTHTXHQ TO PUBLIC;
  GRANT SELECT ON EDIENU31.EDISTDTXDSGHQ TO PUBLIC;

--
-- GRANT PERMISSIONS TO TABLES
--
  GRANT SELECT, INSERT, DELETE, UPDATE ON EDIENU31.EDIADFDICT
    TO PUBLIC;
  GRANT SELECT, INSERT, DELETE, UPDATE ON EDIENU31.EDIADFFIELD
    TO PUBLIC;
  GRANT SELECT, INSERT, DELETE, UPDATE ON EDIENU31.EDIADFHDRMEM
    TO PUBLIC;
  GRANT SELECT, INSERT, DELETE, UPDATE ON EDIENU31.EDIADFHEADER
    TO PUBLIC;
  GRANT SELECT, INSERT, DELETE, UPDATE ON EDIENU31.EDIADFLOOP
    TO PUBLIC;
  GRANT SELECT, INSERT, DELETE, UPDATE ON EDIENU31.EDIADFLOOPMEM
    TO PUBLIC;
  GRANT SELECT, INSERT, DELETE, UPDATE ON EDIENU31.EDIADFRECIDINFO
    TO PUBLIC;
  GRANT SELECT, INSERT, DELETE, UPDATE ON EDIENU31.EDIADFRECMEM
    TO PUBLIC;
  GRANT SELECT, INSERT, DELETE, UPDATE ON EDIENU31.EDIADFRECORD
    TO PUBLIC;
  GRANT SELECT, INSERT, DELETE, UPDATE ON EDIENU31.EDIADFSTRUCT
    TO PUBLIC;
  GRANT SELECT, INSERT, DELETE, UPDATE ON EDIENU31.EDIADFSTRUCTMEM
    TO PUBLIC;
  GRANT SELECT, INSERT, DELETE, UPDATE ON EDIENU31.EDIMAPAPPLCNTL
    TO PUBLIC;
  GRANT SELECT, INSERT, DELETE, UPDATE ON EDIENU31.EDIMAPELE
    TO PUBLIC;
  GRANT SELECT, INSERT, DELETE, UPDATE ON EDIENU31.EDIMAPHEAD
    TO PUBLIC;
  GRANT SELECT, INSERT, DELETE, UPDATE ON EDIENU31.EDIMAPSEG
    TO PUBLIC;
  GRANT SELECT, INSERT, DELETE, UPDATE ON EDIENU31.EDIPSDI
    TO PUBLIC;
  GRANT SELECT, INSERT, DELETE, UPDATE ON EDIENU31.EDIPSEI
    TO PUBLIC;
  GRANT SELECT, INSERT, DELETE, UPDATE ON EDIENU31.EDISTDCDN
    TO PUBLIC;
  GRANT SELECT, INSERT, DELETE, UPDATE ON EDIENU31.EDISTDCDNT
    TO PUBLIC;
  GRANT SELECT, INSERT, DELETE, UPDATE ON EDIENU31.EDISTDDED
    TO PUBLIC;
  GRANT SELECT, INSERT, DELETE, UPDATE ON EDIENU31.EDISTDDEDT
    TO PUBLIC;
  GRANT SELECT, INSERT, DELETE, UPDATE ON EDIENU31.EDISTDDEH
    TO PUBLIC;
  GRANT SELECT, INSERT, DELETE, UPDATE ON EDIENU31.EDISTDDEHT
    TO PUBLIC;
  GRANT SELECT, INSERT, DELETE, UPDATE ON EDIENU31.EDISTDENV
    TO PUBLIC;
  GRANT SELECT, INSERT, DELETE, UPDATE ON EDIENU31.EDISTDSGD
    TO PUBLIC;
  GRANT SELECT, INSERT, DELETE, UPDATE ON EDIENU31.EDISTDSGDT
    TO PUBLIC;
  GRANT SELECT, INSERT, DELETE, UPDATE ON EDIENU31.EDISTDSGH
    TO PUBLIC;
  GRANT SELECT, INSERT, DELETE, UPDATE ON EDIENU31.EDISTDSGHT
    TO PUBLIC;
  GRANT SELECT, INSERT, DELETE, UPDATE ON EDIENU31.EDISTDSGN
    TO PUBLIC;
  GRANT SELECT, INSERT, DELETE, UPDATE ON EDIENU31.EDISTDSGNT
    TO PUBLIC;
  GRANT SELECT, INSERT, DELETE, UPDATE ON EDIENU31.EDISTDSTH
    TO PUBLIC;
  GRANT SELECT, INSERT, DELETE, UPDATE ON EDIENU31.EDISTDSTHT
    TO PUBLIC;
  GRANT SELECT, INSERT, DELETE, UPDATE ON EDIENU31.EDISTDTXD
    TO PUBLIC;
  GRANT SELECT, INSERT, DELETE, UPDATE ON EDIENU31.EDISTDTXDT
    TO PUBLIC;
  GRANT SELECT, INSERT, DELETE, UPDATE ON EDIENU31.EDISTDTXH
    TO PUBLIC;
  GRANT SELECT, INSERT, DELETE, UPDATE ON EDIENU31.EDISTDTXHT
    TO PUBLIC;
  GRANT SELECT, INSERT, DELETE, UPDATE ON EDIENU31.EDISTDTXN
    TO PUBLIC;
  GRANT SELECT, INSERT, DELETE, UPDATE ON EDIENU31.EDISTDTXNT
    TO PUBLIC;
  GRANT SELECT, INSERT, DELETE, UPDATE ON EDIENU31.EDITPCM
    TO PUBLIC;

