zOs/TX/WK966DDL

------------$-{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.a966A;
  commit;
$@[
if $phase >= 1 then $@=[
  CREATE TABLESPACE A966A
    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.Twk966A1 In $db.A966A
------------------------------------------------------------------------
--
  CREATE TABLE $creator.Twk966A1
     (Wk966CHa             char(10) not null
     ,constraint cha check (wk966cha not like ' %')
     ,wk966chb             char(10) NOT NULL
     ,wk966Inc             int      NOT NULL
     )
    IN $db.A966A
    AUDIT NONE
    DATA CAPTURE NONE
    CCSID      EBCDIC
    NOT VOLATILE
;
insert into $creator.twk966a1 values('chA$phase', 'a', $phase);
$]
if $phase = 2 then $@=[
  alter TABLE $creator.Twk966A1 drop constraint cha;
  commit;
  alter TABLE $creator.Twk966A1 alter wk966cha set data Type char(20);
  commit;
  delete from $creator.twk966a1;
  commit;
  alter TABLE $creator.Twk966A1 add  constraint cha
                    check (wk966cha not like ' %');
  commit;
 insert into $creator.twk966a1 values('chA$phase', 'a', $phase);
$]
if $phase >= 1 then $@=[
insert into $creator.twk966a1 values('chB$phase', 'b', $phase);
insert into $creator.twk966a1 values('chC$phase', 'c', $phase);
commit;
$]
$]