zOs/TX/VV71DDJ

//A540769E  JOB (CP00,KE50),                                            00010001
//         MSGCLASS=T,TIME=1440,
//         NOTIFY=A540769
//*MAIN CLASS=DBOF ,SYSTEM=S12
//S01      EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99                       00020001
//SYSTSIN  DD *
    DSN SYSTEM(DBOF)
   RUN PROGRAM(DSNTEP2) PARMS('ALIGN(LHS)') PLAN(DSNTEP2)
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM  DD DUMMY
//SYSIN    DD *
  SET CURRENT SQLID = 'S100447' ;
  ??OP TABLESPACE VV20A1P.A719A ;
  commit;
  CREATE TABLESPACE A719A
    IN VV20A1P
    USING STOGROUP GSMS
    PRIQTY -1 SECQTY -1
    FREEPAGE 0 PCTFREE 5
    GBPCACHE CHANGED
    TRACKMOD YES
    LOGGED
    NUMPARTS 64
    BUFFERPOOL BP2
    LOCKSIZE ANY
    LOCKMAX SYSTEM
    CLOSE YES
    COMPRESS YES
    CCSID      EBCDIC
    DEFINE YES
    MAXROWS 255 DSSIZE 16 G
               ;
  CREATE TABLE OA1P.TVV719A1
     (VV719001             CHAR(37) FOR SBCS DATA NOT NULL,
      VV719002             CHAR(59) FOR SBCS DATA NOT NULL,
      VV719003             CHAR(37) FOR SBCS DATA NOT NULL,
      VV719004             CHAR(9) FOR SBCS DATA NOT NULL,
      VV719005             CHAR(3) FOR SBCS DATA NOT NULL,
      VV719006             CHAR(2) FOR SBCS DATA NOT NULL,
      VV719007             CHAR(1) FOR SBCS DATA NOT NULL,
      VV719008             CHAR(22) FOR SBCS DATA NOT NULL,
      VV719009             CHAR(26) FOR SBCS DATA WITH DEFAULT NULL)
    IN VV20A1P.A719A
    PARTITION BY (VV719002 ASC)
     (PART 1 VALUES('B18'),
      PART 2 VALUES('ICHG'),
      PART 3 VALUES('IDE000A'),
      PART 4 VALUES('IDE000CL'),
      PART 5 VALUES('IDE000D'),
      PART 6 VALUES('IDE0001'),
      PART 7 VALUES('IH'),
      PART 8 VALUES('IR'),
      PART 9 VALUES('IUS7'),
      PART 10 VALUES('IXS04'),
      PART 11 VALUES('K03'),
      PART 12 VALUES('K08'),
      PART 13 VALUES('K23'),
      PART 14 VALUES('K299352'),
      PART 15 VALUES('K30'),
      PART 16 VALUES('K38'),
      PART 17 VALUES('K5'),
      PART 18 VALUES('K7'),
      PART 19 VALUES('NAT0003'),
      PART 20 VALUES('NBBD'),
      PART 21 VALUES('NBD'),
      PART 22 VALUES('NCH0007'),
      PART 23 VALUES('NCH0014'),
      PART 24 VALUES('NCH0022'),
      PART 25 VALUES('NCH0030'),
      PART 26 VALUES('NCH0038'),
      PART 27 VALUES('NCH0047'),
      PART 28 VALUES('NCH0104'),
      PART 29 VALUES('NCH0111'),
      PART 30 VALUES('NCSFI12'),
      PART 31 VALUES('NCSFI15'),
      PART 32 VALUES('NCSFI17'),
      PART 33 VALUES('NCSFI19'),
      PART 34 VALUES('NCSFI21'),
      PART 35 VALUES('NCSFI3'),
      PART 36 VALUES('NCS0Z'),
      PART 37 VALUES('NDE000A'),
      PART 38 VALUES('NDE000CL'),
      PART 39 VALUES('NDE000D'),
      PART 40 VALUES('NDE000U'),
      PART 41 VALUES('NDE0008'),
      PART 42 VALUES('NGB00BZ'),
      PART 43 VALUES('NGB00B2'),
      PART 44 VALUES('NGB00B5'),
      PART 45 VALUES('NGB006'),
      PART 46 VALUES('NUS0'),
      PART 47 VALUES('NXS0Z'),
      PART 48 VALUES('NXS016'),
      PART 49 VALUES('NXS028'),
      PART 50 VALUES('NXS041'),
      PART 51 VALUES('NXS049'),
      PART 52 VALUES('QH'),
      PART 53 VALUES('RA'),
      PART 54 VALUES('RL'),
      PART 55 VALUES('RZ'),
      PART 56 VALUES('TA'),
      PART 57 VALUES('TD'),
      PART 58 VALUES('TH'),
      PART 59 VALUES('TM'),
      PART 60 VALUES('TQ'),
      PART 61 VALUES('TR'),
      PART 62 VALUES('TV'),
      PART 63 VALUES('T2'),
      PART 64 VALUES(MAXVALUE))
    AUDIT NONE
    DATA CAPTURE NONE
    CCSID      EBCDIC
    NOT VOLATILE
    APPEND NO  ;
  CREATE UNIQUE INDEX OA1P.IVV719A1
    ON OA1P.TVV719A1
     (VV719002              ASC)
    PARTITIONED
    USING STOGROUP GSMS
    PRIQTY -1  SECQTY -1
    FREEPAGE 5 PCTFREE 5
    GBPCACHE CHANGED
    CLUSTER
    COMPRESS NO
    BUFFERPOOL BP1
    CLOSE YES
    COPY NO
    DEFER NO
    DEFINE YES;
  CREATE INDEX OA1P.IVV719A2
    ON OA1P.TVV719A1
     (VV719001              ASC,
      VV719008              ASC)
    PARTITIONED
    USING STOGROUP GSMS
    PRIQTY -1  SECQTY -1
    FREEPAGE 5 PCTFREE 5
    GBPCACHE CHANGED
    NOT CLUSTER
    COMPRESS NO
    BUFFERPOOL BP1
    CLOSE YES
    COPY NO
    DEFER NO
    DEFINE YES;
  CREATE INDEX OA1P.IVV719A3
    ON OA1P.TVV719A1
     (VV719003              ASC)
    PARTITIONED
    USING STOGROUP GSMS
    PRIQTY -1 SECQTY -1
    FREEPAGE 5 PCTFREE 5
    GBPCACHE CHANGED
    NOT CLUSTER
    COMPRESS NO
    BUFFERPOOL BP1
    CLOSE YES
    COPY NO
    DEFER NO
    DEFINE YES;
  CREATE INDEX OA1P.IVV719A4
    ON OA1P.TVV719A1
     (VV719004              ASC,
      VV719005              ASC,
      VV719006              ASC,
      VV719007              ASC,
      VV719008              ASC)
    PARTITIONED
    USING STOGROUP GSMS
    PRIQTY -1  SECQTY -1
    FREEPAGE 5 PCTFREE 5
    GBPCACHE CHANGED
    NOT CLUSTER
    COMPRESS NO
    BUFFERPOOL BP1
    CLOSE YES
    COPY NO
    DEFER NO
    DEFINE YES;
 CREATE VIEW OA1P.VVV719A1(PRIMKEYTS, SECKEYTS, PRIMKEYK1, VR4204S,
     VR4204L, VR4204G, VR4204P, TS4204, CREATE_TS) AS
   SELECT VV719001, VV719002, VV719003, VV719004, VV719005, VV719006,
          VV719007, VV719008, VV719009
     FROM OA1P.TVV719A1 ;
  COMMIT ;