zOs/JCL/PLOADTED

//A540769D  JOB (CP00,KE50),                                            00010001
//         MSGCLASS=T,TIME=1440,
//         NOTIFY=GDB9998
//*MAIN CLASS=LOG
//S01      EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99                       00020001
//SYSTSIN  DD *
    DSN SYSTEM(DBAF)
   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';
  DROP   TABLESPACE DGDB9998.A801A;
  COMMIT;
  CREATE TABLESPACE A801A
    IN DGDB9998
    USING STOGROUP GSMS
    PRIQTY 48  SECQTY 48
    ERASE  NO
    FREEPAGE 4 PCTFREE 36
    GBPCACHE CHANGED
    TRACKMOD YES
    SEGSIZE 64
    BUFFERPOOL BP2
    LOCKMAX SYSTEM
    CLOSE YES
    COMPRESS YES
    CCSID      EBCDIC
    DEFINE YES
    MAXROWS 255;
--
  CREATE TABLE GDB9998.TWK801A1
    ( de1                  DECIMAL(15, 0) NOT NULL,
      ch2                  CHAR(5) FOR SBCS DATA NOT NULL,
      ts3                  TIMESTAMP NOT NULL WITH DEFAULT,
      ti4                  TIME      NOT NULL WITH DEFAULT,
      da5                  DATE      NOT NULL WITH DEFAULT,
      CONSTRAINT CHECK2
        check (ch2 in( 'eins', 'zwei', 'drei', 'vier'))
    )
    IN DGDB9998.A801A
    AUDIT NONE
    DATA CAPTURE NONE
    CCSID      EBCDIC
    NOT VOLATILE;
  commit;
  insert into GDB9998.TWK801A1  (de1, ch2) values (1, 'eins');
  insert into GDB9998.TWK801A1  (de1, ch2) values (2, 'zwei');
  insert into GDB9998.TWK801A1  (de1, ch2) values (3, 'drei');
  insert into GDB9998.TWK801A1  (de1, ch2) values (4, 'vier');
  -- insert into GDB9998.TWK801A1  (de1, ch2) values (5, 'fuenf');
  commit;
  DROP   TABLESPACE DGDB9998.A802A;
  COMMIT;
  CREATE TABLESPACE A802A
    IN DGDB9998
    USING STOGROUP GSMS
    PRIQTY 48  SECQTY 48
    ERASE  NO
    FREEPAGE 4 PCTFREE 36
    GBPCACHE CHANGED
    TRACKMOD YES
    numParts 4
    BUFFERPOOL BP2
    LOCKMAX SYSTEM
    CLOSE YES
    COMPRESS YES
    CCSID      EBCDIC
    DEFINE YES
    MAXROWS 255;
--
  CREATE TABLE GDB9998.TWK802A1
    ( de1                  DECIMAL(15, 0) NOT NULL,
      ch2                  CHAR(5) FOR SBCS DATA NOT NULL,
      ts3                  TIMESTAMP NOT NULL WITH DEFAULT,
      ti4                  TIME      NOT NULL WITH DEFAULT,
      da5                  DATE      NOT NULL WITH DEFAULT,
      in6                  int       NOT NULL WITH DEFAULT,
      re7                  real      NOT NULL WITH DEFAULT
    )
    IN DGDB9998.A802A
    partition by (ch2, ts3)
    (   partition 1 ending ('e    '),
        partition 2 ending ('j    ', '2006-01-01-00.00.00'),
        partition 3 ending ('J    ', '2006-01-01-00.00.00'),
        partition 4 ending (x'FF')
    )
    AUDIT NONE
    DATA CAPTURE NONE
    CCSID      EBCDIC
    NOT VOLATILE;
  commit;
  CREATE UNIQUE INDEX GDB9998.IWK802A0
    ON GDB9998.TWK802A1
     (de1 asc, ts3 ASC)
    USING STOGROUP GSMS
    PRIQTY 48 SECQTY 48
    ERASE  NO
    FREEPAGE 10 PCTFREE 10
    GBPCACHE CHANGED
    CLUSTER
    BUFFERPOOL BP1
    CLOSE YES
    COPY NO
    DEFINE YES
    PIECESIZE 2 G;
  CREATE        INDEX GDB9998.IWK802A1
    ON GDB9998.TWK802A1
     (re7 asc, in6 ASC, da5 desc)
    USING STOGROUP GSMS
    PRIQTY 48 SECQTY 48
    ERASE  NO
    FREEPAGE 10 PCTFREE 10
    GBPCACHE CHANGED
    PARTITIONED
    BUFFERPOOL BP1
    CLOSE YES
    COPY NO
    DEFINE YES
    ;
commit;
  insert into GDB9998.TWK802A1  (de1, ch2) values (1, 'eins');
  insert into GDB9998.TWK802A1  (de1, ch2) values (2, 'zwei');
  insert into GDB9998.TWK802A1  (de1, ch2) values (3, 'drei');
  insert into GDB9998.TWK802A1  (de1, ch2) values (4, 'vier');
  -- insert into GDB9998.TWK802A1  (de1, ch2) values (5, 'fuenf');
  insert into GDB9998.TWK802A1  (de1, ch2, ts3)
      values (5, 'j', '1956-04-01-06.12.34');
  insert into GDB9998.TWK802A1  (de1, ch2, ts3)
      values (6, 'j', '2008-08-01-12.34.56');
  insert into GDB9998.TWK802A1  (de1, ch2, ts3)
      values (7, 'J', '1957-04-01-06.12.34');
  insert into GDB9998.TWK802A1  (de1, ch2, ts3)
      values (8, 'J', '2007-08-01-12.34.56');
  commit;
  insert into GDB9998.TWK802A1  (de1, ch2, ts3, in6, re7)
      select de1 + 10, ch2, ts3, 10*de1+in6, 100*de1+re7
          from GDB9998.TWK802A1;
  insert into GDB9998.TWK802A1  (de1, ch2, ts3, in6, re7)
      select de1 + 20, ch2, ts3, 10*de1 , 100*de1+re7
          from GDB9998.TWK802A1;
  insert into GDB9998.TWK802A1  (de1, ch2, ts3, in6, re7)
      select de1 + 40, ch2, ts3, 10*de1+in6, 100*de1+re7
          from GDB9998.TWK802A1;
  insert into GDB9998.TWK802A1  (de1, ch2, ts3, in6, re7)
      select de1 +100, ch2, ts3, 10*de1 , 100*de1+re7
          from GDB9998.TWK802A1;
  insert into GDB9998.TWK802A1  (de1, ch2, ts3, in6, re7)
      select de1 +200, ch2, ts3, 10*de1+in6, 100*de1+re7
          from GDB9998.TWK802A1;
  insert into GDB9998.TWK802A1  (de1, ch2, ts3, in6, re7)
      select de1 +400, ch2, ts3, 10*de1 , 100*de1+re7
          from GDB9998.TWK802A1;
  insert into GDB9998.TWK802A1  (de1, ch2, ts3, in6, re7)
      select de1+1000, ch2, ts3, 10*de1+in6, 100*de1+re7
          from GDB9998.TWK802A1;
  insert into GDB9998.TWK802A1  (de1, ch2, ts3, in6, re7)
      select de1+2000, ch2, ts3, 10*de1 , 100*de1+re7
          from GDB9998.TWK802A1;
  commit;