zOs/TX/PA2DIDDL

set current sqlid = 'S100447';
DROP TABLESPACE  $db.apa2diDa ;
DROP TABLESPACE  $db.apa2dipa ;
COMMIT ;

$@ if $phase >= 1 then $@=/p1/
CREATE TABLESPACE apa2diDa
    IN $db
    USING STOGROUP GSMS
    PRIQTY -1 SECQTY -1
    GBPCACHE CHANGED
    TRACKMOD NO
    LOGGED
    BUFFERPOOL BP2
    LOCKSIZE ANY
    LOCKMAX SYSTEM
    CLOSE YES
    COMPRESS YES
    CCSID      ebcdic
    DEFINE YES
    segsize 64
    numParts 60
    dssize 16 g
    MAXROWS 255
;
CREATE TABLESPACE apa2diPa
    IN $db
    USING STOGROUP GSMS
    PRIQTY -1 SECQTY -1
    GBPCACHE CHANGED
    TRACKMOD NO
    LOGGED
    BUFFERPOOL BP2
    LOCKSIZE ANY
    LOCKMAX SYSTEM
    CLOSE YES
    COMPRESS YES
    CCSID      ebcdic
    DEFINE YES
    segsize 64
    maxPartitions 10
    dssize 4 g
    MAXROWS 255
;
CREATE TABLE $creator.tqz91pa2diData
    (
      p   smallint not null
    , cif char(4) not null
    , aDt date not null
    , data varchar(100)
    )
    in $db.aPa2DiDa
    partition by (p)
    (
       partition 1 ending (1)
    $do px=2 to 60 $@=[
    ,  partition $px ending ($px) $]
    )
   CCSID         EBCDIC
;
CREATE INDEX $creator.Iqz91pa2diDaI1
           ON $creator.tqz91pa2diData
          (p, cif, aDt
          )
           CLUSTER
           partitioned
           DEFINE YES
           COMPRESS NO
           BUFFERPOOL BP1
           CLOSE YES
           DEFER NO
           COPY NO
           USING STOGROUP  GSMS
;
CREATE TABLE $creator.tqz91pa2diPart
    (
      p   smallint not null
    , cifBeg char(4) not null
    , cifEnd char(4) not null
    , aDtBeg date not null
    , aDtEnd date not null
    )
    in $db.aPa2DiPa
   CCSID         EBCDIC
;
CREATE INDEX $creator.Iqz91pa2diPaI1
           ON $creator.tqz91pa2diPart
          (cifBeg, cifEnd, aDtBeg, aDtEnd, p)
           CLUSTER
           DEFINE YES
           COMPRESS NO
           BUFFERPOOL BP1
           CLOSE YES
           DEFER NO
           COPY NO
           USING STOGROUP  GSMS
;
$/p1/