zOs/WK/MAPTAB

$#@
call sqlconnect dx0g
m.sqlRetOk = m.sqlRetOk '-601'
$;
call sqlstmts
$<=[
 SET CURRENT SQLID = 'S100447';

    CREATE DATABASE DB2MAPP
           BUFFERPOOL BP2
           INDEXBP    BP1
           STOGROUP GSMS
           CCSID EBCDIC;

$do ix=1 to 10 $@=[

 $=ix=- right(ix, 2, 0)


    CREATE TABLESPACE MAPTAB$ix
           IN DB2MAPP
           USING STOGROUP GSMS
               PRIQTY -1
               SECQTY -1
               ERASE NO
           BUFFERPOOL BP2
           CLOSE YES
           LOCKMAX SYSTEM
           SEGSIZE 64
           FREEPAGE 0
           PCTFREE 5
           GBPCACHE CHANGED
           DEFINE NO
           LOGGED
           TRACKMOD YES
           COMPRESS YES
           LOCKSIZE ANY
           MAXROWS 255
           CCSID EBCDIC;


    CREATE TABLE S100447.MAPTAB$ix
        ("TYPE" CHARACTER(1) FOR SBCS DATA
                                                        NOT NULL
        ,SOURCE_RID CHARACTER(5) FOR SBCS DATA
                                                        NOT NULL
        ,TARGET_XRID CHARACTER(9) FOR SBCS DATA
                                                        NOT NULL
  WITH DEFAULT
        ,LRSN CHARACTER(6) FOR SBCS DATA
                                                        NOT NULL
        )
        IN DB2MAPP.MAPTAB$ix
   APPEND NO
   NOT VOLATILE CARDINALITY
   DATA CAPTURE CHANGES
   AUDIT NONE
   CCSID EBCDIC;


    CREATE        UNIQUE INDEX S100447.MAPTAB${ix}_IX
           ON S100447.MAPTAB$ix
          (SOURCE_RID ASC
          ,"TYPE" ASC
          ,TARGET_XRID ASC
          ,LRSN ASC
          )
           NOT CLUSTER
           DEFINE YES
           COMPRESS NO
           BUFFERPOOL BP1
           CLOSE NO
           DEFER NO
           COPY NO
           USING STOGROUP GSMS
               PRIQTY -1
               SECQTY -1
               ERASE NO
           FREEPAGE 0
           PCTFREE 10
           GBPCACHE CHANGED
           PIECESIZE 2097152K;
 commit;
$]
$]