home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 29 Fixes_o / 29-Fixes_o.zip / wr07012.zip / wr07012.PKZ / QRW3OOC2.bnd (.txt) < prev    next >
DB2 Bind  |  1993-07-14  |  7KB  |  36 lines
  1. QRW3G3A0iBCXPOHJNULLID  0
  2. BEGIN DECLARE SECTION
  3. END DECLARE SECTION
  4. SELECT CURRENT TIMESTAMP INTO :H_MDTS              FROM SYSIBM.SYSTABLES              WHERE NAME = 'QRWSYS_OBJECT'                AND CREATOR = 'QRWSYS'
  5. 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)
  6. DELETE FROM QRWSYS.QRWSYS_OBJECT        WHERE  OBJ_NAME    =  :H_NAME          AND  CREATOR     =  :H_AUTHID          AND  OBJ_TYPE    =  :H_TYPE          AND  ROWSQNR    >=  :H_ROWSQNR
  7. SELECT CURRENT TIMESTAMP INTO :H_MDTS          FROM SYSIBM.SYSTABLES          WHERE NAME = 'QRWSYS_OBJECT'            AND CREATOR = 'QRWSYS'
  8. 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
  9. 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
  10. 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
  11. 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
  12. 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
  13. 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
  14. 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
  15. DECLARE SO_VIEW_OBJ CURSOR FOR                                          SELECT OBJ_NAME, CREATOR, MDDATE            FROM QRWSYS.QRWSYS_OBJECT            WHERE  OBJ_TYPE    = 'VIEW'            FOR UPDATE OF OBJ_NAME
  16. OPEN SO_VIEW_OBJ
  17. FETCH SO_VIEW_OBJ INTO :H_NAME, :H_AUTHID, :H_MDTS
  18. SELECT TYPE                                                           INTO     :H_SORT                  FROM SYSIBM.SYSTABLES                  WHERE NAME    = :H_NAME                    AND CREATOR = :H_AUTHID                    AND CTIME   <= :H_MDTS                    AND TYPE    = 'V'
  19. DELETE FROM QRWSYS.QRWSYS_OBJECT                    WHERE  CURRENT OF SO_VIEW_OBJ
  20. CLOSE SO_VIEW_OBJ
  21. H_ROWS
  22. H_ROWSQNR
  23. H_FUNCTION_LEVEL
  24. H_AUTHID
  25. H_QRW_AUTHID
  26. H_ACCESS_MODE
  27. H_SORT
  28. H_CRTS
  29. H_MDTS
  30. H_REL
  31. H_TYPE
  32. H_NAME
  33. H_COMM
  34. H_EXTD
  35. H_INTD
  36.