zOs/SQL/BQ01

 SET CURRENT SQLID = 'S100447';


    CREATE DATABASE BQ01A1P
           BUFFERPOOL BP2
           INDEXBP    BP1
           STOGROUP "GSMS    "
           CCSID EBCDIC;




    CREATE TABLESPACE A100A
           IN BQ01A1P
           USING STOGROUP "GSMS    "
               PRIQTY -1
               SECQTY -1
               ERASE NO
           BUFFERPOOL BP2
           CLOSE YES
           LOCKMAX SYSTEM
           SEGSIZE 64
           MAXPARTITIONS 10
           DSSIZE 4 G
           FREEPAGE 0
           PCTFREE 5
           GBPCACHE CHANGED
           DEFINE YES
           LOGGED
           TRACKMOD YES
           COMPRESS YES
           LOCKSIZE ANY
           MAXROWS 255
           CCSID EBCDIC;




    CREATE TABLE OA1P.TBQ100A1
        (BQ100001 CHARACTER(3) FOR SBCS DATA
                                                        NOT NULL
        ,BQ100002 CHARACTER(2) FOR SBCS DATA
                                                        NOT NULL
        ,BQ100003 CHARACTER(2) FOR SBCS DATA
                                                        NOT NULL
        ,BQ100004 CHARACTER(2) FOR SBCS DATA
                                                        NOT NULL
        ,BQ100005 DATE
                                                        NOT NULL
        ,BQ100006 DATE
                                                        NOT NULL
        ,CONSTRAINT BQ100002 PRIMARY KEY
        (BQ100002
        )
        )
        IN BQ01A1P.A100A
   APPEND NO
   NOT VOLATILE CARDINALITY
   DATA CAPTURE CHANGES
   WITH RESTRICT ON DROP
   AUDIT NONE
   CCSID EBCDIC;




    LABEL ON TABLE OA1P.TBQ100A1
         IS 'DATASOURCE ABLAGE';




    LABEL ON COLUMN OA1P.TBQ100A1.BQ100001
         IS 'TYP';




    LABEL ON COLUMN OA1P.TBQ100A1.BQ100002
         IS 'KÜRZEL';




    LABEL ON COLUMN OA1P.TBQ100A1.BQ100003
         IS 'DATASOURCE';




    LABEL ON COLUMN OA1P.TBQ100A1.BQ100004
         IS 'ACCOUNT QUALI';




    LABEL ON COLUMN OA1P.TBQ100A1.BQ100005
         IS 'GÜLTIG AB';




    LABEL ON COLUMN OA1P.TBQ100A1.BQ100006
         IS 'GÜLTIG BIS';




    CREATE        UNIQUE INDEX OA1P.IBQ100A1
           ON OA1P.TBQ100A1
          (BQ100002 ASC
          )
           INCLUDE NULL KEYS
           CLUSTER
           DEFINE YES
           COMPRESS NO
           BUFFERPOOL BP1
           CLOSE YES
           DEFER NO
           COPY NO
           USING STOGROUP "GSMS    "
               PRIQTY -1
               SECQTY -1
               ERASE NO
           FREEPAGE 0
           PCTFREE 10
           GBPCACHE CHANGED
           PIECESIZE 2097152K;



 SET CURRENT SQLID = 'S100447';

    DROP   TABLESPACE BQ01A1P.A700A; COMMIT;
    CREATE TABLESPACE A700A
           IN BQ01A1P
           USING STOGROUP "GSMS    "
               PRIQTY -1
               SECQTY -1
               ERASE NO
           BUFFERPOOL BP2
           CLOSE YES
           LOCKMAX SYSTEM
           SEGSIZE 64
           MAXPARTITIONS 10
           DSSIZE 4G
           FREEPAGE 0
           PCTFREE 5
           GBPCACHE CHANGED
           DEFINE YES
           LOGGED
           TRACKMOD YES
           COMPRESS YES
           LOCKSIZE ANY
           MAXROWS 255
           CCSID EBCDIC;




    CREATE TABLE OA1P.TBQ700A1
        (BQ700001 CHARACTER(6) FOR SBCS DATA
                                                        NOT NULL
        ,BQ700002 CHARACTER(2) FOR SBCS DATA
                                                        NOT NULL
        ,BQ700003 CHARACTER(2) FOR SBCS DATA
                                                        NOT NULL
        ,BQ700004 CHARACTER(2) FOR SBCS DATA
                                                        NOT NULL
        ,BQ700005 DATE
                                                        NOT NULL
        ,BQ700006 DATE
                                                        NOT NULL
        ,CONSTRAINT BQ700001 PRIMARY KEY
        (BQ700001
        ,BQ700002
        )
        )
        IN BQ01A1P.A700A
   WITH RESTRICT ON DROP
   APPEND NO
   NOT VOLATILE CARDINALITY
   DATA CAPTURE CHANGES
   AUDIT NONE
   CCSID EBCDIC;




    LABEL ON TABLE OA1P.TBQ700A1
         IS 'DATASOURCE ABLAGE';




    LABEL ON COLUMN OA1P.TBQ700A1.BQ700001
         IS 'PGM';




    LABEL ON COLUMN OA1P.TBQ700A1.BQ700002
         IS 'KÜRZEL';




    LABEL ON COLUMN OA1P.TBQ700A1.BQ700003
         IS 'DATASOURCE';




    LABEL ON COLUMN OA1P.TBQ700A1.BQ700004
         IS 'ACCOUNT QUALI';




    LABEL ON COLUMN OA1P.TBQ700A1.BQ700005
         IS 'GÜLTIG AB';




    LABEL ON COLUMN OA1P.TBQ700A1.BQ700006
         IS 'GÜLTIG BIS';




    CREATE        UNIQUE INDEX OA1P.IBQ700A1
           ON OA1P.TBQ700A1
          (BQ700001 ASC
          ,BQ700002 ASC
          )
           INCLUDE NULL KEYS
           CLUSTER
           DEFINE YES
           COMPRESS NO
           BUFFERPOOL BP1
           CLOSE YES
           DEFER NO
           COPY NO
           USING STOGROUP "GSMS    "
               PRIQTY -1
               SECQTY -1
               ERASE NO
           FREEPAGE 0
           PCTFREE 10
           GBPCACHE CHANGED;