home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 29 Fixes_o / 29-Fixes_o.zip / wr07012.zip / wr07012.PKZ / QRW3COC.bnd (.txt) < prev    next >
DB2 Bind  |  1993-07-14  |  5KB  |  70 lines
  1. QRW3D3A0ZBSWPOHJNULLID  0
  2. BEGIN DECLARE SECTION
  3. END DECLARE SECTION
  4. DECLARE SCgtiCur CURSOR FOR        SELECT NAME, CREATOR        FROM   SYSIBM.SYSINDEXES        WHERE  TBCREATOR         = :H_AUTHID          AND  TBNAME            = :H_NAME          AND  NAME           LIKE :H_NDXN
  5. OPEN SCgtiCur
  6. FETCH SCgtiCur INTO :H_NDXN, :H_AUTHID
  7. CLOSE SCgtiCur
  8. DECLARE SCgcoCur CURSOR FOR        SELECT NAME, REMARKS        FROM   SYSIBM.SYSCOLUMNS        WHERE  TBCREATOR         = :H_AUTHID          AND  TBNAME            = :H_NAME          AND  NAME           LIKE :H_COLN
  9. OPEN SCgcoCur
  10. FETCH SCgcoCur INTO :H_COLN, :H_COMM:H_COMMIND
  11. CLOSE SCgcoCur
  12. DECLARE SCgciCur CURSOR FOR        SELECT COLTYPE, NULLS, CODEPAGE, LENGTH, SCALE, COLNO, KEYSEQ        FROM   SYSIBM.SYSCOLUMNS        WHERE  TBCREATOR         = :H_AUTHID          AND  TBNAME            = :H_NAME          AND  NAME           LIKE :H_COLN
  13. OPEN SCgciCur
  14. FETCH SCgciCur INTO :H_COLTYPE, :H_NULLS,  :H_CPAGE,                          :H_CLEN,    :H_CSCALE, :H_CNO, :H_KEYSEQ:H_NULLIND
  15. CLOSE SCgciCur
  16. SELECT NAME INTO :H_NAME      FROM   SYSIBM.SYSTABLES      WHERE  CREATOR = :H_AUTHID        AND  NAME    = :H_NAME
  17. SELECT UNIQUERULE, COLNAMES INTO :H_UNIQUE, :H_COLNAMES      FROM   SYSIBM.SYSINDEXES      WHERE  TBCREATOR = :H_AUTHID        AND  CREATOR   = :H_GRANTEE        AND  NAME      = :H_NDXN        AND  TBNAME    = :H_NAME
  18. SELECT TYPE INTO :H_SORT      FROM   SYSIBM.SYSTABLES      WHERE  CREATOR = :H_AUTHID        AND  NAME    = :H_NAME
  19. DECLARE SCgatpCur CURSOR FOR        SELECT GRANTOR, GRANTEE, CONTROLAUTH, ALTERAUTH, DELETEAUTH,               INDEXAUTH, INSERTAUTH, SELECTAUTH, UPDATEAUTH, TABAUTH, REFAUTH        FROM   SYSIBM.SYSTABAUTH        WHERE  TCREATOR          = :H_AUTHID          AND  TTNAME            = :H_NAME          AND  GRANTEE        LIKE :H_GRANTEE          AND  TTNAME            <> 'QRWSYS_OBJECT'        ORDER BY GRANTEE
  20. OPEN SCgatpCur
  21. FETCH SCgatpCur INTO :H_GRANTOR, :H_GRANTEE, :H_CTRAUTH, :H_ALTAUTH,                           :H_DELAUTH, :H_IDXAUTH, :H_INSAUTH, :H_SELAUTH,                           :H_UPDAUTH, :H_TABAUTH, :H_REFAUTH
  22. CLOSE SCgatpCur
  23. DECLARE SCgadpCur CURSOR FOR        SELECT GRANTOR, GRANTEE, DBADMAUTH, CREATETABAUTH, BINDADDAUTH,               CONNECTAUTH        FROM   SYSIBM.SYSDBAUTH        WHERE  GRANTEE        LIKE :H_GRANTEE        ORDER BY GRANTEE
  24. OPEN SCgadpCur
  25. FETCH SCgadpCur INTO :H_GRANTOR, :H_GRANTEE, :H_ADMAUTH, :H_CTABAUTH,                           :H_BNDAUTH, :H_CONAUTH
  26. CLOSE SCgadpCur
  27. SELECT CHILDREN, SELFREFS INTO :H_CHILDREN:H_NULLIND, :H_SELFREFS:H_SELFIND      FROM   SYSIBM.SYSTABLES      WHERE  CREATOR = :H_AUTHID        AND  NAME    = :H_NAME
  28. SELECT BTYPE, BNAME, BCREATOR INTO :H_SORT, :H_NAME, :H_AUTHID        FROM   SYSIBM.SYSVIEWDEP        WHERE  DCREATOR =  :H_AUTHID          AND  DNAME    =  :H_NAME
  29. DECLARE SCgdtCur CURSOR FOR        SELECT RELNAME, REFTBNAME, REFTBCREATOR, COLCOUNT, DELETERULE,               UPDATERULE, FKCOLNAMES, PKCOLNAMES        FROM   SYSIBM.SYSRELS        WHERE  CREATOR           = :H_AUTHID          AND  TBNAME            = :H_NAME
  30. OPEN SCgdtCur
  31. FETCH SCgdtCur INTO :H_GRANTEE, :H_NAME, :H_GRANTOR, :H_KEYCOLS,                          :H_DELAUTH, :H_UPDAUTH, :H_COLNAMES, :H_PKNAMES
  32. CLOSE SCgdtCur
  33. H_AUTHID
  34. H_GRANTEE
  35. H_GRANTOR
  36. H_NAME
  37. H_NDXN
  38. H_COMM
  39. H_COMMIND
  40. H_NULLIND
  41. H_SORT
  42. H_COLN
  43. H_COLTYPE
  44. H_NULLS
  45. H_CPAGE
  46. H_CLEN
  47. H_CSCALE
  48. H_CNO
  49. H_KEYCOLS
  50. H_KEYSEQ
  51. H_ADMAUTH
  52. H_CTABAUTH
  53. H_BNDAUTH
  54. H_CONAUTH
  55. H_CTRAUTH
  56. H_ALTAUTH
  57. H_DELAUTH
  58. H_IDXAUTH
  59. H_INSAUTH
  60. H_SELAUTH
  61. H_UPDAUTH
  62. H_TABAUTH
  63. H_REFAUTH
  64. H_COLNAMES
  65. H_PKNAMES
  66. H_UNIQUE
  67. H_CHILDREN
  68. H_SELFREFS
  69. H_SELFIND
  70.