zOs/TX/QT001DDL

------------$-[right(userid() sysvar(sysnode) date(s) time(), 60, '-')$]
-- testCase $dsn
-- env      $env      phase $phase
-- dbSys    $dbSys     db $db       creator $creator
-----------------------------------------------------------------------
---||| begin ddl testcase $mbr env $env phase $phase
SET CURRENT SQLID='S100447';
SET CURRENT SCHEMA = $creator;
drop tablespace $db.QT001A;
drop tablespace $db.QT001E;
commit;
$@[
if $phase >= 1 then $@=[
  CREATE TABLESPACE QT001A
    IN $db
    USING STOGROUP GSMS
    PRIQTY -1 SECQTY -1
    TRACKMOD YES
    segsize 64
    BUFFERPOOL BP2
    LOCKSIZE ANY
    LOCKMAX SYSTEM
    CLOSE YES
    COMPRESS YES
    CCSID      EBCDIC
    DEFINE YES
    MAXROWS 255;
  CREATE TABLESPACE QT001E  -- for exception table, create by qt001exc
    IN $db
    USING STOGROUP GSMS
    PRIQTY -1 SECQTY -1
    TRACKMOD YES
    segsize 64
    BUFFERPOOL BP2
    LOCKSIZE ANY
    LOCKMAX SYSTEM
    CLOSE YES
    COMPRESS YES
    CCSID      EBCDIC
    DEFINE YES
    MAXROWS 255;
  CREATE TABLE $creator.tQZ91QT001
     (qt001Int             int      not null
$]
if $phase = 2 then $@=[
     GENERATED BY DEFAULT AS IDENTITY ( START WITH 1 )
$] else if $phase >= 3 then $@=[
     GENERATED always AS IDENTITY ( START WITH 1 )
$]
if $phase >= 1 then $@=[
     ,qt001Par             int
     ,qt001chb             char(10) NOT NULL
     , primary key(qt001Int)
     )
    AUDIT NONE
    DATA CAPTURE NONE
    CCSID      EBCDIC
    NOT VOLATILE
    in $db.QT001A
;
CREATE Unique INDEX $creator.Iqz91QT001A0
  ON $creator.Tqz91QT001
  (qt001Int               asc
  )
  USING STOGROUP GSMS
  ERASE  NO
  GBPCACHE CHANGED
  CLUSTER
  BUFFERPOOL BP1
  CLOSE YES
  COPY NO
  DEFER NO
  DEFINE YES
;
commit;
$@[ if $phase < 3  then $@=[
insert into $creator.tqz91QT001 (qt001int,qt001chb) values (1,'eins');
insert into $creator.tqz91QT001                 values (2, 1, 'zwei');
insert into $creator.tqz91QT001                 values (3, 7, 'drei');
insert into $creator.tqz91QT001                 values (4, 3, 'vier');
$] else $@=[
insert into $creator.tqz91QT001 (qt001chb) values ('eins');
insert into $creator.tqz91QT001 (qt001Par, qt001chb) values (1, 'zwei');
insert into $creator.tqz91QT001 (qt001Par, qt001chb) values (7, 'drei');
insert into $creator.tqz91QT001 (qt001Par, qt001chb) values (3, 'vier');
$]
$]
commit;
alter table $creator.tqz91QT001
     add
     constraint qz91QT001par
     foreign key
    (qt001par
    )
     references $creator.tqz91QT001 on delete cascade
     enforced
;
commit;
$]
$]