zOs/TX/WK970DDL

  set current sqlid = 'S100447';
  set current schema = '$creator';
$@[
if $phase <= 2 then $@=[
  drop tablespace $db.aWk970a;
  commit;
$]
if $phase >= 1 & $phase <= 2 then $@=[
   CREATE TABLESPACE aWk970A
     IN $db
     USING STOGROUP GSMS
     PRIQTY 12 SECQTY 7200
     FREEPAGE 10 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.Tqz91wk970A1
      (WK970CHA             CHAR(10) NOT NULL
      ,WK970CHB             CHAR(10) NOT NULL
      ,WK970CHC             CHAR(10) NOT NULL
      )
     IN $db.aWk970A
     AUDIT NONE
     DATA CAPTURE NONE
     CCSID      EBCDIC
     NOT VOLATILE
;

  CREATE INDEX $creator.Iqz91wk970AA
    ON $creator.Tqz91wk970A1
    (WK970CHA              asc
    )
    USING STOGROUP GSMS
    PRIQTY 12 SECQTY 7200
    ERASE  NO
    FREEPAGE 10 PCTFREE 10
    GBPCACHE CHANGED
    NOT CLUSTER
    BUFFERPOOL BP$phase
    CLOSE YES
    COPY NO
    DEFER NO
    DEFINE YES
    PIECESIZE 2 G
;
  CREATE INDEX $creator.Iqz91wk970AB
    ON $creator.Tqz91wk970A1
    (WK970CHB              asc
    )
    USING STOGROUP GSMS
    PRIQTY 12 SECQTY 7200
    ERASE  NO
    FREEPAGE 10 PCTFREE 10
    GBPCACHE CHANGED
    NOT CLUSTER
    BUFFERPOOL BP$phase
    CLOSE YES
    COPY NO
    DEFER NO
    DEFINE YES
    PIECESIZE 2 G
;
  CREATE INDEX $creator.Iqz91wk970AC
    ON $creator.Tqz91wk970A1
    (WK970CHC              asc
    )
    USING STOGROUP GSMS
    PRIQTY 12 SECQTY 7200
    ERASE  NO
    FREEPAGE 10 PCTFREE 10
    GBPCACHE CHANGED
    NOT CLUSTER
    BUFFERPOOL BP$phase
    CLOSE YES
    COPY NO
    DEFER NO
    DEFINE YES
    PIECESIZE 2 G
;
commit
;
$]
if $phase > 2 then $@=[
   insert into $creator.Tqz91wk970A1
       select left(name   || 'abcdefghijklm', 10),
              substr(name || 'abcdefghijklm', 2, 10),
              substr(name || 'abcdefghijklm', 3, 10)
       from sysibm.syscolumns
       fetch first 1000 rows only
   ;
   commit
   ;
$]
$]