home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / hwidb.zip / HWIDB2.DAT / HWIDB2.bnd (.txt) next >
DB2 Bind  |  1997-06-22  |  7KB  |  105 lines
  1. BIND V02
  2. HWIDB2  iAIAPWGNHAWI    0
  3. HAWI    
  4. INCLUDE SQLCA 
  5. BEGIN DECLARE SECTION
  6. END DECLARE SECTION 
  7. CONNECT TO :SZDBNAME 
  8. SELECT NAME INTO :SZNAME FROM SYSIBM.SYSTABLES 
  9. DECLARE CURSORCOLUMNS CURSOR FOR                                       SELECT TABNAME, COLNAME, COLNO, TYPESCHEMA, TYPENAME, LENGTH, SCALE FROM SYSCAT.COLUMNS ORDER BY TABNAME, COLNO 
  10. OPEN CURSORCOLUMNS 
  11. FETCH CURSORCOLUMNS INTO                                          :SZTABNAME, :SZCOLNAME, :USCOLNO, :SZTYPESCHEMA, :SZTYPENAME, :ULLENGTH, :USSCALE 
  12. CLOSE CURSORCOLUMNS 
  13. CONNECT RESET 
  14. CONNECT TO :SZDBNAME 
  15. SELECT NAME INTO :SZNAME FROM SYSIBM.SYSTABLES 
  16. DECLARE CURSORDATATYPES CURSOR FOR                                       SELECT TYPESCHEMA, TYPENAME, DEFINER FROM SYSCAT.DATATYPES ORDER BY TYPENAME 
  17. OPEN CURSORDATATYPES 
  18. FETCH CURSORDATATYPES INTO                                          :SZTYPESCHEMA, :SZTYPENAME, :SZDEFINER 
  19. CLOSE CURSORDATATYPES 
  20. CONNECT RESET 
  21. CONNECT TO :SZDBNAME 
  22. SELECT NAME INTO :SZNAME FROM SYSIBM.SYSTABLES 
  23. DECLARE CURSOREVENTS CURSOR FOR                                       SELECT EVMONNAME, TYPE FROM SYSCAT.EVENTS ORDER BY EVMONNAME 
  24. OPEN CURSOREVENTS 
  25. FETCH CURSOREVENTS INTO                                          :SZEVMONNAME, :SZTYPE 
  26. CLOSE CURSOREVENTS 
  27. CONNECT RESET 
  28. CONNECT TO :SZDBNAME 
  29. SELECT NAME INTO :SZNAME FROM SYSIBM.SYSTABLES 
  30. DECLARE CURSORFUNCTIONS CURSOR FOR                                       SELECT FUNCSCHEMA, FUNCNAME, SPECIFICNAME FROM SYSCAT.FUNCTIONS ORDER BY FUNCNAME 
  31. OPEN CURSORFUNCTIONS 
  32. FETCH CURSORFUNCTIONS INTO                                          :SZFUNCSCHEMA, :SZFUNCNAME, :SZSPECIFICNAME 
  33. CLOSE CURSOREVENTS 
  34. CONNECT RESET 
  35. CONNECT TO :SZDBNAME 
  36. SELECT NAME INTO :SZNAME FROM SYSIBM.SYSTABLES 
  37. DECLARE CURSORINDEXES CURSOR FOR                                       SELECT INDSCHEMA, INDNAME, DEFINER FROM SYSCAT.INDEXES ORDER BY INDNAME 
  38. OPEN CURSORINDEXES 
  39. FETCH CURSORINDEXES INTO                                          :SZINDSCHEMA, :SZINDNAME, :SZDEFINER 
  40. CLOSE CURSORINDEXES 
  41. CONNECT RESET 
  42. CONNECT TO :SZDBNAME 
  43. SELECT NAME INTO :SZNAME FROM SYSIBM.SYSTABLES 
  44. DECLARE CURSORPACKAGES CURSOR FOR                                       SELECT PKGNAME, BOUNDBY FROM SYSCAT.PACKAGES ORDER BY PKGNAME 
  45. OPEN CURSORPACKAGES 
  46. FETCH CURSORPACKAGES INTO                                          :SZNAME, :SZCREATOR 
  47. CLOSE CURSORPACKAGES 
  48. CONNECT RESET 
  49. CONNECT TO :SZDBNAME 
  50. SELECT NAME INTO :SZNAME FROM SYSIBM.SYSTABLES 
  51. DECLARE CURSORREFERENCES CURSOR FOR                                       SELECT TABSCHEMA, TABNAME, DEFINER FROM SYSCAT.REFERENCES ORDER BY TABNAME 
  52. OPEN CURSORREFERENCES 
  53. FETCH CURSORREFERENCES INTO                                          :SZTABSCHEMA, :SZTABNAME, :SZDEFINER 
  54. CLOSE CURSORREFERENCES 
  55. CONNECT RESET 
  56. CONNECT TO :SZDBNAME 
  57. SELECT NAME INTO :SZNAME FROM SYSIBM.SYSTABLES 
  58. DECLARE CURSORTABLES CURSOR FOR                                       SELECT TABNAME, DEFINER FROM SYSCAT.TABLES WHERE TYPE = 'T' ORDER BY TABNAME 
  59. OPEN CURSORTABLES 
  60. FETCH CURSORTABLES INTO                                          :SZNAME, :SZCREATOR 
  61. CLOSE CURSORTABLES 
  62. CONNECT RESET 
  63. CONNECT TO :SZDBNAME 
  64. SELECT NAME INTO :SZNAME FROM SYSIBM.SYSTABLES 
  65. DECLARE CURSORTABLESPACES CURSOR FOR                                       SELECT TBSPACE FROM SYSCAT.TABLESPACES ORDER BY TBSPACE 
  66. OPEN CURSORTABLESPACES 
  67. FETCH CURSORTABLESPACES INTO                                          :SZNAME 
  68. CLOSE CURSORTABLESPACES 
  69. CONNECT RESET 
  70. CONNECT TO :SZDBNAME 
  71. SELECT NAME INTO :SZNAME FROM SYSIBM.SYSTABLES 
  72. DECLARE CURSORTRIGGERS CURSOR FOR                                       SELECT TRIGSCHEMA, TRIGNAME, DEFINER FROM SYSCAT.TRIGGERS ORDER BY TRIGNAME 
  73. OPEN CURSORTRIGGERS 
  74. FETCH CURSORTRIGGERS INTO                                          :SZTRIGSCHEMA, :SZTRIGNAME, :SZDEFINER 
  75. CLOSE CURSORTRIGGERS 
  76. CONNECT RESET 
  77. CONNECT TO :SZDBNAME 
  78. SELECT NAME INTO :SZNAME FROM SYSIBM.SYSTABLES 
  79. DECLARE CURSORVIEWS CURSOR FOR                                       SELECT VIEWNAME, DEFINER FROM SYSCAT.VIEWS ORDER BY VIEWNAME 
  80. OPEN CURSORVIEWS 
  81. FETCH CURSORVIEWS INTO                                          :SZNAME, :SZCREATOR 
  82. CLOSE CURSORVIEWS 
  83. CONNECT RESET 
  84. SZCOLNAME
  85. SZCREATOR
  86. SZDBNAME
  87. SZDEFINER
  88. SZEVMONNAME
  89. SZFUNCNAME
  90. SZFUNCSCHEMA
  91. SZINDNAME
  92. SZINDSCHEMA
  93. SZNAME
  94. SZSPECIFICNAME
  95. SZTABNAME
  96. SZTABSCHEMA
  97. SZTRIGNAME
  98. SZTRIGSCHEMA
  99. SZTYPE
  100. SZTYPENAME
  101. SZTYPESCHEMA
  102. ULLENGTH
  103. USCOLNO
  104. USSCALE
  105.