zOs/TX/WK983DDL

  set current sqlid = 'S100447';
  drop   TABLESPACE $db.a983a;
  commit;
$@[
if $phase >= 1 then $@=[
$*( ***************************************
     USING STOGROUP GSMS              USING STOGROUP GSMS
     PRIQTY -1 SECQTY -1              PRIQTY 30240 SECQTY 10080
     FREEPAGE 0 PCTFREE 15            FREEPAGE 0 PCTFREE 10
     GBPCACHE CHANGED                 GBPCACHE CHANGED
     TRACKMOD YES                     TRACKMOD YES
     MAXPARTITIONS 24                 LOGGED
     LOGGED                           NUMPARTS 5
     DSSIZE 16 G                      BUFFERPOOL BP32K
     SEGSIZE 64                       LOCKSIZE PAGE
     BUFFERPOOL BP32K                 LOCKMAX SYSTEM
     LOCKSIZE PAGE                    CLOSE YES
     LOCKMAX 0                        COMPRESS YES
     CLOSE YES                        CCSID      EBCDIC
     COMPRESS YES                     DEFINE YES
     CCSID      EBCDIC                MAXROWS 255;
     DEFINE YES
     MAXROWS 3;
    ***************************************  $*)
  CREATE       TABLESPACE a983a
    IN $db
    USING STOGROUP GSMS
    PRIQTY -1 SECQTY -1
    FREEPAGE 10 PCTFREE 5
    GBPCACHE CHANGED
    TRACKMOD YES
    LOGGED
$@[
    if $phase = 1 then $@=[
    NUMPARTS 4
    maxrows 255
    lockMax system
$] else $@=[
    segsize 64
    maxPartitions 4
    DSSIZE 16 G
    maxrows 3
    lockMax 0
$]
$]
    BUFFERPOOL BP2
    LOCKSIZE ANY
    CLOSE YES
    COMPRESS YES
    CCSID      EBCDIC
    DEFINE YES
    ;
  CREATE TABLE $creator.TWK983a1
     (part   SMALLINT NOT NULL
     ,text   varCHAR(40) FOR SBCS DATA NOT NULL
     )
    IN $db.a983a
$@[
if $phase  = 2 then $@=[
    PARTITION BY size
$]
$]
    AUDIT NONE
    DATA CAPTURE NONE
    CCSID      EBCDIC
    NOT VOLATILE
    APPEND NO  ;
  CREATE INDEX $creator.IWK983a0
    ON $creator.TWK983a1
     (part asc, 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  = 2 then $@=[
 -- PARTITIONED    geht nicht für PBG |||||
 $] else $@=[
    PARTITION BY
 $=pp=(
 $@do px=1 to 4 $@=[
      $pp PARTITION $px ending at($px)
      $=pp= ,
      $]
       )
 $]
 $]
    ;
commit;
insert into $creator.twk983a1
  select mod(row_number() over (),     5),
    'text ' || strip(char(row_number() over ()))
    || ' ' || strip(left(name,20))
    from sysibm.sysColumns
    fetch first 30000 rows only
;
commit
;
select count(*) from $creator.twk983a1
$]
$]