zOs/TX/WK964DDL

------------$-{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.a964A;
  commit;
$@[
if $phase >= 1 then $@=[
  CREATE TABLESPACE A964A
    IN $db
    USING STOGROUP GSMS
    PRIQTY 12 SECQTY 7200
    FREEPAGE 10 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;
--
------------------------------------------------------------------------
--    Table=$creator.Twk964A1 In $db.A964A
------------------------------------------------------------------------
--
  CREATE TABLE $creator.Twk964A1
     (Wk964CH$phase        char(10) not null
     ,wk964chb             char(10) NOT NULL
     ,wk964inC             int      NOT NULL with default
     )
       with restrict on drop
    IN $db.A964A
    AUDIT NONE
    DATA CAPTURE NONE
    CCSID      EBCDIC
    NOT VOLATILE
;
  SET CURRENT PATH = "$creator";
  CREATE VIEW $creator.VWK964A1 as
    SELECT * from  $creator.TWK964A1
;
terminator ? ;
create trigger $creator.twk964Upd  no cascade before
               update of WK964CHB
    on $creator.twk964A1        referencing Old as o New as n
    for each row mode db2sql begin atomic
         set n.WK964inc = o.wk964inc + 1 ;
         set n.WK964chb = strip(o.wk964chb) || '' ;
    end
?
terminator ; ?
insert into $creator.twk964a1 values('a', 'a', 0);
$= upd = update $creator.twk964a1 $*+
    set WK964CHB = strip(WK964CHB) || '$phase'
$upd ;
insert into $creator.twk964a1 values('b', 'b', 0);
$upd ;
insert into $creator.twk964a1 values('c', 'c', 0);
$upd ;
commit;
$]
$]