home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / viscobv7.zip / vac22os2 / ibmcobol / macros / iwzasql.bnd (.txt) < prev    next >
DB2 Bind  |  1998-02-18  |  15KB  |  239 lines
  1. BIND V02
  2. IWZASQL DAPvTSCODA      0
  3. DA      
  4. INCLUDE SQLCA
  5. INCLUDE SQLDA
  6. BEGIN DECLARE SECTION
  7. END DECLARE SECTION
  8. WHENEVER NOT FOUND GO TO ext
  9. WHENEVER SQLERROR GO TO error
  10. PREPARE S1 FROM :buf
  11. DECLARE C1 CURSOR FOR S1
  12. OPEN C1 USING :parm_var, :parm_var2, :parm_var3
  13. FETCH C1 INTO :table_name, :creator_name, :type_name
  14. WHENEVER SQLERROR CONTINUE
  15. CLOSE C1
  16. BEGIN DECLARE SECTION
  17. END DECLARE SECTION
  18. WHENEVER NOT FOUND GO TO ext
  19. WHENEVER SQLERROR GO TO error
  20. PREPARE RS1 FROM :rbuf
  21. DECLARE RC1 CURSOR FOR RS1
  22. OPEN RC1
  23. OPEN RC1 USING :rparm_tsname,  :rparm_tsname2, :rparm_tsname3, :rparm_tsname4, :rparm_tsname5,                                      :rparm_tsname6, :rparm_tsname7, :rparm_tsname8, :rparm_tsname9, :rparm_tsname10
  24. OPEN RC1 USING :rparm_table
  25. OPEN RC1 USING :rparm_table,  :rparm_table2, :rparm_table3, :rparm_table4, :rparm_table5,                                      :rparm_table6, :rparm_table7, :rparm_table8, :rparm_table9, :rparm_table10
  26. OPEN RC1 USING :rparm_table,                                      :rparm_tsname,  :rparm_tsname2, :rparm_tsname3, :rparm_tsname4, :rparm_tsname5,                                      :rparm_tsname6, :rparm_tsname7, :rparm_tsname8, :rparm_tsname9, :rparm_tsname10
  27. OPEN RC1 USING :rparm_table,  :rparm_table2, :rparm_table3, :rparm_table4, :rparm_table5,                                      :rparm_table6, :rparm_table7, :rparm_table8, :rparm_table9, :rparm_table10,                                      :rparm_tsname,  :rparm_tsname2, :rparm_tsname3, :rparm_tsname4, :rparm_tsname5,                                      :rparm_tsname6, :rparm_tsname7, :rparm_tsname8, :rparm_tsname9, :rparm_tsname10
  28. OPEN RC1 USING :rparm_creator,  :rparm_creator2, :rparm_creator3, :rparm_creator4, :rparm_creator5,                                      :rparm_creator6, :rparm_creator7, :rparm_creator8, :rparm_creator9, :rparm_creator10
  29. OPEN RC1 USING :rparm_creator,  :rparm_creator2, :rparm_creator3, :rparm_creator4, :rparm_creator5,                                      :rparm_creator6, :rparm_creator7, :rparm_creator8, :rparm_creator9, :rparm_creator10,                                      :rparm_tsname,  :rparm_tsname2, :rparm_tsname3, :rparm_tsname4, :rparm_tsname5,                                      :rparm_tsname6, :rparm_tsname7, :rparm_tsname8, :rparm_tsname9, :rparm_tsname10
  30. OPEN RC1 USING :rparm_creator,  :rparm_creator2, :rparm_creator3, :rparm_creator4, :rparm_creator5,                                      :rparm_creator6, :rparm_creator7, :rparm_creator8, :rparm_creator9, :rparm_creator10,                                      :rparm_table
  31. OPEN RC1 USING :rparm_creator,  :rparm_creator2, :rparm_creator3, :rparm_creator4, :rparm_creator5,                                      :rparm_creator6, :rparm_creator7, :rparm_creator8, :rparm_creator9, :rparm_creator10,                                      :rparm_table,  :rparm_table2, :rparm_table3, :rparm_table4, :rparm_table5,                                      :rparm_table6, :rparm_table7, :rparm_table8, :rparm_table9, :rparm_table10
  32. OPEN RC1 USING :rparm_creator,  :rparm_creator2, :rparm_creator3, :rparm_creator4, :rparm_creator5,                                      :rparm_creator6, :rparm_creator7, :rparm_creator8, :rparm_creator9, :rparm_creator10,                                      :rparm_table,                                      :rparm_tsname,  :rparm_tsname2, :rparm_tsname3, :rparm_tsname4, :rparm_tsname5,                                      :rparm_tsname6, :rparm_tsname7, :rparm_tsname8, :rparm_tsname9, :rparm_tsname10
  33. OPEN RC1 USING :rparm_creator,  :rparm_creator2, :rparm_creator3, :rparm_creator4, :rparm_creator5,                                      :rparm_creator6, :rparm_creator7, :rparm_creator8, :rparm_creator9, :rparm_creator10,                                      :rparm_table,  :rparm_table2, :rparm_table3, :rparm_table4, :rparm_table5,                                      :rparm_table6, :rparm_table7, :rparm_table8, :rparm_table9, :rparm_table10,                                      :rparm_tsname,  :rparm_tsname2, :rparm_tsname3, :rparm_tsname4, :rparm_tsname5,                                      :rparm_tsname6, :rparm_tsname7, :rparm_tsname8, :rparm_tsname9, :rparm_tsname10
  34. FETCH RC1 INTO :rtable_name, :rcreator_name, :rtsname_name, :rtype_name
  35. WHENEVER SQLERROR CONTINUE
  36. CLOSE RC1
  37. BEGIN DECLARE SECTION
  38. END DECLARE SECTION
  39. WHENEVER NOT FOUND GO TO ext
  40. WHENEVER SQLERROR GO TO error
  41. PREPARE VS1 FROM :vbuf
  42. DECLARE VC1 CURSOR FOR VS1
  43. OPEN VC1 USING :vparm_var, :vparm_var2
  44. FETCH VC1 INTO :view_name, :vcreator_name
  45. WHENEVER SQLERROR CONTINUE
  46. CLOSE VC1
  47. BEGIN DECLARE SECTION
  48. END DECLARE SECTION
  49. WHENEVER NOT FOUND GO TO ext
  50. WHENEVER SQLERROR GO TO error
  51. PREPARE RVS1 FROM :rvbuf
  52. DECLARE RVC1 CURSOR FOR RVS1
  53. OPEN RC1 USING :rvparm_var
  54. FETCH RC1 INTO :rview_name, :rvcreator_name
  55. WHENEVER SQLERROR CONTINUE
  56. CLOSE RVC1
  57. BEGIN DECLARE SECTION
  58. END DECLARE SECTION
  59. WHENEVER NOT FOUND GO TO ext
  60. WHENEVER SQLERROR GO TO error
  61. PREPARE STAB FROM :fkbuf
  62. DECLARE FKCUR CURSOR FOR STAB
  63. OPEN FKCUR USING :tabparm
  64. FETCH FKCUR INTO :rel_name, :ref_tbName,                    :col_count, :fk_colName, :pk_colName
  65. WHENEVER SQLERROR CONTINUE
  66. CLOSE FKCUR
  67. BEGIN DECLARE SECTION
  68. END DECLARE SECTION
  69. WHENEVER NOT FOUND GO TO ext
  70. WHENEVER SQLERROR GO TO error
  71. PREPARE RSTAB FROM :rfkbuf
  72. DECLARE RFKCUR CURSOR FOR RSTAB
  73. OPEN RFKCUR USING :rtabparm, :rtabparm, :rdbparm, :rdbparm
  74. FETCH RFKCUR INTO :rrel_name, :rref_tbName,                    :rcol_count, :rfk_colName
  75. WHENEVER SQLERROR CONTINUE
  76. CLOSE RFKCUR
  77. BEGIN DECLARE SECTION
  78. END DECLARE SECTION
  79. WHENEVER NOT FOUND GO TO ext
  80. WHENEVER SQLERROR GO TO error
  81. PREPARE PSTAB FROM :pkbuf
  82. DECLARE PKCUR CURSOR FOR PSTAB
  83. OPEN PKCUR USING :ptabparm
  84. FETCH PKCUR INTO :ppk_colName
  85. WHENEVER SQLERROR CONTINUE
  86. CLOSE PKCUR
  87. BEGIN DECLARE SECTION
  88. END DECLARE SECTION
  89. WHENEVER NOT FOUND GO TO ext
  90. WHENEVER SQLERROR GO TO error
  91. PREPARE RPSTAB FROM :rpkbuf
  92. DECLARE RPKCUR CURSOR FOR RPSTAB
  93. OPEN RPKCUR USING :rpdbparm, :rptabparm
  94. FETCH RPKCUR INTO  :rppk_colName
  95. WHENEVER SQLERROR CONTINUE
  96. CLOSE RPKCUR
  97. BEGIN DECLARE SECTION
  98. END DECLARE SECTION
  99. WHENEVER NOT FOUND GO TO ext
  100. WHENEVER SQLERROR GO TO error
  101. PREPARE SCOL FROM :colbuf
  102. DECLARE SCUR CURSOR FOR SCOL
  103. OPEN SCUR USING :colparm
  104. FETCH SCUR INTO :sName, :sType, :sNull, :sLen,              :sScale, :sSeq:sSeq_ind
  105. WHENEVER SQLERROR CONTINUE
  106. CLOSE SCUR
  107. BEGIN DECLARE SECTION
  108. END DECLARE SECTION
  109. WHENEVER NOT FOUND GO TO ext
  110. WHENEVER SQLERROR GO TO error
  111. PREPARE RSCOL FROM :rcolbuf
  112. DECLARE RSCUR CURSOR FOR RSCOL
  113. OPEN RSCUR USING :rtable, :rtable, :rtsname, :rcreator 
  114. FETCH RSCUR INTO :rsName, :rsType, :rsNull, :rsLen,              :rsScale, :rsSeq:rsSeq_ind
  115. WHENEVER SQLERROR CONTINUE
  116. CLOSE RSCUR
  117. BEGIN DECLARE SECTION
  118. END DECLARE SECTION
  119. WHENEVER SQLERROR GO TO ext
  120. EXECUTE IMMEDIATE :hostvar
  121. WHENEVER SQLERROR CONTINUE
  122. BEGIN DECLARE SECTION
  123. END DECLARE SECTION
  124. WHENEVER SQLERROR GO TO ext
  125. PREPARE STMT1_NAME FROM :stmt1_str
  126. DECLARE DYN_CURSOR CURSOR FOR STMT1_NAME
  127. DESCRIBE STMT1_NAME INTO :minsqlda
  128. DESCRIBE STMT1_NAME INTO :fulsqlda 
  129. OPEN DYN_CURSOR
  130. FETCH DYN_CURSOR USING DESCRIPTOR :fulsqlda 
  131. CLOSE DYN_CURSOR
  132. WHENEVER SQLERROR CONTINUE
  133. CLOSE DYN_CURSOR
  134. BEGIN DECLARE SECTION
  135. END DECLARE SECTION
  136. WHENEVER NOT FOUND GO TO ext
  137. WHENEVER SQLERROR GO TO error
  138. PREPARE STMT2_NAME FROM :stmt2_str
  139. DECLARE DYN_CURSOR2 CURSOR FOR STMT2_NAME
  140. DESCRIBE STMT2_NAME INTO :minsqlda
  141. DESCRIBE STMT2_NAME INTO :fulsqlda 
  142. OPEN DYN_CURSOR2
  143. FETCH DYN_CURSOR2 USING DESCRIPTOR :fulsqlda 
  144. WHENEVER SQLERROR CONTINUE
  145. CLOSE DYN_CURSOR2
  146. table_name
  147. creator_name
  148. type_name
  149. parm_var
  150. parm_var2
  151. parm_var3
  152. rtable_name
  153. rcreator_name
  154. rtsname_name
  155. rtype_name
  156. rparm_creator
  157. rparm_creator2
  158. rparm_creator3
  159. rparm_creator4
  160. rparm_creator5
  161. rparm_creator6
  162. rparm_creator7
  163. rparm_creator8
  164. rparm_creator9
  165. rparm_creator10
  166. rparm_table
  167. rparm_table2
  168. rparm_table3
  169. rparm_table4
  170. rparm_table5
  171. rparm_table6
  172. rparm_table7
  173. rparm_table8
  174. rparm_table9
  175. rparm_table10
  176. rparm_tsname
  177. rparm_tsname2
  178. rparm_tsname3
  179. rparm_tsname4
  180. rparm_tsname5
  181. rparm_tsname6
  182. rparm_tsname7
  183. rparm_tsname8
  184. rparm_tsname9
  185. rparm_tsname10
  186. view_name
  187. vcreator_name
  188. vparm_var
  189. vparm_var2
  190. rview_name
  191. rvcreator_name
  192. rvbuf
  193. rvparm_var
  194. rel_name
  195. ref_tbName
  196. fk_colName
  197. pk_colName
  198. col_count
  199. fkbuf
  200. tabparm
  201. rrel_name
  202. rref_tbName
  203. rfk_colName
  204. rpk_colName
  205. rcol_count
  206. rfkbuf
  207. rtabparm
  208. rdbparm
  209. ppk_colName
  210. pkbuf
  211. ptabparm
  212. rppk_colName
  213. rpkbuf
  214. rptabparm
  215. rpdbparm
  216. sName
  217. sType
  218. sNull
  219. sScale
  220. sSeq_ind
  221. colbuf
  222. colparm
  223. rsName
  224. rsType
  225. rsNull
  226. rsLen
  227. rsScale
  228. rsSeq
  229. rsSeq_ind
  230. rcolbuf
  231. rcolparm
  232. rdbname
  233. rcreator
  234. rtable
  235. rtsname
  236. hostvar
  237. stmt1_str
  238. stmt2_str
  239.