zOs/SQL/REVIDBOL

CREATE       TABLESPACE A002A    IN DB2REVI
       USING STOGROUP GSMS
             PRIQTY 72
             SECQTY 7200
             ERASE NO
             FREEPAGE   0
             PCTFREE  5
             GBPCACHE CHANGED
             TRACKMOD YES
       BUFFERPOOL BP2
       LOCKSIZE ANY
       LOCKMAX SYSTEM
       CCSID EBCDIC
       MAXROWS 255
       CLOSE YES
                                                                      ;
CREATE TABLE    REVI.DB2LOAD
   (SUBSYS CHAR(4)                               NOT NULL             ,
    TIMESTAMP TIMESTAMP                          NOT NULL             ,
    DBNAME CHAR(8)                               NOT NULL             ,
    TSNAME CHAR(8)                               NOT NULL             ,
    DSNUM INTEGER                                NOT NULL             ,
    ICTYPE CHAR(1)                               NOT NULL             ,
    JOBNAME CHAR(8)                                                   ,
    AUTHID CHAR(8)                                                    )
       IN DB2REVI.A002A
       AUDIT NONE
       CCSID EBCDIC
                                                                      ;
LABEL ON TABLE REVI.DB2LOAD
       IS 'LOAD JOBS'
                                                                      ;
CREATE INDEX REVI.I002A1
       ON REVI.DB2LOAD
     ( SUBSYS               ASC  ,
       TIMESTAMP            ASC  )
       USING STOGROUP GSMS
             PRIQTY      72
             SECQTY     720
       ERASE NO
       FREEPAGE   0
       PCTFREE 10
       GBPCACHE CHANGED
       BUFFERPOOL BP1
       CLOSE YES
       PIECESIZE 1       G
       COPY NO
                                                                      ;