zOs/TX/WK952DDL

  SET CURRENT SQLID='S100447';
  DROP   TABLESPACE $db.A952A;
  commit;
  CREATE TABLESPACE A952A
    IN $db
    USING STOGROUP GSMS
    PRIQTY -1 SECQTY -1
    GBPCACHE CHANGED
    TRACKMOD YES
    NUMPARTS 8
    BUFFERPOOL BP2
    LOCKSIZE ANY
    LOCKMAX SYSTEM
    CLOSE YES
    COMPRESS YES
    CCSID      EBCDIC
    DEFINE YES
    DSSIZE 16 G
    MAXROWS 255;
  CREATE TABLE $creator.TWK952A1
     (WK95201              CHAR(20) FOR SBCS DATA NOT NULL
        WITH DEFAULT
     ,WK95202              CHAR(20) FOR SBCS DATA NOT NULL
        WITH DEFAULT
     ,WK95203              TIMESTAMP NOT NULL WITH DEFAULT
$@[
if $phase = 99 then  $@=[
    , CONSTRAINT WK95201
      PRIMARY KEY (WK95201,
                   WK95202,
                   WK95203)
$]
$]
    )
    IN $db.A952A
$@[
if $phase >= 2 then  $@=[
    PARTITION BY (WK95202 ASC)
     (PART 1 VALUES(X'1F'),
      PART 2 VALUES(X'3F'),
      PART 3 VALUES(X'5F'),
      PART 4 VALUES(X'7F'),
      PART 5 VALUES(X'9F'),
      PART 6 VALUES(X'BF'),
      PART 7 VALUES(X'DF'),
      PART 8 VALUES(MAXVALUE))
$]
$]
    AUDIT NONE
    DATA CAPTURE NONE
    CCSID      EBCDIC
    NOT VOLATILE;
  CREATE INDEX $creator.IWK952A1
    ON $creator.TWK952A1
     (WK95202               ASC)
    USING STOGROUP GSMS
    PRIQTY -1 SECQTY -1
    ERASE  NO
    FREEPAGE 0 PCTFREE 10
    GBPCACHE CHANGED
$@[
if $phase <= 1 then  $@=[
     (PART 1 VALUES(X'1F'),
      PART 2 VALUES(X'3F'),
      PART 3 VALUES(X'5F'),
      PART 4 VALUES(X'7F'),
      PART 5 VALUES(X'9F'),
      PART 6 VALUES(X'BF'),
      PART 7 VALUES(X'DF'),
      PART 8 VALUES(X'FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF'))
$]
if $phase > 1 & $phase <= 3 then  $@=[
    PARTITIONED
$]
if $phase <= 2 | $phase = 4 then  $@=[
    CLUSTER
$]
$]
    BUFFERPOOL BP1
    CLOSE YES
    COPY NO
    DEFER NO
    DEFINE YES ;
  COMMIT;
$@do ix=0 to -15 $@=[
   $=c=- c2x(d2c(ix))
   $=c=- right($c,1)right($c,1)
   $=c=-"x'"$c"' || ' x " $c " dec " $ix"'"
   insert into $creator.TWK952A1 (WK95201, WK95202)
      values($c
            , $c || 'zwei') ;
   $]