zOs/TX/WK934DDL

------------$-{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
$=tb=TWK934A1
SET CURRENT SQLID='S100447';
drop tablespace $db.a934a;
commit;
------------------------------------------------------------------------
CREATE TABLESPACE A934A
    IN $db
    USING STOGROUP GSMS
    PRIQTY -1 SECQTY -1
    ERASE  NO
    FREEPAGE 0 PCTFREE 10
    GBPCACHE CHANGED
    TRACKMOD YES
    SEGSIZE  64
    BUFFERPOOL BP2
    LOCKSIZE ANY
    LOCKMAX SYSTEM
    CLOSE YES
    COMPRESS YES
    CCSID      EBCDIC
    DEFINE YES
    MAXROWS 255
;  ---------------------------------------------------------------------
  CREATE TABLE $creator.$tb
     ( WK934CH20            CHAR(20) FOR SBCS DATA not null with default
$@[
if $phase = 1 then $@=[
     , WK934CHLon           CHAR(30) FOR SBCS DATA not null with default
$] else if $phase = 2 then $@=[
     , WK934ChLon           CHAR(20) FOR SBCS DATA not null with default
$]
$]
     )
    IN $db.A934A
    AUDIT NONE
    DATA CAPTURE NONE
    CCSID      EBCDIC
    NOT VOLATILE ;
CREATE INDEX $creator.IWK934A1
  ON $creator.$tb
   (WK934CH20             ASC)
  USING STOGROUP GSMS
  PRIQTY -1 SECQTY -1
  ERASE  NO
  FREEPAGE 0 PCTFREE 5
  GBPCACHE CHANGED
  CLUSTER
  BUFFERPOOL BP1
  CLOSE YES
  COPY NO
  DEFER NO
  DEFINE YES
  PIECESIZE 2 G;
commit;
------------------------------------------------------------------------
$@[
if $phase < 99 then $@=[
insert into $creator.$tb values
('erstens',  'eins');
insert into $creator.$tb values
('zweitens', 'zwei');
insert into $creator.$tb values
('drittens', 'drei');
insert into $creator.$tb values
('viertens', 'vier');
insert into $creator.$tb values
('fuenftens', 'fuenf');
update $creator.$tb
    set wk934ChLon
        = left(repeat(strip(wk934ChLon) || '+', 10), $phase * 10);
insert into $creator.$tb select * from $creator.$tb;
insert into $creator.$tb select * from $creator.$tb;
insert into $creator.$tb select * from $creator.$tb;
insert into $creator.$tb select * from $creator.$tb;
insert into $creator.$tb select * from $creator.$tb;
insert into $creator.$tb select * from $creator.$tb;
insert into $creator.$tb select * from $creator.$tb;
insert into $creator.$tb select * from $creator.$tb;
insert into $creator.$tb select * from $creator.$tb;
insert into $creator.$tb select * from $creator.$tb;
insert into $creator.$tb select * from $creator.$tb;
insert into $creator.$tb select * from $creator.$tb;
insert into $creator.$tb select * from $creator.$tb; commit;
insert into $creator.$tb select * from $creator.$tb;
commit;
$]
$]
---||| end   ddl testcase $mbr env $env phase $phase