home *** CD-ROM | disk | FTP | other *** search
/ PC Plus SuperCD (UK) 1995 September / Image.iso / visualob / install / odbc / db2_2 / qedbm03.bn_ / qedbm03.bn (.txt)
Encoding:
DB2 Bind  |  1993-06-09  |  2.1 KB  |  62 lines
  1. ODBC    KBz2IJGJQE      3
  2. BEGIN DECLARE SECTION
  3. END DECLARE SECTION
  4. DECLARE C1 CURSOR FOR ST1
  5. PREPARE ST1 FROM :stmtstr
  6. BEGIN DECLARE SECTION
  7. END DECLARE SECTION
  8. DECLARE C2 CURSOR FOR ST2
  9. PREPARE ST2 FROM :stmtstr
  10. OPEN C2
  11. FETCH C2 INTO :buf
  12. CLOSE C2
  13. BEGIN DECLARE SECTION
  14. END DECLARE SECTION
  15. DECLARE C3 CURSOR FOR ST3
  16. PREPARE ST3 FROM :stmtstr
  17. OPEN C3
  18. FETCH C3 INTO :auth
  19. CLOSE C3
  20. COMMIT
  21. ROLLBACK
  22. DECLARE C4 CURSOR FOR ST4
  23. PREPARE ST4 INTO :Sqlda  FROM :stmtstr
  24. DESCRIBE ST4 INTO :Sqlda 
  25. DECLARE C5 CURSOR FOR ST5
  26. CLOSE C5
  27. EXECUTE ST5 USING DESCRIPTOR :ParamSqlda 
  28. OPEN C5 USING DESCRIPTOR :ParamSqlda 
  29. EXECUTE ST5
  30. OPEN C5
  31. DECLARE C6 CURSOR FOR ST6
  32. FETCH C6 USING DESCRIPTOR :Sqlda 
  33. CLOSE C6
  34. DECLARE C7 CURSOR FOR ST7
  35. CLOSE C7
  36. DECLARE C8 CURSOR FOR ST8
  37. DECLARE C9 CURSOR FOR ST9
  38. DECLARE C10 CURSOR FOR ST10
  39. DECLARE C11 CURSOR FOR ST11
  40. DECLARE C12 CURSOR FOR ST12
  41. DECLARE C13 CURSOR FOR ST13
  42. DECLARE C14 CURSOR FOR ST14
  43. DECLARE C15 CURSOR FOR ST15
  44. DECLARE C16 CURSOR FOR ST16
  45. DECLARE C17 CURSOR FOR ST17
  46. DECLARE C18 CURSOR FOR ST18
  47. DECLARE C19 CURSOR FOR ST19
  48. DECLARE C20 CURSOR FOR ST20
  49. DECLARE C21 CURSOR FOR ST21
  50. DECLARE C22 CURSOR FOR ST22
  51. DECLARE C23 CURSOR FOR ST23
  52. DECLARE C24 CURSOR FOR ST24
  53. DECLARE C25 CURSOR FOR ST25
  54. DECLARE C26 CURSOR FOR ST26
  55. DECLARE C27 CURSOR FOR ST27
  56. DECLARE C28 CURSOR FOR ST28
  57. DECLARE C29 CURSOR FOR ST29
  58. DECLARE C30 CURSOR FOR ST30
  59. DECLARE C31 CURSOR FOR ST31
  60. DECLARE C32 CURSOR FOR ST32
  61. stmtstr
  62.