home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / rexxgdb2.zip / RexxGDB2.BND (.txt) < prev    next >
DB2 Bind  |  1997-08-10  |  6KB  |  116 lines
  1. BIND V02
  2. REXXGDB2dBpSKJINUSERID  3
  3. USERID  
  4. INCLUDE SQLCA
  5. BEGIN DECLARE SECTION
  6. END   DECLARE SECTION
  7. COMMIT
  8. ROLLBACK
  9. EXECUTE IMMEDIATE :sqlG2
  10. PREPARE gacols into :sqldaG2  FROM :sqlG2
  11. PREPARE g2data into :sqldaG2  FROM :sqlG2
  12. DECLARE g2datacur CURSOR FOR g2data
  13. OPEN g2datacur
  14. FETCH g2datacur USING DESCRIPTOR :sqldaG2 
  15. FETCH g2datacur USING DESCRIPTOR :sqldaG2 
  16. CLOSE g2datacur
  17. PREPARE g2form into :sqldaG2  FROM :sqlG2
  18. DECLARE g2formcur CURSOR FOR g2form
  19. OPEN g2formcur
  20. FETCH g2formcur USING DESCRIPTOR :sqldaG2 
  21. FETCH g2formcur USING DESCRIPTOR :sqldaG2 
  22. CLOSE g2formcur
  23. PREPARE g2onerc into :sqldaG2  FROM :sqlG2
  24. DECLARE g2onecur CURSOR FOR g2onerc
  25. OPEN g2onecur
  26. FETCH g2onecur USING DESCRIPTOR :sqldaG2 
  27. CLOSE g2onecur
  28. PREPARE g2blob into :sqldaG2  FROM :sqlG2
  29. DECLARE g2blobcur CURSOR FOR g2blob
  30. OPEN g2blobcur
  31. FETCH g2blobcur INTO :blob:lobi
  32. CLOSE g2blobcur
  33. PREPARE g2clob into :sqldaG2  FROM :sqlG2
  34. DECLARE g2clobcur CURSOR FOR g2clob
  35. OPEN g2clobcur
  36. FETCH g2clobcur INTO :clob:lobi
  37. CLOSE g2clobcur
  38. VALUES CURRENT DATE           INTO :curdate
  39. VALUES CURRENT EXPLAIN SNAPSHOT           INTO :curexplsnap
  40. VALUES CURRENT FUNCTION PATH           INTO :curfuncpath
  41. VALUES CURRENT QUERY OPTIMIZATION           INTO :curqueryopt
  42. VALUES CURRENT SERVER           INTO :curserver
  43. VALUES CURRENT TIME           INTO :curtime
  44. VALUES CURRENT TIMESTAMP           INTO :curtimestamp
  45. VALUES CURRENT TIMEZONE           INTO :curtimezone
  46. VALUES USER           INTO :user
  47. SET CONNECTION :dbname
  48. SET CURRENT EXPLAIN SNAPSHOT :curexplsnap
  49. SET CURRENT PACKAGESET :curpkgset
  50. SET CURRENT QUERY OPTIMIZATION :curqueryopt
  51. PREPARE g2token into :sqldaG2  FROM :sqlG2
  52. PREPARE G2S1 FROM :sqlG2
  53. DECLARE G2C1 CURSOR FOR G2S1
  54. OPEN G2C1
  55. FETCH G2C1                 INTO :halfword
  56. FETCH G2C1                 INTO :halfword:halfwordi
  57. FETCH G2C1                 INTO :fullword
  58. FETCH G2C1                 INTO :fullword:fullwordi
  59. EXECUTE IMMEDIATE :sqlG2
  60. CLOSE G2C1
  61. PREPARE g22htmc into :sqldaG2  FROM :sqlG2
  62. DECLARE g22htmccur CURSOR FOR g22htmc
  63. OPEN g22htmccur
  64. FETCH g22htmccur INTO :clob:lobi
  65. CLOSE g22htmccur
  66. PREPARE g22htmi into :sqldaG2  FROM :sqlG2
  67. DECLARE g22htmicur CURSOR FOR g22htmi
  68. OPEN g22htmicur
  69. FETCH g22htmicur INTO :blob:lobi
  70. CLOSE g22htmicur
  71. PREPARE g22htmn into :sqldaG2  FROM :sqlG2
  72. DECLARE g22htmncur CURSOR FOR g22htmn
  73. OPEN g22htmncur
  74. FETCH g22htmncur USING DESCRIPTOR :sqldaG2 
  75. FETCH g22htmncur USING DESCRIPTOR :sqldaG2 
  76. CLOSE g22htmncur
  77. PREPARE g22html into :sqldaG2  FROM :sqlG2
  78. DECLARE g22htmlcur CURSOR FOR g22html
  79. OPEN g22htmlcur
  80. FETCH g22htmlcur USING DESCRIPTOR :sqldaG2 
  81. FETCH g22htmlcur USING DESCRIPTOR :sqldaG2 
  82. CLOSE g22htmlcur
  83. PREPARE g22htmlb into :sqldaG2  FROM :sqlG2
  84. DECLARE g22htmlbcur CURSOR FOR g22htmlb
  85. OPEN g22htmlbcur
  86. FETCH g22htmlbcur USING DESCRIPTOR :sqldaG2 
  87. FETCH g22htmlbcur USING DESCRIPTOR :sqldaG2 
  88. CLOSE g22htmlbcur
  89. PREPARE g22htmt into :sqldaG2  FROM :sqlG2
  90. DECLARE g22htmtcur CURSOR FOR g22htmt
  91. OPEN g22htmtcur
  92. FETCH g22htmtcur USING DESCRIPTOR :sqldaG2 
  93. FETCH g22htmtcur USING DESCRIPTOR :sqldaG2 
  94. CLOSE g22htmtcur
  95. PREPARE g22htma into :sqldaG2  FROM :sqlG2
  96. DECLARE g22htmacur CURSOR FOR g22htma
  97. OPEN g22htmacur
  98. FETCH g22htmacur USING DESCRIPTOR :sqldaG2 
  99. FETCH g22htmacur USING DESCRIPTOR :sqldaG2 
  100. CLOSE g22htmacur
  101. sqlG2
  102. curdate
  103. curexplsnap
  104. curfuncpath
  105. curqueryopt
  106. curserver
  107. curtime
  108. curtimestamp
  109. curtimezone
  110. dbname
  111. curpkgset
  112. halfword
  113. halfwordi
  114. fullword
  115. fullwordi
  116.