zOs/TX/WK981DDL

  set current sqlid = 'S100447';
  drop   TABLESPACE $db.a981a;
  commit;
$@[
if $phase >= 1 then $@=[
  CREATE TABLESPACE a981a
    IN $db
    USING STOGROUP GSMS
    PRIQTY -1 SECQTY -1
    FREEPAGE 10 PCTFREE 5
    GBPCACHE CHANGED
    TRACKMOD YES
    LOGGED
    DSSIZE  4 G
    NUMPARTS $parts
    BUFFERPOOL BP2
    LOCKSIZE ANY
    LOCKMAX SYSTEM
    CLOSE YES
    COMPRESS YES
    CCSID      EBCDIC
    DEFINE YES
    MAXROWS 255;
  CREATE TABLE $creator.TWK981a1
     (part   SMALLINT NOT NULL
     ,text   varCHAR(40) FOR SBCS DATA NOT NULL
$@[
if $phase <= 1 then $@=[
     ,t2     varCHAR(40) FOR SBCS DATA NOT NULL
$]
$]
     )
    IN $db.a981a
    PARTITION BY (part asc, text desc)
$=pp=(
$@do px=1 to $parts $@=[
     $pp PART $px VALUES($px)
     $=pp= ,
     $]
      )
    AUDIT NONE
    DATA CAPTURE NONE
    CCSID      EBCDIC
    NOT VOLATILE
    APPEND NO  ;
    commit;
insert into $creator.twk981a1
  select mod(row_number() over (), $parts + 1),
    'text ' || strip(char(row_number() over ()))
    || ' ' || strip(left(name,20))
$@[
if $phase <= 1 then $@=[
     , 't2 ' || strip(left(tbName,20))
$]
$]
    from sysibm.sysColumns
    fetch first 30000 rows only
;
commit
;
$]
$]