home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / datatl25.zip / DCTDSGN.Z / ewsddb2x.bnd (.txt) < prev    next >
DB2 Bind  |  1997-09-11  |  30KB  |  477 lines
  1. BIND V02
  2. EWSDDB2XjBYFOKGNATLASRDB0
  3. ATLASRDB
  4. INCLUDE SQLCA
  5. INCLUDE SQLDA
  6. BEGIN DECLARE SECTION
  7. END DECLARE SECTION
  8. DECLARE LISTCUR CURSOR FOR LISTSEL
  9. PREPARE LISTSEL FROM :SQLSEL
  10. OPEN LISTCUR
  11. FETCH LISTCUR INTO :NAMEBUF, :IDBUF
  12. FETCH LISTCUR INTO :NAMEBUF, :IDBUF
  13. CLOSE LISTCUR
  14. COMMIT
  15. COMMIT
  16. BEGIN DECLARE SECTION
  17. END DECLARE SECTION
  18. DECLARE TABSTAT CURSOR FOR TSTATSEL
  19. PREPARE TSTATSEL FROM :SQLSEL
  20. OPEN TABSTAT
  21. FETCH TABSTAT INTO :CARD_GTS, :RECLENGTH_GTS, :NPAGES_GTS,          :PCTPAGES_GTS, :PCTROWCOMP_GTS, :STATSTIME_GTS, :STATUS_GTS,          :COLCARD_GTS, :HIGH2KEY_GTS, :LOW2KEY_GTS, :COLTYPE_GTS,          :LENGTH_GTS, :SCALE_GTS
  22. FETCH TABSTAT INTO :CARD_GTS, :RECLENGTH_GTS, :NPAGES_GTS,          :PCTPAGES_GTS, :PCTROWCOMP_GTS, :STATSTIME_GTS, :STATUS_GTS,          :COLCARD_GTS, :HIGH2KEY_GTS, :LOW2KEY_GTS
  23. CLOSE TABSTAT
  24. BEGIN DECLARE SECTION
  25. END DECLARE SECTION
  26. DECLARE INDXSTAT CURSOR FOR ISTATSEL
  27. PREPARE ISTATSEL FROM :SQLSEL
  28. OPEN INDXSTAT
  29. FETCH INDXSTAT INTO :CLUSTERED_GIS, :CLUSTERRATIO_GIS,          :FIRSTKEYCARD_GIS, :FULLKEYCARD_GIS, :NLEAF_GIS, :NLEVELS_GIS,          :SPACE_GIS, :STATSTIME_GIS, :CARD_GIS, :LEAFDIST_GIS,          :FAROFFPOS_GIS, :NEAROFFPOS_GIS, :SPACEP_GIS, :STATSTIMEP_GIS,          :PARTITION_GIS
  30. FETCH INDXSTAT INTO :CLUSTERED_GIS, :CLUSTERRATIO_GIS,          :FIRSTKEYCARD_GIS, :FULLKEYCARD_GIS, :NLEAF_GIS, :NLEVELS_GIS,          :SPACE_GIS, :STATSTIME_GIS, :CARD_GIS, :LEAFDIST_GIS,          :FAROFFPOS_GIS, :NEAROFFPOS_GIS, :SPACEP_GIS, :STATSTIMEP_GIS,          :PARTITION_GIS
  31. CLOSE INDXSTAT
  32. COMMIT
  33. BEGIN DECLARE SECTION
  34. END DECLARE SECTION
  35. DECLARE TSSTAT CURSOR FOR TSSTATSEL
  36. PREPARE TSSTATSEL FROM :SQLSEL
  37. OPEN TSSTAT
  38. FETCH TSSTAT INTO :STATUS_GPS, :NACTIVE_GPS, :SPACE_GPS,          :IMPLICIT_GPS, :CARD_GPS, :FARINDREF_GPS, :NEARINDREF_GPS,          :PERCACTIVE_GPS, :PERCDROP_GPS, :SPACEP_GPS, :STATSTIME_GPS,          :PAGESAVE_GPS, :PARTITION_GPS
  39. FETCH TSSTAT INTO :STATUS_GPS, :NACTIVE_GPS, :SPACE_GPS,          :IMPLICIT_GPS, :CARD_GPS, :FARINDREF_GPS, :NEARINDREF_GPS,          :PERCACTIVE_GPS, :PERCDROP_GPS, :SPACEP_GPS, :STATSTIME_GPS,          :PAGESAVE_GPS, :PARTITION_GPS
  40. CLOSE TSSTAT
  41. BEGIN DECLARE SECTION
  42. END DECLARE SECTION
  43. DECLARE SGSTAT CURSOR FOR SGSTATSEL
  44. PREPARE SGSTATSEL FROM :SQLSEL
  45. OPEN SGSTAT
  46. FETCH SGSTAT INTO :SPACE_GSS
  47. CLOSE SGSTAT
  48. DECLARE FRELCUR CURSOR FOR FRELSEL
  49. PREPARE FRELSEL FROM :SQLSEL
  50. OPEN FRELCUR
  51. FETCH FRELCUR INTO :NAMEBUF, :IDBUF
  52. FETCH FRELCUR INTO :NAMEBUF, :IDBUF
  53. CLOSE FRELCUR
  54. DECLARE FINDEXCUR CURSOR FOR FINDEXSEL
  55. PREPARE FINDEXSEL FROM :SQLSEL
  56. OPEN FINDEXCUR
  57. FETCH FINDEXCUR INTO :NAMEBUF, :IDBUF
  58. FETCH FINDEXCUR INTO :NAMEBUF, :IDBUF
  59. CLOSE FINDEXCUR
  60. DECLARE FVIEWCUR CURSOR FOR FVIEWSEL
  61. PREPARE FVIEWSEL FROM :SQLSEL
  62. OPEN FVIEWCUR
  63. FETCH FVIEWCUR INTO :NAMEBUF, :IDBUF
  64. FETCH FVIEWCUR INTO :NAMEBUF, :IDBUF
  65. CLOSE FVIEWCUR
  66. COMMIT
  67. COMMIT
  68. BEGIN DECLARE SECTION
  69. END DECLARE SECTION
  70. DECLARE GCOLCUR CURSOR FOR GCOLSEL
  71. PREPARE GCOLSEL FROM :SQLSEL
  72. OPEN GCOLCUR
  73. FETCH GCOLCUR INTO :NAME_COL
  74. FETCH GCOLCUR INTO :NAME_COL
  75. CLOSE GCOLCUR
  76. COMMIT
  77. BEGIN DECLARE SECTION
  78. END DECLARE SECTION
  79. DECLARE GT2CUR CURSOR FOR GT2SEL
  80. PREPARE GT2SEL FROM :SQLSEL
  81. OPEN GT2CUR
  82. FETCH GT2CUR INTO :TBLNAME_GT2, :CREATOR_GT2, :TBL_REM_GT2:TBL_REM_IND, :DATACAPTURE_GT2,        :COLNAME_GT2, :COL_REM_GT2:COL_REM_IND, :COLTYPE_GT2, :COLSCHEMA_GT2, :NULLS_GT2, :CODEPAGE_GT2,        :LOGGED_GT2, :COMPACT_GT2, :COLLGTH_GT2, :SCALE_GT2, :DEFAULTVALUE_GT2:DEFAULT_IND, :COLNO_GT2,        :KEYSEQ_GT2:IND, :DATACAPTURE_GT2, :CHECKCOUNT_GT2,        :TBSPACE_GT2:TBSPACE_IND, :INDEX_TBSPACE_GT2:INDEX_TBSPACE_IND, :LONG_TBSPACE_GT2:LONG_TBSPACE_IND
  83. DECLARE GDT2CUR CURSOR FOR GDT2SEL
  84. PREPARE GDT2SEL FROM :SQLSEL
  85. OPEN GDT2CUR
  86. FETCH GT2CUR INTO :TYPENAME_GT2, :TYPESCHEMA_GT2, :SOURCESCHEMA_GT2, :SOURCETYPE_GT2,           :TYPE_LEN_GT2, :TYPE_SCALE_GT2, :TYPE_CODEPAGE_GT2, :TYPE_REM_GT2:TYPE_REM_IND
  87. FETCH GT2CUR INTO :TBLNAME_GT2, :CREATOR_GT2, :TBL_REM_GT2:TBL_REM_IND, :DATACAPTURE_GT2,           :COLNAME_GT2, :COL_REM_GT2:COL_REM_IND, :COLTYPE_GT2, :COLSCHEMA_GT2, :NULLS_GT2, :CODEPAGE_GT2,           :LOGGED_GT2, :COMPACT_GT2, :COLLGTH_GT2, :SCALE_GT2, :DEFAULTVALUE_GT2:DEFAULT_IND, :COLNO_GT2,           :KEYSEQ_GT2:IND, :DATACAPTURE_GT2, :CHECKCOUNT_GT2,           :TBSPACE_GT2:TBSPACE_IND, :INDEX_TBSPACE_GT2:INDEX_TBSPACE_IND, :LONG_TBSPACE_GT2:LONG_TBSPACE_IND
  88. DECLARE PRIM2CUR CURSOR FOR PRIM2SEL
  89. PREPARE PRIM2SEL FROM :SQLSEL
  90. OPEN PRIM2CUR
  91. FETCH PRIM2CUR INTO :PRIM_COL_GT2, :PRIM_NAME_GT2, :KEYTYPE_GT2, :CONSTREMARKS_GT2:IND
  92. FETCH PRIM2CUR INTO :PRIM_COL_GT2, :PRIM_NAME_GT2, :KEYTYPE_GT2, :CONSTREMARKS_GT2:IND
  93. CLOSE PRIM2CUR
  94. DECLARE FOR2CUR CURSOR FOR FOR2SEL
  95. PREPARE FOR2SEL FROM :SQLSEL
  96. OPEN FOR2CUR
  97. FETCH FOR2CUR INTO :REFTBNAME_GT2, :REFTBCREATOR_GT2,          :RELNAME_GT2, :DELETERULE_GT2, :UPDATERULE_GT2, :FKCOLNAMES_GT2
  98. FETCH FOR2CUR INTO :REFTBNAME_GT2, :REFTBCREATOR_GT2,                :RELNAME_GT2, :DELETERULE_GT2, :UPDATERULE_GT2, :FKCOLNAMES_GT2
  99. CLOSE FOR2CUR
  100. CLOSE GT2CUR
  101. DECLARE CHECKCUR2 CURSOR FOR CHECKSEL2
  102. PREPARE CHECKSEL2 FROM :SQLSEL
  103. OPEN CHECKCUR2
  104. FETCH CHECKCUR2 INTO :CHECKNAME_GT2, :CONSTREMARKS_GT2:IND, :checkText
  105. FETCH CHECKCUR2 INTO :CHECKNAME_GT2, :CONSTREMARKS_GT2:IND, :checkText
  106. CLOSE CHECKCUR2
  107. BEGIN DECLARE SECTION
  108. END DECLARE SECTION
  109. DECLARE GI2CUR CURSOR FOR GI2SEL
  110. PREPARE GI2SEL FROM :SQLSEL
  111. OPEN GI2CUR
  112. FETCH GI2CUR INTO :TBNAME_GI2, :TBCREATOR_GI2, :COLNAMES_GI2,                                :UNIQUERULE_GI2, :COLCOUNT_GI2, :REMARKS_GI2 :IND
  113. CLOSE GI2CUR
  114. BEGIN DECLARE SECTION
  115. END DECLARE SECTION
  116. DECLARE GV2CUR CURSOR FOR GV2SEL
  117. PREPARE GV2SEL FROM :SQLSEL
  118. OPEN GV2CUR
  119. FETCH GV2CUR INTO :TEXT_GV2, :CHECK_GV2
  120. FETCH GV2CUR INTO :TEXT_GV2, :CHECK_GV2
  121. CLOSE GV2CUR
  122. DECLARE GV2CUR2 CURSOR FOR GV2SEL2
  123. PREPARE GV2SEL2 FROM :SQLSEL
  124. OPEN GV2CUR2
  125. FETCH GV2CUR2 INTO :VIEW_REM_GV2:IND
  126. CLOSE GV2CUR2
  127. BEGIN DECLARE SECTION
  128. END DECLARE SECTION
  129. DECLARE TBSCUR CURSOR FOR TBSSEL
  130. PREPARE TBSSEL FROM :SQLSEL
  131. OPEN TBSCUR
  132. FETCH TBSCUR INTO :TBSPACE_TB2, :TBSPACETYPE_TB2, :DATATYPE_TB2, :REMARKS_TB2 :IND
  133. CLOSE TBSCUR
  134. BEGIN DECLARE SECTION
  135. END DECLARE SECTION
  136. DECLARE GTMCUR CURSOR FOR GTMSEL
  137. PREPARE GTMSEL FROM :SQLSEL
  138. OPEN GTMCUR
  139. FETCH GTMCUR INTO :TBLNAME_GTM, :CREATOR_GTM, :DBNAME_GTM,           :TSNAME_GTM, :EDPROC_GTM, :VALPROC_GTM, :AUDITING_GTM, :OBID_GTM,           :DATACAP_GTM, :TBL_REM_GTM, :TBL_LABEL_GTM, :COLNAME_GTM, :COLNO_GTM,           :COLTYPE_GTM, :COLLGTH_GTM, :NULLS_GTM, :COL_REM_GTM, :COL_LABEL_GTM,           :FLDPROC_GTM,           :CLUSTERTYPE_GTM, :CHECKS_GTM, :DEFAULTVALUE_GTM, :CCSID_GTM,           :FOREIGNKEY_GTM, :KEYSEQ_GTM, :SCALE_GTM, :DEFAULT_GTM
  140. FETCH GTMCUR INTO :TBLNAME_GTM, :CREATOR_GTM, :DBNAME_GTM,           :TSNAME_GTM, :EDPROC_GTM, :VALPROC_GTM, :AUDITING_GTM, :OBID_GTM,           :DATACAP_GTM, :TBL_REM_GTM, :TBL_LABEL_GTM, :COLNAME_GTM, :COLNO_GTM,           :COLTYPE_GTM, :COLLGTH_GTM, :NULLS_GTM, :COL_REM_GTM, :COL_LABEL_GTM,           :FLDPROC_GTM,           :CLUSTERTYPE_GTM, :CHECKS_GTM, :DEFAULTVALUE_GTM,           :FOREIGNKEY_GTM, :KEYSEQ_GTM, :SCALE_GTM, :DEFAULT_GTM
  141. FETCH GTMCUR INTO :TBLNAME_GTM, :CREATOR_GTM, :DBNAME_GTM,           :TSNAME_GTM, :EDPROC_GTM, :VALPROC_GTM, :AUDITING_GTM, :OBID_GTM,           :DATACAP_GTM, :TBL_REM_GTM, :TBL_LABEL_GTM, :COLNAME_GTM, :COLNO_GTM,           :COLTYPE_GTM, :COLLGTH_GTM, :NULLS_GTM, :COL_REM_GTM, :COL_LABEL_GTM,           :FLDPROC_GTM, :FOREIGNKEY_GTM, :KEYSEQ_GTM, :SCALE_GTM, :DEFAULT_GTM
  142. DECLARE FIELDCUR CURSOR FOR FIELDSEL
  143. PREPARE FIELDSEL FROM :SQLSEL
  144. OPEN FIELDCUR
  145. FETCH FIELDCUR INTO :FIELDPRC_NAME_GTM, :PARMLIST_GTM
  146. CLOSE FIELDCUR
  147. FETCH GTMCUR INTO :TBLNAME_GTM, :CREATOR_GTM, :DBNAME_GTM,              :TSNAME_GTM, :EDPROC_GTM, :VALPROC_GTM, :AUDITING_GTM, :OBID_GTM,              :DATACAP_GTM, :TBL_REM_GTM, :TBL_LABEL_GTM, :COLNAME_GTM, :COLNO_GTM,              :COLTYPE_GTM, :COLLGTH_GTM, :NULLS_GTM, :COL_REM_GTM, :COL_LABEL_GTM,              :FLDPROC_GTM,              :CLUSTERTYPE_GTM, :CHECKS_GTM, :DEFAULTVALUE_GTM, :CCSID_GTM,              :FOREIGNKEY_GTM, :KEYSEQ_GTM, :SCALE_GTM, :DEFAULT_GTM
  148. FETCH GTMCUR INTO :TBLNAME_GTM, :CREATOR_GTM, :DBNAME_GTM,              :TSNAME_GTM, :EDPROC_GTM, :VALPROC_GTM, :AUDITING_GTM, :OBID_GTM,              :DATACAP_GTM, :TBL_REM_GTM, :TBL_LABEL_GTM, :COLNAME_GTM, :COLNO_GTM,              :COLTYPE_GTM, :COLLGTH_GTM, :NULLS_GTM, :COL_REM_GTM, :COL_LABEL_GTM,              :FLDPROC_GTM, :CLUSTERTYPE_GTM, :CHECKS_GTM, :DEFAULTVALUE_GTM,              :FOREIGNKEY_GTM, :KEYSEQ_GTM, :SCALE_GTM, :DEFAULT_GTM
  149. FETCH GTMCUR INTO :TBLNAME_GTM, :CREATOR_GTM, :DBNAME_GTM,              :TSNAME_GTM, :EDPROC_GTM, :VALPROC_GTM, :AUDITING_GTM, :OBID_GTM,              :DATACAP_GTM, :TBL_REM_GTM, :TBL_LABEL_GTM, :COLNAME_GTM, :COLNO_GTM,              :COLTYPE_GTM, :COLLGTH_GTM, :NULLS_GTM, :COL_REM_GTM, :COL_LABEL_GTM,              :FLDPROC_GTM, :FOREIGNKEY_GTM, :KEYSEQ_GTM, :SCALE_GTM, :DEFAULT_GTM
  150. DECLARE UNIQCUR CURSOR FOR UNIQSEL
  151. PREPARE UNIQSEL FROM :SQLSEL
  152. OPEN UNIQCUR
  153. FETCH UNIQCUR INTO :UNIQ_COL_GTM
  154. FETCH UNIQCUR INTO :UNIQ_COL_GTM
  155. CLOSE UNIQCUR
  156. DECLARE FORMCUR CURSOR FOR FORMSEL
  157. PREPARE FORMSEL FROM :SQLSEL
  158. OPEN FORMCUR
  159. FETCH FORMCUR INTO :REFTBNAME_GTM, :REFTBCREATOR_GTM,             :IXNAME_GTM, :IXOWNER_GTM, :RELNAME_GTM, :DELETERULE_GTM
  160. FETCH FORMCUR INTO :REFTBNAME_GTM, :REFTBCREATOR_GTM,                                  :RELNAME_GTM, :DELETERULE_GTM
  161. DECLARE FORMCUR2 CURSOR FOR FORMSEL2
  162. PREPARE FORMSEL2 FROM :SQLSEL
  163. OPEN FORMCUR2
  164. FETCH FORMCUR2 INTO :FOREIGN_COL_GTM
  165. FETCH FORMCUR2 INTO :FOREIGN_COL_GTM
  166. CLOSE FORMCUR2
  167. DECLARE REFCOLCUR CURSOR FOR REFCOLSEL
  168. PREPARE REFCOLSEL FROM :SQLSEL
  169. OPEN REFCOLCUR
  170. FETCH REFCOLCUR INTO :COLNAME_GTM, :COLSEQ_GTM
  171. FETCH REFCOLCUR INTO :COLNAME_GTM, :COLSEQ_GTM
  172. CLOSE REFCOLCUR
  173. FETCH FORMCUR INTO :REFTBNAME_GTM, :REFTBCREATOR_GTM,                   :IXNAME_GTM, :IXOWNER_GTM, :RELNAME_GTM, :DELETERULE_GTM
  174. FETCH FORMCUR INTO :REFTBNAME_GTM, :REFTBCREATOR_GTM,                                        :RELNAME_GTM, :DELETERULE_GTM
  175. CLOSE FORMCUR
  176. DECLARE CHECKCUR CURSOR FOR CHECKSEL
  177. PREPARE CHECKSEL FROM :SQLSEL
  178. OPEN CHECKCUR
  179. FETCH CHECKCUR INTO :CHECKNAME_GTM, :CHECKCONDITION_GTM
  180. FETCH CHECKCUR INTO :CHECKNAME_GTM, :CHECKCONDITION_GTM
  181. CLOSE CHECKCUR
  182. CLOSE GTMCUR
  183. BEGIN DECLARE SECTION
  184. END DECLARE SECTION
  185. DECLARE GIMCUR CURSOR FOR GIMSEL
  186. PREPARE GIMSEL FROM :SQLSEL
  187. OPEN GIMCUR
  188. FETCH GIMCUR INTO :UNIQRLE_GIM, :CLUSTER_GIM, :BPOOL_GIM,           :PGSIZE_GIM, :ERASER_GIM, :DSETPASS_GIM, :CLOSERLE_GIM, :COLNAME_GIM,           :COLNO_GIM, :INDEXTYPE_GIM, :PIECESIZE_GIM,           :ORDERING_GIM, :TBNAME_GIM, :TBCREATOR_GIM, :COLSEQ_GIM
  189. FETCH GIMCUR INTO :UNIQRLE_GIM, :CLUSTER_GIM, :BPOOL_GIM,           :PGSIZE_GIM, :ERASER_GIM, :DSETPASS_GIM, :CLOSERLE_GIM, :COLNAME_GIM,           :COLNO_GIM, :INDEXTYPE_GIM, :ORDERING_GIM, :TBNAME_GIM, :TBCREATOR_GIM, :COLSEQ_GIM
  190. FETCH GIMCUR INTO :UNIQRLE_GIM, :CLUSTER_GIM, :BPOOL_GIM,           :PGSIZE_GIM, :ERASER_GIM, :DSETPASS_GIM, :CLOSERLE_GIM, :COLNAME_GIM,           :COLNO_GIM, :ORDERING_GIM, :TBNAME_GIM, :TBCREATOR_GIM, :COLSEQ_GIM
  191. FETCH GIMCUR INTO :UNIQRLE_GIM, :CLUSTER_GIM, :BPOOL_GIM,              :PGSIZE_GIM, :ERASER_GIM, :DSETPASS_GIM, :CLOSERLE_GIM, :COLNAME_GIM,              :COLNO_GIM, :INDEXTYPE_GIM, :PIECESIZE_GIM,              :ORDERING_GIM, :TBNAME_GIM, :TBCREATOR_GIM, :COLSEQ_GIM
  192. FETCH GIMCUR INTO :UNIQRLE_GIM, :CLUSTER_GIM, :BPOOL_GIM,              :PGSIZE_GIM, :ERASER_GIM, :DSETPASS_GIM, :CLOSERLE_GIM, :COLNAME_GIM,              :COLNO_GIM, :INDEXTYPE_GIM, :ORDERING_GIM, :TBNAME_GIM, :TBCREATOR_GIM, :COLSEQ_GIM
  193. FETCH GIMCUR INTO :UNIQRLE_GIM, :CLUSTER_GIM, :BPOOL_GIM,              :PGSIZE_GIM, :ERASER_GIM, :DSETPASS_GIM, :CLOSERLE_GIM, :COLNAME_GIM,              :COLNO_GIM, :ORDERING_GIM, :TBNAME_GIM, :TBCREATOR_GIM, :COLSEQ_GIM
  194. CLOSE GIMCUR
  195. DECLARE GIM2CUR CURSOR FOR GIM2SEL
  196. PREPARE GIM2SEL FROM :SQLSEL
  197. OPEN GIM2CUR
  198. FETCH GIM2CUR INTO :PARTITION_GIM, :PQTY_GIM, :SQTY_GIM, :STORTYPE_GIM,           :STORNAME_GIM, :GBPCACHE_GIM, :VCATNAME_GIM, :LIMITKEY_GIM, :FREEPAGE_GIM, :PCTFREE_GIM
  199. FETCH GIM2CUR INTO :PARTITION_GIM, :PQTY_GIM, :SQTY_GIM, :STORTYPE_GIM,           :STORNAME_GIM, :VCATNAME_GIM, :LIMITKEY_GIM, :FREEPAGE_GIM, :PCTFREE_GIM
  200. DECLARE GIM3CUR CURSOR FOR GIM3SEL
  201. PREPARE GIM3SEL FROM :SQLSEL
  202. OPEN GIM3CUR
  203. FETCH GIM3CUR INTO :COLTYPE_GIM, :LENGTH_GIM, :SCALE_GIM
  204. CLOSE GIM3CUR
  205. FETCH GIM2CUR INTO :PARTITION_GIM, :PQTY_GIM, :SQTY_GIM, :STORTYPE_GIM,                 :STORNAME_GIM, :GBPCACHE_GIM, :VCATNAME_GIM, :LIMITKEY_GIM, :FREEPAGE_GIM, :PCTFREE_GIM
  206. FETCH GIM2CUR INTO :PARTITION_GIM, :PQTY_GIM, :SQTY_GIM, :STORTYPE_GIM,                 :STORNAME_GIM, :VCATNAME_GIM, :LIMITKEY_GIM, :FREEPAGE_GIM, :PCTFREE_GIM
  207. CLOSE GIM2CUR
  208. BEGIN DECLARE SECTION
  209. END DECLARE SECTION
  210. DECLARE GVMCUR CURSOR FOR GVMSEL
  211. PREPARE GVMSEL FROM :SQLSEL
  212. OPEN GVMCUR
  213. FETCH GVMCUR INTO :TEXT_GVM, :CHECK_GVM
  214. FETCH GVMCUR INTO :TEXT_GVM, :CHECK_GVM
  215. CLOSE GVMCUR
  216. DECLARE GVMCUR2 CURSOR FOR GVMSEL2
  217. PREPARE GVMSEL2 FROM :SQLSEL
  218. OPEN GVMCUR2
  219. FETCH GVMCUR2 INTO :VIEW_REM_GVM, :VIEW_LABEL_GVM
  220. CLOSE GVMCUR2
  221. BEGIN DECLARE SECTION
  222. END DECLARE SECTION
  223. DECLARE GDMCUR CURSOR FOR GDMSEL
  224. PREPARE GDMSEL FROM :SQLSEL
  225. OPEN GDMCUR
  226. FETCH GDMCUR INTO :CREATOR_GDM, :STGROUP_GDM,                                :BPOOL_GDM, :ROSHARE_GDM, :CCSID_GDM
  227. FETCH GDMCUR INTO :CREATOR_GDM, :STGROUP_GDM,                                :BPOOL_GDM, :ROSHARE_GDM
  228. CLOSE GDMCUR
  229. BEGIN DECLARE SECTION
  230. END DECLARE SECTION
  231. DECLARE GPMCUR CURSOR FOR GPMSEL
  232. PREPARE GPMSEL FROM :SQLSEL
  233. OPEN GPMCUR
  234. FETCH GPMCUR INTO :BPOOL_GPM, :PARTITIONS_GPM, :LOCKRULE_GPM,          :LOCKMAX_GPM, :GBPCACHE_GPM, :TYPE_GPM, :CCSID_GPM, :MAXROWS_GPM,          :LOCKPART_GPM, :ERASERULE_GPM, :DSETPASS_GPM, :CLOSERULE_GPM, :SEGSIZE_GPM,          :PARTITION_GPM, :PQTY_GPM, :SQTY_GPM, :STORTYPE_GPM, :STORNAME_GPM,          :VCATNAME_GPM, :FREEPAGE_GPM, :PCTFREE_GPM, :COMPRESS_GPM
  235. FETCH GPMCUR INTO :BPOOL_GPM, :PARTITIONS_GPM, :LOCKRULE_GPM,          :LOCKMAX_GPM, :GBPCACHE_GPM,          :ERASERULE_GPM, :DSETPASS_GPM, :CLOSERULE_GPM, :SEGSIZE_GPM,          :PARTITION_GPM, :PQTY_GPM, :SQTY_GPM, :STORTYPE_GPM, :STORNAME_GPM,          :VCATNAME_GPM, :FREEPAGE_GPM, :PCTFREE_GPM, :COMPRESS_GPM
  236. FETCH GPMCUR INTO :BPOOL_GPM, :PARTITIONS_GPM, :LOCKRULE_GPM,          :ERASERULE_GPM, :DSETPASS_GPM, :CLOSERULE_GPM, :SEGSIZE_GPM,          :PARTITION_GPM, :PQTY_GPM, :SQTY_GPM, :STORTYPE_GPM, :STORNAME_GPM,          :VCATNAME_GPM, :FREEPAGE_GPM, :PCTFREE_GPM, :COMPRESS_GPM
  237. FETCH GPMCUR INTO :BPOOL_GPM, :PARTITIONS_GPM, :LOCKRULE_GPM,                :LOCKMAX_GPM, :GBPCACHE_GPM, :TYPE_GPM, :CCSID_GPM, :MAXROWS_GPM,                :LOCKPART_GPM, :ERASERULE_GPM, :DSETPASS_GPM, :CLOSERULE_GPM, :SEGSIZE_GPM,                :PARTITION_GPM, :PQTY_GPM, :SQTY_GPM, :STORTYPE_GPM, :STORNAME_GPM,                :VCATNAME_GPM, :FREEPAGE_GPM, :PCTFREE_GPM, :COMPRESS_GPM
  238. FETCH GPMCUR INTO :BPOOL_GPM, :PARTITIONS_GPM, :LOCKRULE_GPM,                :LOCKMAX_GPM, :GBPCACHE_GPM,                 :ERASERULE_GPM, :DSETPASS_GPM, :CLOSERULE_GPM, :SEGSIZE_GPM,                :PARTITION_GPM, :PQTY_GPM, :SQTY_GPM, :STORTYPE_GPM, :STORNAME_GPM,                :VCATNAME_GPM, :FREEPAGE_GPM, :PCTFREE_GPM, :COMPRESS_GPM
  239. FETCH GPMCUR INTO :BPOOL_GPM, :PARTITIONS_GPM, :LOCKRULE_GPM,                :ERASERULE_GPM, :DSETPASS_GPM, :CLOSERULE_GPM, :SEGSIZE_GPM,                :PARTITION_GPM, :PQTY_GPM, :SQTY_GPM, :STORTYPE_GPM, :STORNAME_GPM,                :VCATNAME_GPM, :FREEPAGE_GPM, :PCTFREE_GPM, :COMPRESS_GPM
  240. CLOSE GPMCUR
  241. BEGIN DECLARE SECTION
  242. END DECLARE SECTION
  243. DECLARE GSMCUR CURSOR FOR GSMSEL
  244. PREPARE GSMSEL FROM :SQLSEL
  245. OPEN GSMCUR
  246. FETCH GSMCUR INTO :CREATOR_GSM, :VCATNAME_GSM,                                :VPASSWORD_GSM, :VOLID_GSM
  247. FETCH GSMCUR INTO :CREATOR_GSM, :VCATNAME_GSM,                                   :VPASSWORD_GSM, :VOLID_GSM
  248. CLOSE GSMCUR
  249. DECLARE GYMCUR CURSOR FOR GYMSEL
  250. PREPARE GYMSEL FROM :SQLSEL
  251. OPEN GYMCUR
  252. FETCH GYMCUR INTO :NAMEBUF, :IDBUF
  253. FETCH GYMCUR INTO :NAMEBUF, :IDBUF
  254. CLOSE GYMCUR
  255. BEGIN DECLARE SECTION
  256. END DECLARE SECTION
  257. DECLARE GAMCUR CURSOR FOR GAMSEL
  258. PREPARE GAMSEL FROM :SQLSEL
  259. OPEN GAMCUR
  260. FETCH GAMCUR INTO :NAMEBUF, :IDBUF, :REMARKS_GAM, :LABEL_GAM
  261. FETCH GAMCUR INTO :NAMEBUF, :IDBUF, :REMARKS_GAM, :LABEL_GAM
  262. CLOSE GAMCUR
  263. SQLSEL
  264. NAMEBUF
  265. IDBUF
  266. CARD_GTS
  267. RECLENGTH_GTS
  268. NPAGES_GTS
  269. PCTPAGES_GTS
  270. PCTROWCOMP_GTS
  271. STATSTIME_GTS
  272. STATUS_GTS
  273. COLCARD_GTS
  274. HIGH2KEY_GTS
  275. LOW2KEY_GTS
  276. COLTYPE_GTS
  277. LENGTH_GTS
  278. SCALE_GTS
  279. CLUSTERED_GIS
  280. CLUSTERRATIO_GIS
  281. FIRSTKEYCARD_GIS
  282. FULLKEYCARD_GIS
  283. NLEAF_GIS
  284. NLEVELS_GIS
  285. SPACE_GIS
  286. STATSTIME_GIS
  287. CARD_GIS
  288. LEAFDIST_GIS
  289. FAROFFPOS_GIS
  290. NEAROFFPOS_GIS
  291. SPACEP_GIS
  292. STATSTIMEP_GIS
  293. PARTITION_GIS
  294. STATUS_GPS
  295. NACTIVE_GPS
  296. SPACE_GPS
  297. IMPLICIT_GPS
  298. CARD_GPS
  299. FARINDREF_GPS
  300. NEARINDREF_GPS
  301. PERCACTIVE_GPS
  302. PERCDROP_GPS
  303. SPACEP_GPS
  304. STATSTIME_GPS
  305. PAGESAVE_GPS
  306. PARTITION_GPS
  307. SPACE_GSS
  308. NAME_COL
  309. TBLNAME_GT2
  310. CREATOR_GT2
  311. TBL_REM_GT2
  312. TBL_REM_IND
  313. COLNAME_GT2
  314. COL_REM_GT2
  315. COL_REM_IND
  316. COLTYPE_GT2
  317. NULLS_GT2
  318. CODEPAGE_GT2
  319. COLLGTH_GT2
  320. SCALE_GT2
  321. COLNO_GT2
  322. KEYSEQ_GT2
  323. DEFAULTVALUE_GT2
  324. DEFAULT_IND
  325. LOGGED_GT2
  326. COMPACT_GT2
  327. COLSCHEMA_GT2
  328. CHECKCOUNT_GT2
  329. DATACAPTURE_GT2
  330. TBSPACE_GT2
  331. TBSPACE_IND
  332. INDEX_TBSPACE_GT2
  333. INDEX_TBSPACE_IND
  334. LONG_TBSPACE_GT2
  335. LONG_TBSPACE_IND
  336. PRIM_COL_GT2
  337. PRIM_NAME_GT2
  338. CONSTREMARKS_GT2
  339. KEYTYPE_GT2
  340. REFTBNAME_GT2
  341. REFTBCREATOR_GT2
  342. RELNAME_GT2
  343. DELETERULE_GT2
  344. UPDATERULE_GT2
  345. FKCOLNAMES_GT2
  346. CHECKNAME_GT2
  347. checkText
  348. TYPESCHEMA_GT2
  349. TYPENAME_GT2
  350. SOURCESCHEMA_GT2
  351. SOURCETYPE_GT2
  352. TYPE_LEN_GT2
  353. TYPE_SCALE_GT2
  354. TYPE_CODEPAGE_GT2
  355. TYPE_REM_GT2
  356. TYPE_REM_IND
  357. TBNAME_GI2
  358. TBCREATOR_GI2
  359. COLNAMES_GI2
  360. UNIQUERULE_GI2
  361. COLCOUNT_GI2
  362. REMARKS_GI2
  363. TEXT_GV2
  364. CHECK_GV2
  365. VIEW_REM_GV2
  366. TBSPACE_TB2
  367. DEFINER_TB2
  368. TBSPACETYPE_TB2
  369. DATATYPE_TB2
  370. REMARKS_TB2
  371. TBLNAME_GTM
  372. CREATOR_GTM
  373. DBNAME_GTM
  374. TSNAME_GTM
  375. EDPROC_GTM
  376. VALPROC_GTM
  377. CLUSTERTYPE_GTM
  378. AUDITING_GTM
  379. OBID_GTM
  380. DATACAP_GTM
  381. TBL_REM_GTM
  382. TBL_LABEL_GTM
  383. CHECKS_GTM
  384. CCSID_GTM
  385. COLNAME_GTM
  386. COLNO_GTM
  387. COLTYPE_GTM
  388. COLLGTH_GTM
  389. SCALE_GTM
  390. NULLS_GTM
  391. COL_REM_GTM
  392. DEFAULT_GTM
  393. KEYSEQ_GTM
  394. FOREIGNKEY_GTM
  395. FLDPROC_GTM
  396. DEFAULTVALUE_GTM
  397. COL_LABEL_GTM
  398. FIELDPRC_NAME_GTM
  399. PARMLIST_GTM
  400. UNIQ_COL_GTM
  401. REFTBNAME_GTM
  402. REFTBCREATOR_GTM
  403. RELNAME_GTM
  404. DELETERULE_GTM
  405. IXOWNER_GTM
  406. IXNAME_GTM
  407. FOREIGN_COL_GTM
  408. CHECKNAME_GTM
  409. CHECKCONDITION_GTM
  410. COLSEQ_GTM
  411. UNIQRLE_GIM
  412. CLUSTER_GIM
  413. BPOOL_GIM
  414. PGSIZE_GIM
  415. ERASER_GIM
  416. DSETPASS_GIM
  417. CLOSERLE_GIM
  418. INDEXTYPE_GIM
  419. COLNAME_GIM
  420. COLNO_GIM
  421. ORDERING_GIM
  422. TBNAME_GIM
  423. TBCREATOR_GIM
  424. COLSEQ_GIM
  425. PARTITION_GIM
  426. PQTY_GIM
  427. SQTY_GIM
  428. STORTYPE_GIM
  429. STORNAME_GIM
  430. VCATNAME_GIM
  431. LIMITKEY_GIM
  432. FREEPAGE_GIM
  433. PCTFREE_GIM
  434. GBPCACHE_GIM
  435. COLTYPE_GIM
  436. LENGTH_GIM
  437. SCALE_GIM
  438. PIECESIZE_GIM
  439. TEXT_GVM
  440. CHECK_GVM
  441. SEQNO_GVM
  442. VIEW_REM_GVM
  443. VIEW_LABEL_GVM
  444. CREATOR_GDM
  445. STGROUP_GDM
  446. BPOOL_GDM
  447. ROSHARE_GDM
  448. CCSID_GDM
  449. BPOOL_GPM
  450. PARTITIONS_GPM
  451. LOCKRULE_GPM
  452. LOCKMAX_GPM
  453. ERASERULE_GPM
  454. DSETPASS_GPM
  455. CLOSERULE_GPM
  456. SEGSIZE_GPM
  457. PARTITION_GPM
  458. PQTY_GPM
  459. SQTY_GPM
  460. STORTYPE_GPM
  461. STORNAME_GPM
  462. VCATNAME_GPM
  463. FREEPAGE_GPM
  464. PCTFREE_GPM
  465. COMPRESS_GPM
  466. GBPCACHE_GPM
  467. TYPE_GPM
  468. CCSID_GPM
  469. MAXROWS_GPM
  470. LOCKPART_GPM
  471. CREATOR_GSM
  472. VCATNAME_GSM
  473. VPASSWORD_GSM
  474. VOLID_GSM
  475. REMARKS_GAM
  476. LABEL_GAM
  477.