home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 29 Fixes_o / 29-Fixes_o.zip / wr07012.zip / wr07012.PKZ / QRW3OOU.bnd (.txt) < prev    next >
DB2 Bind  |  1993-07-14  |  2KB  |  25 lines
  1. QRW3H3A0cAOXPOHJNULLID  0
  2. BEGIN DECLARE SECTION
  3. END DECLARE SECTION
  4. DECLARE SO_C_ADM CURSOR FOR              SELECT OBJ_NAME, QRW_CREATOR, OBJ_SORT, ACCESS_MODE, COMM              FROM QRWSYS.QRWSYS_OBJECT              WHERE  OBJ_NAME LIKE :H_NAME                AND  CREATOR     = :H_AUTHID                AND  OBJ_TYPE    = :H_TYPE                AND  ROWSQNR     = :H_ROWSQNR                AND  FUNCTION_LEVEL <= :H_FUNCTION_LEVEL              ORDER BY OBJ_NAME
  5. DECLARE SO_C CURSOR FOR              SELECT OBJ_NAME, QRW_CREATOR, OBJ_SORT, ACCESS_MODE, COMM              FROM QRWSYS.QRWSYS_OBJECT              WHERE  OBJ_NAME LIKE :H_NAME                AND  CREATOR     = :H_AUTHID                AND  OBJ_TYPE    = :H_TYPE                AND  ROWSQNR     = :H_ROWSQNR                AND  FUNCTION_LEVEL <= :H_FUNCTION_LEVEL                AND  (QRW_CREATOR = :H_QRW_AUTHID                      OR ACCESS_MODE <> 'P' )              ORDER BY OBJ_NAME
  6. OPEN SO_C_ADM
  7. OPEN SO_C
  8. FETCH SO_C_ADM INTO :H_NAME, :H_QRW_AUTHID, :H_SORT, :H_ACCESS_MODE,                                :H_COMM
  9. FETCH SO_C INTO :H_NAME, :H_QRW_AUTHID, :H_SORT, :H_ACCESS_MODE,                            :H_COMM
  10. CLOSE SO_C_ADM
  11. CLOSE SO_C
  12. DECLARE SO_QLF CURSOR FOR            SELECT CREATOR FROM QRWSYS.QRWSYS_OBJECT            UNION            SELECT CREATOR FROM SYSIBM.SYSTABLES
  13. OPEN SO_QLF
  14. FETCH SO_QLF INTO :H_AUTHID
  15. CLOSE SO_QLF
  16. H_ROWSQNR
  17. H_FUNCTION_LEVEL
  18. H_AUTHID
  19. H_QRW_AUTHID
  20. H_ACCESS_MODE
  21. H_SORT
  22. H_TYPE
  23. H_NAME
  24. H_COMM
  25.