zOs/TX/PER18DDL

------------$-{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.aper18;
-- drop table     $creator.tper18;
commit;
------------------------------------------------------------------------
CREATE TABLESPACE aper18
    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.tper18
     (k3                   char(3) NOT NULL
     ,k9                   char(9) NOT NULL
     ,d3                   char(3) NOT NULL
     ,d9                   char(9) NOT NULL
     ) in $db.aper18 volatile;
--------------------------------------------------------------
  CREATE INDEX $creator.Iper18A
    ON $creator.tper18
     (k3)
    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.Iper18b
    ON $creator.tper18
     (k9)
    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.tper18 values('abc', 'abc'   , 'abc', 'abc');
  insert into $creator.tper18 values('abc', 'abcabc', 'abc', 'abcabc');
  insert into $creator.tper18 values('abc', 'abcefg', 'abc', 'abcefg');
  insert into $creator.tper18 values('xyz', 'xyz'   , 'xyz', 'xyz');
  insert into $creator.tper18 values('xyz', 'xyzxyz', 'xyz', 'xyzxyz');
  insert into $creator.tper18 values('xyz', 'xyzefg', 'xyz', 'xyzefg');
  select *
         from $creator.tper18;
  commit;
---||| end   ddl testcase $mbr env $env phase $phase