zOs/TX/PER08DDL

--------$-[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.aper08;
commit;
$@[
if $phase >= 1 then $@=[
CREATE TABLESPACE aper08
    IN $db
    USING STOGROUP GSMS
    PRIQTY -1 SECQTY -1
    ERASE  NO
    FREEPAGE 0 PCTFREE 10
    GBPCACHE CHANGED
    TRACKMOD YES
    segsize  64
    BUFFERPOOL BP32K
    LOCKSIZE ANY
    LOCKMAX SYSTEM
    CLOSE YES
    COMPRESS YES
    CCSID      unicode
    DEFINE YES
    MAXROWS 255
;  ---------------------------------------------------------------------
  CREATE TABLE $creator.tper08
     like sysibm.sysColumns
    IN $db.aper08
;
$]
if $phase >= 2 then $@=[
CREATE unique INDEX $creator.IPer08A0
  ON $creator.TPer08
   (tbCreator, tbName, name)
  USING STOGROUP GSMS
  PRIQTY -1 SECQTY -1
  GBPCACHE CHANGED
  CLUSTER
  BUFFERPOOL BP1
  CLOSE YES
  COPY NO
  DEFER NO
  DEFINE YES;
CREATE INDEX $creator.IPer08A1
  ON $creator.TPer08
   (name)
  USING STOGROUP GSMS
  PRIQTY -1 SECQTY -1
  GBPCACHE CHANGED
  not CLUSTER
  BUFFERPOOL BP1
  CLOSE YES
  COPY NO
  DEFER NO
  DEFINE YES;
$]
if $phase >= 1 then $@=[
insert into $creator.tPer08
    select * from sysibm.sysColumns
$@[ if $phase >= 2 then $@=[
    where tbCreator = '$creator'
$] $]
;
  commit;
$]
$]
---||| end   ddl testcase $mbr env $env phase $phase