home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 30 fixes_v / 30-fixes_v.zip / vxrxc21a.zip / WDB221A.BND (.txt) < prev   
DB2 Bind  |  1994-10-31  |  7KB  |  208 lines
  1. WDB221A AAZATYKKWATCOM  0
  2. BEGIN DECLARE SECTION
  3. END DECLARE SECTION
  4. PREPARE S01 FROM :stmt
  5. PREPARE S02 FROM :stmt
  6. PREPARE S03 FROM :stmt
  7. PREPARE S04 FROM :stmt
  8. PREPARE S05 FROM :stmt
  9. PREPARE S06 FROM :stmt
  10. PREPARE S07 FROM :stmt
  11. PREPARE S08 FROM :stmt
  12. PREPARE S09 FROM :stmt
  13. PREPARE S10 FROM :stmt
  14. PREPARE S11 FROM :stmt
  15. PREPARE S12 FROM :stmt
  16. PREPARE S13 FROM :stmt
  17. PREPARE S14 FROM :stmt
  18. PREPARE S15 FROM :stmt
  19. PREPARE S16 FROM :stmt
  20. PREPARE S17 FROM :stmt
  21. PREPARE S18 FROM :stmt
  22. PREPARE S19 FROM :stmt
  23. PREPARE S20 FROM :stmt
  24. PREPARE S21 FROM :stmt
  25. PREPARE S22 FROM :stmt
  26. PREPARE S23 FROM :stmt
  27. PREPARE S24 FROM :stmt
  28. PREPARE S25 FROM :stmt
  29. PREPARE S26 FROM :stmt
  30. PREPARE S27 FROM :stmt
  31. PREPARE S28 FROM :stmt
  32. PREPARE S29 FROM :stmt
  33. PREPARE S30 FROM :stmt
  34. PREPARE S31 FROM :stmt
  35. PREPARE S32 FROM :stmt
  36. DESCRIBE S01 INTO :sqlda 
  37. DESCRIBE S02 INTO :sqlda 
  38. DESCRIBE S03 INTO :sqlda 
  39. DESCRIBE S04 INTO :sqlda 
  40. DESCRIBE S05 INTO :sqlda 
  41. DESCRIBE S06 INTO :sqlda 
  42. DESCRIBE S07 INTO :sqlda 
  43. DESCRIBE S08 INTO :sqlda 
  44. DESCRIBE S09 INTO :sqlda 
  45. DESCRIBE S10 INTO :sqlda 
  46. DESCRIBE S11 INTO :sqlda 
  47. DESCRIBE S12 INTO :sqlda 
  48. DESCRIBE S13 INTO :sqlda 
  49. DESCRIBE S14 INTO :sqlda 
  50. DESCRIBE S15 INTO :sqlda 
  51. DESCRIBE S16 INTO :sqlda 
  52. DESCRIBE S17 INTO :sqlda 
  53. DESCRIBE S18 INTO :sqlda 
  54. DESCRIBE S19 INTO :sqlda 
  55. DESCRIBE S20 INTO :sqlda 
  56. DESCRIBE S21 INTO :sqlda 
  57. DESCRIBE S22 INTO :sqlda 
  58. DESCRIBE S23 INTO :sqlda 
  59. DESCRIBE S24 INTO :sqlda 
  60. DESCRIBE S25 INTO :sqlda 
  61. DESCRIBE S26 INTO :sqlda 
  62. DESCRIBE S27 INTO :sqlda 
  63. DESCRIBE S28 INTO :sqlda 
  64. DESCRIBE S29 INTO :sqlda 
  65. DESCRIBE S30 INTO :sqlda 
  66. DESCRIBE S31 INTO :sqlda 
  67. DESCRIBE S32 INTO :sqlda 
  68. DECLARE C01 CURSOR FOR S01
  69. DECLARE C02 CURSOR FOR S02
  70. DECLARE C03 CURSOR FOR S03
  71. DECLARE C04 CURSOR FOR S04
  72. DECLARE C05 CURSOR FOR S05
  73. DECLARE C06 CURSOR FOR S06
  74. DECLARE C07 CURSOR FOR S07
  75. DECLARE C08 CURSOR FOR S08
  76. DECLARE C09 CURSOR FOR S09
  77. DECLARE C10 CURSOR FOR S10
  78. DECLARE C11 CURSOR FOR S11
  79. DECLARE C12 CURSOR FOR S12
  80. DECLARE C13 CURSOR FOR S13
  81. DECLARE C14 CURSOR FOR S14
  82. DECLARE C15 CURSOR FOR S15
  83. DECLARE C16 CURSOR FOR S16
  84. DECLARE C17 CURSOR FOR S17
  85. DECLARE C18 CURSOR FOR S18
  86. DECLARE C19 CURSOR FOR S19
  87. DECLARE C20 CURSOR FOR S20
  88. DECLARE C21 CURSOR FOR S21
  89. DECLARE C22 CURSOR FOR S22
  90. DECLARE C23 CURSOR FOR S23
  91. DECLARE C24 CURSOR FOR S24
  92. DECLARE C25 CURSOR FOR S25
  93. DECLARE C26 CURSOR FOR S26
  94. DECLARE C27 CURSOR FOR S27
  95. DECLARE C28 CURSOR FOR S28
  96. DECLARE C29 CURSOR FOR S29
  97. DECLARE C30 CURSOR FOR S30
  98. DECLARE C31 CURSOR FOR S31
  99. DECLARE C32 CURSOR FOR S32
  100. OPEN C01
  101. OPEN C02
  102. OPEN C03
  103. OPEN C04
  104. OPEN C05
  105. OPEN C06
  106. OPEN C07
  107. OPEN C08
  108. OPEN C09
  109. OPEN C10
  110. OPEN C11
  111. OPEN C12
  112. OPEN C13
  113. OPEN C14
  114. OPEN C15
  115. OPEN C16
  116. OPEN C17
  117. OPEN C18
  118. OPEN C19
  119. OPEN C20
  120. OPEN C21
  121. OPEN C22
  122. OPEN C23
  123. OPEN C24
  124. OPEN C25
  125. OPEN C26
  126. OPEN C27
  127. OPEN C28
  128. OPEN C29
  129. OPEN C30
  130. OPEN C31
  131. OPEN C32
  132. CLOSE C01
  133. CLOSE C02
  134. CLOSE C03
  135. CLOSE C04
  136. CLOSE C05
  137. CLOSE C06
  138. CLOSE C07
  139. CLOSE C08
  140. CLOSE C09
  141. CLOSE C10
  142. CLOSE C11
  143. CLOSE C12
  144. CLOSE C13
  145. CLOSE C14
  146. CLOSE C15
  147. CLOSE C16
  148. CLOSE C17
  149. CLOSE C18
  150. CLOSE C19
  151. CLOSE C20
  152. CLOSE C21
  153. CLOSE C22
  154. CLOSE C23
  155. CLOSE C24
  156. CLOSE C25
  157. CLOSE C26
  158. CLOSE C27
  159. CLOSE C28
  160. CLOSE C29
  161. CLOSE C30
  162. CLOSE C31
  163. CLOSE C32
  164. FETCH C01 USING DESCRIPTOR :sqlda 
  165. FETCH C02 USING DESCRIPTOR :sqlda 
  166. FETCH C03 USING DESCRIPTOR :sqlda 
  167. FETCH C04 USING DESCRIPTOR :sqlda 
  168. FETCH C05 USING DESCRIPTOR :sqlda 
  169. FETCH C06 USING DESCRIPTOR :sqlda 
  170. FETCH C07 USING DESCRIPTOR :sqlda 
  171. FETCH C08 USING DESCRIPTOR :sqlda 
  172. FETCH C09 USING DESCRIPTOR :sqlda 
  173. FETCH C10 USING DESCRIPTOR :sqlda 
  174. FETCH C11 USING DESCRIPTOR :sqlda 
  175. FETCH C12 USING DESCRIPTOR :sqlda 
  176. FETCH C13 USING DESCRIPTOR :sqlda 
  177. FETCH C14 USING DESCRIPTOR :sqlda 
  178. FETCH C15 USING DESCRIPTOR :sqlda 
  179. FETCH C16 USING DESCRIPTOR :sqlda 
  180. FETCH C17 USING DESCRIPTOR :sqlda 
  181. FETCH C18 USING DESCRIPTOR :sqlda 
  182. FETCH C19 USING DESCRIPTOR :sqlda 
  183. FETCH C20 USING DESCRIPTOR :sqlda 
  184. FETCH C21 USING DESCRIPTOR :sqlda 
  185. FETCH C22 USING DESCRIPTOR :sqlda 
  186. FETCH C23 USING DESCRIPTOR :sqlda 
  187. FETCH C24 USING DESCRIPTOR :sqlda 
  188. FETCH C25 USING DESCRIPTOR :sqlda 
  189. FETCH C26 USING DESCRIPTOR :sqlda 
  190. FETCH C27 USING DESCRIPTOR :sqlda 
  191. FETCH C28 USING DESCRIPTOR :sqlda 
  192. FETCH C29 USING DESCRIPTOR :sqlda 
  193. FETCH C30 USING DESCRIPTOR :sqlda 
  194. FETCH C31 USING DESCRIPTOR :sqlda 
  195. FETCH C32 USING DESCRIPTOR :sqlda 
  196. BEGIN DECLARE SECTION
  197. END DECLARE SECTION
  198. CONNECT TO :database  IN SHARE MODE
  199. CONNECT TO :database  IN SHARE MODE
  200. CONNECT RESET
  201. COMMIT WORK
  202. ROLLBACK WORK
  203. BEGIN DECLARE SECTION
  204. END DECLARE SECTION
  205. WHENEVER SQLERROR CONTINUE
  206. EXECUTE IMMEDIATE :comm
  207. database
  208.