zOs/TX/WK928DDL

------------$-{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';
  drop   TABLESPACE $db.A928A;
  commit;
$@[
  if $phase > 0 then $@=[
  CREATE TABLESPACE A928A
    IN $db
    USING STOGROUP GSMS
    PRIQTY -1 SECQTY -1
    FREEPAGE 0 PCTFREE 10
    GBPCACHE CHANGED
    TRACKMOD YES
    segsize 64
    BUFFERPOOL BP2
    LOCKSIZE ANY
    LOCKMAX SYSTEM
    CLOSE YES
    COMPRESS YES
    CCSID      EBCDIC
    DEFINE YES
    MAXROWS 255;
  COMMIT;
------------------------------------------------------------------------
  CREATE TABLE $creator.TWK928A1
     (key                  char(20)
$@[
  if $phase <= 2 then $@=[
     ,fl1                  float
$] else $@=[
     ,fl1                  dec(31,8)
$]
$]
     )
    IN $db.A928A
    CCSID      EBCDIC
    NOT VOLATILE;
  COMMIT;
insert into $creator.TWK928A1 values
('a 1', 1);
insert into $creator.TWK928A1 values
('b -22.222', -22.222);
insert into $creator.TWK928A1 values
('c +333.3e3', 333.3e3);
insert into $creator.TWK928A1 values
('d -44.44e-44', -44.44e-44);
$@[
  if $phase = 2 then $@=[
insert into $creator.TWK928A1 values
('e 55.55e+55',  55.55e+55);
$]
$]
commit;
$]
$]
---||| end   ddl testcase $mbr env $env phase $phase