zOs/TX/WK915DDL

------------$-{right(userid() sysvar(sysnode) date(s) time(), 60, '-')}
-- testCase $dsn
-- env      $env      phase $phase
-- subsys   $subsys     db $db       creator $creator
------------------------------------------------------------------------
---||| begin ddl testcase $mbr env $env phase $phase
  SET CURRENT SQLID='S100447';
  drop   TABLESPACE $db.A915A;
  commit;
  CREATE TABLESPACE A915A
    IN $db
    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;
  SET CURRENT SQLID='S100447';
  CREATE TABLE $creator.TWK915A1
     (
$@[
if $phase > -9 then $@=[
      WK91501I             DECIMAL(7, 0) NOT NULL GENERATED BY DEFAULT
        AS IDENTITY
          (START WITH 290000, INCREMENT BY 1, CACHE 20, NO CYCLE,
           NO ORDER, MAXVALUE 9999999, MINVALUE 290000),
$] else $@=[
      WK91501I             DECIMAL(7, 0) NOT NULL,
$]
$]
      WK91502A             CHAR(6) FOR SBCS DATA NOT NULL,
      WK91503A             CHAR(6) FOR SBCS DATA NOT NULL,
      WK91504A             CHAR(6) FOR SBCS DATA NOT NULL,
      WK91505A             CHAR(6) FOR SBCS DATA NOT NULL,
      WK91506A             CHAR(30) FOR SBCS DATA NOT NULL,
      WK91507A             CHAR(6) FOR SBCS DATA NOT NULL,
      WK91508A             CHAR(8) FOR SBCS DATA NOT NULL,
      WK91509A             CHAR(6) FOR SBCS DATA NOT NULL,
      WK91510A             CHAR(6) FOR SBCS DATA NOT NULL
        WITH DEFAULT,
      WK91511A             CHAR(8) FOR SBCS DATA NOT NULL
        WITH DEFAULT,
      WK91512A             CHAR(6) FOR SBCS DATA NOT NULL
        WITH DEFAULT,
      WK91513A             CHAR(6) FOR SBCS DATA NOT NULL
        WITH DEFAULT,
      WK91514A             CHAR(8) FOR SBCS DATA NOT NULL
        WITH DEFAULT,
$@[
if $phase <= 2 then $@=[
      WK91515A             CHAR(8) FOR SBCS DATA NOT NULL
        WITH DEFAULT,
$] else $@=[
      WK91515A             CHAR(6) FOR SBCS DATA NOT NULL
        WITH DEFAULT,
$]
$]
      WK91516A             CHAR(1) FOR SBCS DATA NOT NULL
        WITH DEFAULT,
      CONSTRAINT WK91501I
      PRIMARY KEY (WK91501I
$@[
if $phase > 1 then $@=[
                 , WK91514A
$]
$]
                  )
      )
    IN $db.A915A
    AUDIT NONE
    DATA CAPTURE NONE
    CCSID      EBCDIC
    NOT VOLATILE;
  LABEL ON TABLE $creator.TWK915A1 IS 'EUREX-Kontrahenten';
  COMMENT ON TABLE $creator.TWK915A1 IS '?';
  COMMENT ON $creator.TWK915A1
   (WK91516A IS 'KENNZEICHEN EBS-REPORTED / DB2: EKZ',
    WK91515A IS 'GUELTIG-BIS-DATUM / DB2: EGUELBIS',
    WK91514A IS 'GUELTIG-AB-DATUM / DB2: EGUELVON',
    WK91513A IS 'ANERKANNTE BÖRSE / DB2: ECEDEL',
    WK91512A IS 'EUROCLEAR / DB2: EEUROCLR',
    WK91511A IS 'SECOM   / DB2: ESECOM',
    WK91510A IS 'SEGA-NR / DB2: ESEGA',
    WK91509A IS 'MUTATIONSZEIT / DB2: EMUTTIM',
    WK91508A IS 'MUTATIONSDATUM / DB2: EMUTDAT',
    WK91507A IS 'MUTATIONSPROGRAMM / DB2: EMUTPGM',
    WK91506A IS 'WS80-GESCHAEFTSART-BEZEICHUNG / DB2: ENAME30',
    WK91505A IS 'WS80-GESCHAEFTSART / DB2: EKBZ',
    WK91504A IS 'ISO-CODE-BEZEICHNUNG / DB2: ECODISO',
    WK91503A IS 'TELEKURS-CODE-BEZEICHNUNG / DB2: ECODTK',
    WK91502A IS 'SKA-CODE-BEZEICHUNG / DB2: ECODSKA',
    WK91501I IS 'Objekt-Id der Tabellenrow  Primary-Key');
  LABEL ON $creator.TWK915A1
   (WK91516A IS 'EKZ',
    WK91515A IS 'EGUELBIS',
    WK91514A IS 'EGUELVON',
    WK91513A IS 'ECEDEL',
    WK91512A IS 'EEUROCLR',
    WK91511A IS 'ESECOM',
    WK91510A IS 'ESEGA',
    WK91509A IS 'EMUTTIM',
    WK91508A IS 'EMUTDAT',
    WK91507A IS 'EMUTPGM',
    WK91506A IS 'ENAME30',
    WK91505A IS 'EKBZ',
    WK91504A IS 'ECODISO',
    WK91503A IS 'ECODTK',
    WK91502A IS 'ECODSKA',
    WK91501I IS 'EOBJID#');
  COMMIT;
