zOs/TX/WK980DDL

  set current sqlid = 'S100447';
  drop   TABLESPACE $db.a980a;
  commit;
$@[
if $phase >= 1 then $@=[
  CREATE large TABLESPACE a980a
    IN $db
    USING STOGROUP GSMS
    PRIQTY -1 SECQTY -1
    FREEPAGE 10 PCTFREE 5
    GBPCACHE CHANGED
    TRACKMOD YES
    LOGGED
--  DSSIZE 16 G
    NUMPARTS $parts1
    BUFFERPOOL BP2
    LOCKSIZE ANY
    LOCKMAX SYSTEM
    CLOSE YES
    COMPRESS YES
    CCSID      EBCDIC
    DEFINE YES
    MAXROWS 255;
  CREATE TABLE $creator.TWK980a1
     (part   SMALLINT NOT NULL
     ,text   varCHAR(40) FOR SBCS DATA NOT NULL
     )
    IN $db.a980a
    PARTITION BY (part asc
$@[
if $phase  = 1 then $@=[
                 , text desc
$]
$]
                 )
$=pp=(
$@do px=1 to $parts1 $@=[
     $pp PART $px VALUES($px)
     $=pp= ,
     $]
      )
    AUDIT NONE
    DATA CAPTURE NONE
    CCSID      EBCDIC
    NOT VOLATILE
    APPEND NO  ;
    commit;
insert into $creator.twk980a1
  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 >= 2 then $@=[
    $@do px=$parts1 + 1 to $parts2 $@=[
  alter TABLE $creator.TWK980a1
      add partition ending at($px);
$]
  commit;
$]
$]