zOs/TX/WK996DDL

------------$-{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
SET CURRENT SQLID='S100447';
SET CURRENT SCHEMA = $creator;
drop tablespace $db.a996A;
commit;
$@[
if $phase >= 1 then $@=[
  CREATE TABLESPACE A996A
    IN $db
    USING STOGROUP GSMS
    PRIQTY -1 SECQTY -1
    FREEPAGE 10 PCTFREE 10
    GBPCACHE CHANGED
    TRACKMOD YES
    $-[if($parts \= '' & $env = 'trg', 'dssize 16 g')$]
    $-[if($parts = '', 'segsize 16', 'numparts' words($parts))$]
    BUFFERPOOL BP2
    LOCKSIZE ANY
    LOCKMAX SYSTEM
    CLOSE YES
    COMPRESS YES
    CCSID      EBCDIC
    DEFINE YES
    MAXROWS 255;
  CREATE TABLE $creator.Twk996A1
     (Wk996Part            int      not null
     ,wk996chb             char(10) NOT NULL
     )
$@[
if $parts \= '' then $@=[
     PARTITION BY (wk996Part)
     $=st= (
     $@do px=1 to words($parts) $@=[
       $st PART $px VALUES($-[word($parts, $px)$])
     $=st= ,
    $]
      )
$]
$]
    IN $db.A996A
    AUDIT NONE
    DATA CAPTURE NONE
    CCSID      EBCDIC
    NOT VOLATILE
;
CREATE INDEX $creator.IWK996A0
  ON $creator.TWK996A1
  (WK996Part              asc
  )
  USING STOGROUP GSMS
  PRIQTY 12 SECQTY 7200
  ERASE  NO
  FREEPAGE 10 PCTFREE 10
  GBPCACHE CHANGED
  $-[if($parts = '', , 'partitioned')$]
  CLUSTER
  BUFFERPOOL BP1
  CLOSE YES
  COPY NO
  DEFER NO
  DEFINE YES
;
commit;
$=li=- word(99 $parts, 1 + words($parts))
    insert into $creator.twk996a1
         select row_number() over(), 'a ' || char(row_number() over())
             from sysibm.sysTables
             fetch first $li rows only;
commit;
$]
$]