zOs/TX/PER10DDL

------------$-[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
$=cr2=$creator
SET CURRENT SQLID='S100447';
drop tablespace $db.aPer10;
-- drop table     $creator.tPer10;
commit;
------------------------------------------------------------------------
CREATE TABLESPACE aPer10
    IN $db
    USING STOGROUP GSMS
    PRIQTY -1 SECQTY -1
    ERASE  NO
    FREEPAGE 0 PCTFREE 10
    GBPCACHE CHANGED
    TRACKMOD YES
$@ if $parts <= 0 then
    SEGSIZE 64
$@ if $parts > 0 then
    NUMPARTS $parts
$@ if $parts < 0 then
    MAXPARTITIONS 20
    BUFFERPOOL BP32K
    LOCKMAX SYSTEM
    CLOSE YES
    COMPRESS YES
    CCSID      EBCDIC
    DEFINE YES
    locksize any
    MAXROWS 255
;
commit;
  CREATE TABLE $creator.tQz91Per10
     (part                 int     NOT NULL,
      key                  int     NOT NULL,
      text                 CHAR(50) NOT NULL
     ) in $db.aPer10
$@[

    if $parts > 0 then $@[
$@=[
    partition by (part)
$]
$=pr= (
$@do px=1 to $parts $@=[
       $-[if($px=1,'(',',')$] partition $px ending at ( $*+
                $-[trunc(999*$px/$parts, 0)$] )
$]
    $$- '    ) '
$]
$]
;
--------------------------------------------------------------
  CREATE UNIQUE INDEX $creator.IQz91per10A
    ON $creator.tQz91Per10
     (key                   ASC)
    USING STOGROUP GSMS
    PRIQTY -1    SECQTY -1
    ERASE  NO
    FREEPAGE 0 PCTFREE 10
    GBPCACHE CHANGED
    NOT CLUSTER
    BUFFERPOOL BP1
    CLOSE YES
    COPY NO
    DEFER NO
    DEFINE YES
    PIECESIZE 2 G;
  COMMIT;
commit;
  insert into $creator.tQz91Per10 values
      (1, 1, char(current timestamp) || ' initial eins');
  insert into $creator.tQz91Per10 values
      (2, 2, char(current timestamp) || ' initial zwei');
  insert into $creator.tQz91Per10 values
      (3, 3, char(current timestamp) || ' initial drei');
  commit;
---||| end   ddl testcase $mbr env $env phase $phase