home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 6 / IOPROG_06.ISO / trial / pb / server / pbibm2.bnd (.txt) < prev    next >
Encoding:
DB2 Bind  |  1996-04-19  |  5.8 KB  |  125 lines
  1. PBIBM2  KB3VRTEMPES500  3
  2. INCLUDE SQLCA
  3. BEGIN DECLARE SECTION
  4. END DECLARE SECTION
  5. PREPARE dbstmt FROM :sqlbuff
  6. DECLARE dbcur CURSOR FOR dbstmt
  7. OPEN dbcur
  8. FETCH dbcur INTO :owner, :tabname,                    :ncols, :tabtype,                   :reftabname, :reftabowner, :keyname
  9. FETCH dbcur INTO :owner, :tabname,                    :ncols, :tabtype
  10. CLOSE dbcur
  11. PREPARE tblstmt1 FROM :sqlbuff
  12. DECLARE tblcur1 CURSOR FOR tblstmt1
  13. OPEN tblcur1 USING :owner, :tabname
  14. FETCH tblcur1 INTO :ncols, :tabtype
  15. CLOSE tblcur1
  16. PREPARE colstmt2 FROM :sqlbuff
  17. DECLARE colcur2 CURSOR FOR colstmt2
  18. OPEN colcur2 USING :owner_in, :tabname_in
  19. PREPARE colstmt1 FROM :sqlbuff
  20. DECLARE colcur1 CURSOR FOR colstmt1
  21. OPEN colcur1 USING :owner_in, :tabname_in
  22. FETCH colcur1 INTO :colname,   :coltype,  :colnulls,                  :collength, :colscale, :colno
  23. FETCH colcur2 INTO :colname,      :coltype,  :colnulls,                  :sqlds_collen, :colno
  24. CLOSE colcur1
  25. CLOSE colcur2
  26. PREPARE ixstmt1 FROM :sqlbuff
  27. DECLARE ixcur1 CURSOR FOR ixstmt1
  28. OPEN ixcur1 USING :owner_in, :tabname_in
  29. FETCH ixcur1 INTO :idxname, :idxtype, :idxcols, :idxcount
  30. CLOSE ixcur1
  31. PREPARE ixstmt2 FROM :sqlbuff
  32. DECLARE ixcur2 CURSOR FOR ixstmt2
  33. OPEN ixcur2 USING :owner_in, :tabname_in
  34. FETCH ixcur2 INTO :idxname, :idxtype,  :idxcount,            :idxclust, :colname_in, :colno, :idxorder, :colseq
  35. CLOSE ixcur2
  36. PREPARE ixstmt3 FROM :sqlbuff
  37. DECLARE ixcur3 CURSOR FOR ixstmt3
  38. OPEN ixcur3 USING :owner_in, :tabname_in
  39. FETCH ixcur3 INTO :idxname, :idxtype,  :idxcnums,            :idxclust, :idxcols
  40. CLOSE ixcur3
  41. PREPARE ukstmt1 FROM :sqlbuff
  42. DECLARE ukcur1 CURSOR FOR ukstmt1
  43. OPEN ukcur1 USING :owner_in, :tabname_in
  44. FETCH ukcur1 INTO :idxname, :idxtype, :idxcols, :idxcount
  45. CLOSE ukcur1
  46. PREPARE ukstmt2 FROM :sqlbuff
  47. DECLARE ukcur2 CURSOR FOR ukstmt2
  48. OPEN ukcur2 USING :owner_in, :tabname_in
  49. FETCH ukcur2 INTO :idxname,    :idxtype, :idxcount,                      :colname_in, :colseq
  50. CLOSE ukcur2
  51. PREPARE ukstmt3 FROM :sqlbuff
  52. DECLARE ukcur3 CURSOR FOR ukstmt3
  53. OPEN ukcur3 USING :owner_in, :tabname_in
  54. FETCH ukcur3 INTO :idxname, :idxtype,                     :idxcnums, :idxcols
  55. CLOSE ukcur3
  56. PREPARE cktabstmt FROM :sqlbuff
  57. DECLARE cktabcur CURSOR FOR cktabstmt
  58. OPEN cktabcur USING :colname_in, :owner_in, :tabname_in
  59. FETCH cktabcur INTO :colname
  60. CLOSE cktabcur
  61. PREPARE fkstmt1 FROM :sqlbuff
  62. DECLARE fkcur1 CURSOR FOR fkstmt1
  63. OPEN fkcur1 USING :owner_in, :tabname_in
  64. FETCH fkcur1             INTO  :keyname,  :reftabowner, :reftabname,               :idxcount, :idxcols,     :delrule,    :uprule
  65. CLOSE fkcur1
  66. PREPARE fkstmt2 FROM :sqlbuff
  67. DECLARE fkcur2 CURSOR FOR fkstmt2
  68. OPEN fkcur2 USING :owner_in, :tabname_in
  69. FETCH fkcur2            INTO  :keyname,  :reftabowner, :reftabname,               :idxcount, :delrule, :colno, :colseq
  70. CLOSE fkcur2
  71. PREPARE pkrefstmt FROM :sqlbuff
  72. DECLARE pkrefcur CURSOR FOR pkrefstmt
  73. OPEN pkrefcur USING :owner_in, :tabname_in
  74. FETCH pkrefcur INTO :owner, :tabname, :ncols, :tabtype
  75. CLOSE pkrefcur
  76. PREPARE pkstmt1 FROM :sqlbuff
  77. DECLARE pkcur1 CURSOR FOR pkstmt1
  78. OPEN pkcur1 USING :owner_in, :tabname_in
  79. FETCH pkcur1 INTO :keyname, :idxcols, :idxcount
  80. CLOSE pkcur1
  81. PREPARE pkstmt2 FROM :sqlbuff
  82. DECLARE pkcur2 CURSOR FOR pkstmt2
  83. OPEN pkcur2 USING :owner_in, :tabname_in
  84. FETCH pkcur2 INTO :keyname, :idxcount, :colno, :colseq
  85. CLOSE pkcur2
  86. PREPARE dbastmt1 FROM :sqlbuff
  87. DECLARE dbacur1 CURSOR FOR dbastmt1
  88. OPEN dbacur1
  89. FETCH dbacur1 INTO :dbadmauth
  90. CLOSE dbacur1
  91. PREPARE colnstmt FROM :sqlbuff
  92. DECLARE colnocur CURSOR FOR colnstmt
  93. OPEN colnocur USING :colname_in,                    :owner_in, :tabname_in
  94. FETCH colnocur INTO :colno
  95. CLOSE colnocur
  96. owner
  97. tabname
  98. owner_in
  99. tabname_in
  100. ncols
  101. tabtype
  102. colname
  103. colname_in
  104. coltype
  105. colnulls
  106. collength
  107. colscale
  108. colno
  109. colseq
  110. idxname
  111. idxtype
  112. idxclust
  113. idxorder
  114. idxcols
  115. idxcnums
  116. idxcount
  117. keyname
  118. reftabname
  119. reftabowner
  120. delrule
  121. uprule
  122. dbadmauth
  123. sqlds_collen
  124. sqlbuff
  125.