zOs/TX/WK982DDL

  set current sqlid = 'S100447';
  drop   TABLESPACE $db.a982a;
  commit;
$@[
if $phase >= 1 then $@=[
  CREATE       TABLESPACE a982a
    IN $db
    USING STOGROUP GSMS
    PRIQTY -1 SECQTY -1
    FREEPAGE 10 PCTFREE 5
    GBPCACHE CHANGED
    TRACKMOD YES
    LOGGED
    DSSIZE  4 G
    NUMPARTS $parts1
    BUFFERPOOL BP32K
    LOCKSIZE ANY
    LOCKMAX SYSTEM
    CLOSE YES
    COMPRESS YES
    CCSID      EBCDIC
    DEFINE YES
    MAXROWS 255;
  CREATE TABLE $creator.TWK982a1
     (part   SMALLINT NOT NULL
     ,text   varCHAR(40) FOR SBCS DATA NOT NULL
     )
    IN $db.a982a
$@[
if $phase  >= 99 then $@=[
    PARTITION BY (part)
$=pp=(
$@do px=1 to $parts1 $@=[
     $pp PART $px VALUES($px)
     $=pp= ,
     $]
      )
$]
$]
    AUDIT NONE
    DATA CAPTURE NONE
    CCSID      EBCDIC
    NOT VOLATILE
    APPEND NO  ;
    commit;
 CREATE INDEX $creator.IWK982a0
   ON $creator.TWK982a1
    (part asc
$@[ if $phase = 99 then $@=[
    , text  ASC
$]
$]
    )
   USING STOGROUP GSMS
   PRIQTY -1 SECQTY -1
   ERASE  NO
   FREEPAGE 10 PCTFREE 5
   GBPCACHE CHANGED
   CLUSTER
   COMPRESS NO
   BUFFERPOOL BP1
   CLOSE YES
   COPY NO
   DEFER NO
   DEFINE YES
$@[
if $phase  >= 99 then $@=[
   PARTITIONED
$] else $@=[
   PARTITION BY
$=pp=(
$@do px=1 to $parts1 $@=[
     $pp PARTITION $px ending at($px)
     $=pp= ,
     $]
      )
$]
$]
   ;
commit;
insert into $creator.twk982a1
  select mod(row_number() over (), $parts1 + 1),
    'text ' || strip(char(row_number() over ()))
    || ' ' || strip(left(name,20))
    from sysibm.sysColumns
    fetch first 30000 rows only
;
commit
;
$]
if $phase >= 3 then $@=[
    $@do px=$parts1 + 1 to $parts3 $@=[
  alter TABLE $creator.TWK982a1
      add partition ending at($px);
$]
  commit;
$]
$]