zOs/TX/WK998DDL

------------$-{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.a998A;
commit;
$@[
if $phase >= 1 then $@=[
  CREATE TABLESPACE A998A
    IN $db
    USING STOGROUP GSMS
    PRIQTY -1 SECQTY -1
    FREEPAGE 10 PCTFREE 10
--  GBPCACHE CHANGED
    TRACKMOD YES
$@[
if $phase = 1 then $@=[
    segsize 16
$] else if $phase > 1 then $@=[
    segsize 16
 -- dssize 16 g
$]
$]
    BUFFERPOOL BP2
    LOCKSIZE ANY
    LOCKMAX SYSTEM
    CLOSE YES
    COMPRESS YES
    CCSID      EBCDIC
    DEFINE YES
    MAXROWS 255;
  CREATE TABLE $creator.Twk998A1
     (Wk998Int             int      not null
     ,wk998chb             char(10) NOT NULL
     ,wk998dec0            decimal(31,0$phase) NOT NULL
     ,wk998dec1            decimal(31,1$phase) NOT NULL
     ,wk998dec2            decimal(31,8      ) NOT NULL
     )
    AUDIT NONE
    DATA CAPTURE NONE
    CCSID      EBCDIC
    NOT VOLATILE
    in $db.A998A
;
$=len=- 9+$phase
CREATE TABLE $creator.Twk998b1
     ( PARTITIONID INTEGER NOT NULL
     , REPRTUUID CHAR ( 36 ) NOT NULL
     , ANALYSISCD INTEGER NOT NULL
     , PERSTARTDT DATE NOT NULL
     , PERENDDT DATE NOT NULL
     , SUBPERIODNBR INTEGER NOT NULL
     , PERIODTYPE INTEGER NOT NULL
     , AXIS CHAR ( 1 ) NOT NULL
     , AGGREGATECD CHAR ( 10 ) NOT NULL
     , VALUETYPE INTEGER NOT NULL
     , WEIGHT DECIMAL ( 31 , 10 ) NOT NULL
     , CONTRIBRC DECIMAL ( 31 , 10 ) NOT NULL
     , CONTRIBPC DECIMAL ( 31 , 10 ) NOT NULL
     , BMWEIGHT DECIMAL ( 31 , $len ) NOT NULL
     , BMCONTRIB DECIMAL ( 31 , $len ) NOT NULL
     )
    AUDIT NONE
    DATA CAPTURE NONE
    CCSID      EBCDIC
    NOT VOLATILE
    in $db.A998A
;
commit;
    insert into $creator.twk998a1
         select row_number() over(), 'a ' || char(row_number() over())
            , 1000000 + 0.01 * row_number() over()
            , 2000000 + 1.01e-10 * row_number() over()
            , 3000000 + 1.01e-6  * row_number() over()
             from sysibm.sysTables
             fetch first 100 rows only;
commit;
$]
$]