------------------------------------------------------------------------
  CREATE UNIQUE INDEX $creator.IWK915A1
    ON $creator.TWK915A1
     ( WK91501I              ASC
$@[
if $phase > 1 then $@=[
     , WK91514A 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;
$@[
if $phase > 1 then $@=[
insert into $creator.Twk915A1 values (
111, 'eins02', 'eins03', 'eins04', 'eins05', 'eins06 eins06 eins06',
     'eins07', 'eins08', 'eins09', 'eins10', 'eins11', 'eins12',
     'eins13', 'eins14qr', 'eins15', '1');
insert into $creator.Twk915A1 values (
222, 'zwei02', 'zwei03', 'zwei04', 'zwei05', 'zwei06 zwei06 zwei06',
     'zwei07', 'zwei08', 'zwei09', 'zwei10', 'zwei11', 'zwei12',
     'zwei13', 'zwei14qr', 'zwei15', '2');
insert into $creator.Twk915A1 values (
333, 'drei02', 'drei03', 'drei04', 'drei05', 'drei06 drei06 drei06',
     'drei07', 'drei08', 'drei09', 'drei10', 'drei11', 'drei12',
     'drei13', 'drei14qr', 'drei15', '3');
insert into $creator.Twk915A1 values (
444, 'vier02', 'vier03', 'vier04', 'vier05', 'vier06 vier06 vier06',
     'vier07', 'vier08', 'vier09', 'vier10', 'vier11', 'vier12',
     'vier13', 'vier14qr', 'vier15', '4');
insert into $creator.Twk915A1 values (
555, 'fünf02', 'fünf03', 'fünf04', 'fünf05', 'fünf06 fünf06 fünf06',
     'fünf07', 'fünf08', 'fünf09', 'fünf10', 'fünf11', 'fünf12',
     'fünf13', 'fünf14qr', 'fünf15', '5');
$@[
if $phase <= 2 then $@=[
update $creator.Twk915A1 set WK91515A= strip(WK91515A) || 'st';
$]
$]
  commit;
  alter  TABLE $creator.TWK915A1 alter WK91501I
        set generated always set minValue 290000
                             set maxValue 9999999
                             set CACHE 20
                             set NO CYCLE
                             set NO ORDER
  ;
  COMMIT;
$]
$]
---||| end   ddl testcase $mbr env $env phase $phase