QRW3G3A0iBCXPOHJNULLID  0
BEGIN DECLARE SECTION
END DECLARE SECTION
SELECT CURRENT TIMESTAMP INTO :H_MDTS              FROM SYSIBM.SYSTABLES              WHERE NAME = 'QRWSYS_OBJECT'                AND CREATOR = 'QRWSYS'
INSERT INTO QRWSYS.QRWSYS_OBJECT                                       (OBJ_NAME,                                     CREATOR,                                     QRW_CREATOR,                                     OBJ_TYPE,                                     ROWSQNR,                                     OBJ_SORT,                                     ACCESS_MODE,                                     ROWS,                                     COMM,                                     CRDATE,                                     MDDATE,                                     REL,                                     FUNCTION_LEVEL,                                     EXT_DATA,                                     INT_DATA)                                VALUES ( :H_NAME,                                      :H_AUTHID,                                      :H_QRW_AUTHID,                                      :H_TYPE,                                      :H_ROWSQNR,                                      :H_SORT,                                      :H_ACCESS_MODE,                                      :H_ROWS,                                      :H_COMM,                                      :H_MDTS,                                      :H_MDTS,                                      :H_REL,                                      :H_FUNCTION_LEVEL,                                      :H_EXTD,                                      :H_INTD)
DELETE FROM QRWSYS.QRWSYS_OBJECT        WHERE  OBJ_NAME    =  :H_NAME          AND  CREATOR     =  :H_AUTHID          AND  OBJ_TYPE    =  :H_TYPE          AND  ROWSQNR    >=  :H_ROWSQNR
SELECT CURRENT TIMESTAMP INTO :H_MDTS          FROM SYSIBM.SYSTABLES          WHERE NAME = 'QRWSYS_OBJECT'            AND CREATOR = 'QRWSYS'
UPDATE QRWSYS.QRWSYS_OBJECT             SET   EXT_DATA    = :H_EXTD,                INT_DATA    = :H_INTD,                MDDATE      = :H_MDTS,                COMM        = :H_COMM,                ROWS        = :H_ROWS,                OBJ_SORT    = :H_SORT,                ACCESS_MODE = :H_ACCESS_MODE,                FUNCTION_LEVEL = :H_FUNCTION_LEVEL,                REL            = :H_REL             WHERE           OBJ_NAME    = :H_NAME            AND           CREATOR     = :H_AUTHID            AND           OBJ_TYPE    = :H_TYPE            AND           ROWSQNR     = :H_ROWSQNR
UPDATE QRWSYS.QRWSYS_OBJECT             SET   INT_DATA    = :H_INTD,                MDDATE      = :H_MDTS,                COMM        = :H_COMM,                ROWS        = :H_ROWS,                OBJ_SORT    = :H_SORT,                ACCESS_MODE = :H_ACCESS_MODE,                FUNCTION_LEVEL = :H_FUNCTION_LEVEL             WHERE           OBJ_NAME    = :H_NAME            AND           CREATOR     = :H_AUTHID            AND           OBJ_TYPE    = :H_TYPE            AND           ROWSQNR     = :H_ROWSQNR
UPDATE QRWSYS.QRWSYS_OBJECT             SET   EXT_DATA    = :H_EXTD,                MDDATE      = :H_MDTS,                COMM        = :H_COMM,                ROWS        = :H_ROWS,                OBJ_SORT    = :H_SORT,                ACCESS_MODE = :H_ACCESS_MODE,                FUNCTION_LEVEL = :H_FUNCTION_LEVEL             WHERE           OBJ_NAME    = :H_NAME            AND           CREATOR     = :H_AUTHID            AND           OBJ_TYPE    = :H_TYPE            AND           ROWSQNR     = :H_ROWSQNR
SELECT QRW_CREATOR, OBJ_SORT, ACCESS_MODE, EXT_DATA, INT_DATA, ROWS,               COMM, MDDATE, FUNCTION_LEVEL           INTO :H_QRW_AUTHID, :H_SORT, :H_ACCESS_MODE, :H_EXTD, :H_INTD, :H_ROWS,             :H_COMM, :H_MDTS, :H_FUNCTION_LEVEL           FROM QRWSYS.QRWSYS_OBJECT           WHERE  OBJ_NAME    = :H_NAME          AND CREATOR      = :H_AUTHID          AND  OBJ_TYPE    = :H_TYPE          AND  ROWSQNR     = :H_ROWSQNR
SELECT QRW_CREATOR, OBJ_SORT, ACCESS_MODE, CRDATE, MDDATE, REL, COMM,                 FUNCTION_LEVEL             INTO   :H_QRW_AUTHID, :H_SORT, :H_ACCESS_MODE, :H_CRTS, :H_MDTS,                 :H_REL, :H_COMM, :H_FUNCTION_LEVEL             FROM QRWSYS.QRWSYS_OBJECT          WHERE  OBJ_NAME    = :H_NAME            AND  CREATOR     = :H_AUTHID            AND  OBJ_TYPE    = :H_TYPE            AND  ROWSQNR     = :H_ROWSQNR
SELECT   QRW_CREATOR, ACCESS_MODE, FUNCTION_LEVEL             INTO     :H_QRW_AUTHID, :H_ACCESS_MODE, :H_FUNCTION_LEVEL             FROM QRWSYS.QRWSYS_OBJECT          WHERE  OBJ_NAME    = :H_NAME            AND  CREATOR     = :H_AUTHID            AND  OBJ_TYPE    = :H_TYPE            AND  ROWSQNR     = :H_ROWSQNR
SELECT ROWS,    MDDATE,  EXT_DATA, INT_DATA          INTO :H_ROWS, :H_MDTS, :H_EXTD,  :H_INTD        FROM   QRWSYS.QRWSYS_OBJECT        WHERE  OBJ_NAME    = :H_NAME          AND  CREATOR     = :H_AUTHID          AND  OBJ_TYPE    = :H_TYPE          AND  ROWSQNR     = :H_ROWSQNR
DECLARE SO_VIEW_OBJ CURSOR FOR                                          SELECT OBJ_NAME, CREATOR, MDDATE            FROM QRWSYS.QRWSYS_OBJECT            WHERE  OBJ_TYPE    = 'VIEW'            FOR UPDATE OF OBJ_NAME
OPEN SO_VIEW_OBJ
FETCH SO_VIEW_OBJ INTO :H_NAME, :H_AUTHID, :H_MDTS
SELECT TYPE                                                           INTO     :H_SORT                  FROM SYSIBM.SYSTABLES                  WHERE NAME    = :H_NAME                    AND CREATOR = :H_AUTHID                    AND CTIME   <= :H_MDTS                    AND TYPE    = 'V'
DELETE FROM QRWSYS.QRWSYS_OBJECT                    WHERE  CURRENT OF SO_VIEW_OBJ
CLOSE SO_VIEW_OBJ
H_ROWS
H_ROWSQNR
H_FUNCTION_LEVEL
H_AUTHID
H_QRW_AUTHID
H_ACCESS_MODE
H_SORT
H_CRTS
H_MDTS
H_REL
H_TYPE
H_NAME
H_COMM
H_EXTD
H_INTD