zOs/TX/PER16DDL

------------$-{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
$=cr2=$creator
SET CURRENT SQLID='S100447';
drop tablespace $db.aPer16;
-- drop table     $creator.tPer16;
commit;
------------------------------------------------------------------------
CREATE TABLESPACE aPer16
    IN $db
    USING STOGROUP GSMS
    PRIQTY -1 SECQTY -1
    ERASE  NO
    FREEPAGE 0 PCTFREE 10
    GBPCACHE CHANGED
    TRACKMOD YES
    SEGSIZE  64
    BUFFERPOOL BP2
    LOCKMAX SYSTEM
    CLOSE YES
    COMPRESS YES
    CCSID      EBCDIC
    DEFINE YES
    locksize row
    MAXROWS 255
;
commit;
  CREATE TABLE $creator.tPer16
     (a                    int     NOT NULL
     ,b                    int     NOT NULL
     ,c                    int     NOT NULL
     ,text                 CHAR($txLe) NOT NULL with default
     ) in $db.aPer16;
--------------------------------------------------------------
  CREATE INDEX $creator.IPer16A
    ON $creator.tPer16
     (a, c)
    USING STOGROUP GSMS
    PRIQTY -1    SECQTY -1
    ERASE  NO
    FREEPAGE 0 PCTFREE 10
    GBPCACHE CHANGED
    NOT CLUSTER
    BUFFERPOOL BP1
    CLOSE YES
    COPY NO
    DEFER NO
    DEFINE YES
    PIECESIZE 2 G;
  CREATE        INDEX $creator.IPer16b
    ON $creator.tPer16
     (b, c)
    USING STOGROUP GSMS
    PRIQTY -1    SECQTY -1
    ERASE  NO
    FREEPAGE 0 PCTFREE 10
    GBPCACHE CHANGED
    NOT CLUSTER
    BUFFERPOOL BP1
    CLOSE YES
    COPY NO
    DEFER NO
    DEFINE YES
    PIECESIZE 2 G;
  COMMIT;
commit;
  insert into $creator.tPer16
       select 0, 0, row_number() over (), 'ini0'
           from sysibm.sysColumns fetch first 10 rows only;
  insert into $creator.tPer16
       select a.c, b.c, c.c, 'ini2'
           from $creator.tPer16 a, $creator.tPer16 b, $creator.tPer16 c;
  commit;
---||| end   ddl testcase $mbr env $env phase $phase