home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 6 / IOPROG_06.ISO / trial / pb / server / pbibm3.bnd (.txt) < prev    next >
Encoding:
DB2 Bind  |  1996-04-19  |  3.5 KB  |  82 lines
  1. PBIBM3  GAQWRTEMPES500  3
  2. INCLUDE SQLCA
  3. BEGIN DECLARE SECTION
  4. END DECLARE SECTION
  5. BEGIN DECLARE SECTION
  6. END DECLARE SECTION
  7. PREPARE tblck FROM :cSQLBuffer
  8. DECLARE tblckcur CURSOR FOR tblck
  9. OPEN tblckcur USING :owner, :tabname
  10. FETCH tblckcur INTO :tabtype
  11. CLOSE tblckcur
  12. OPEN tblckcur USING :owner, :tabname
  13. FETCH tblckcur INTO :tabtype
  14. CLOSE tblckcur
  15. OPEN tblckcur USING :owner, :tabname
  16. FETCH tblckcur INTO :tabtype
  17. CLOSE tblckcur
  18. OPEN tblckcur USING :owner, :tabname
  19. FETCH tblckcur INTO :tabtype
  20. CLOSE tblckcur
  21. OPEN tblckcur USING :owner, :tabname
  22. FETCH tblckcur INTO :tabtype
  23. CLOSE tblckcur
  24. EXECUTE IMMEDIATE :cSQLBuffer
  25. EXECUTE IMMEDIATE :cSQLBuffer
  26. EXECUTE IMMEDIATE :cSQLBuffer
  27. EXECUTE IMMEDIATE :cSQLBuffer
  28. EXECUTE IMMEDIATE :cSQLBuffer
  29. EXECUTE IMMEDIATE :cSQLBuffer
  30. EXECUTE IMMEDIATE :cSQLBuffer
  31. EXECUTE IMMEDIATE :cSQLBuffer
  32. EXECUTE IMMEDIATE :cSQLBuffer
  33. EXECUTE IMMEDIATE :cSQLBuffer
  34. EXECUTE IMMEDIATE :cSQLBuffer
  35. EXECUTE IMMEDIATE :cSQLBuffer
  36. EXECUTE IMMEDIATE :cSQLBuffer
  37. EXECUTE IMMEDIATE :cSQLBuffer
  38. EXECUTE IMMEDIATE :cSQLBuffer
  39. EXECUTE IMMEDIATE :cSQLBuffer
  40. EXECUTE IMMEDIATE :cSQLBuffer
  41. PREPARE tbldict_id FROM :cSQLBuffer
  42. DECLARE tbldict_cursor CURSOR FOR tbldict_id
  43. OPEN tbldict_cursor
  44. FETCH tbldict_cursor USING DESCRIPTOR :psqlda 
  45. CLOSE tbldict_cursor
  46. PREPARE coldict_id FROM :cSQLBuffer
  47. DECLARE coldict_cursor CURSOR FOR coldict_id
  48. OPEN coldict_cursor
  49. FETCH coldict_cursor USING DESCRIPTOR :psqlda 
  50. CLOSE coldict_cursor
  51. BEGIN DECLARE SECTION
  52. END DECLARE SECTION
  53. PREPARE fmtinfo_id FROM :cSQLBuffer
  54. DECLARE fmtinfo_cursor CURSOR FOR fmtinfo_id
  55. PREPARE valinfo_id FROM :cSQLBuffer
  56. DECLARE valinfo_cursor CURSOR FOR valinfo_id
  57. PREPARE edtinfo_id FROM :cSQLBuffer
  58. DECLARE edtinfo_cursor CURSOR FOR edtinfo_id
  59. OPEN fmtinfo_cursor
  60. OPEN valinfo_cursor
  61. OPEN edtinfo_cursor
  62. FETCH fmtinfo_cursor INTO :host_name, :sformat,                       :host_type, :host_counter
  63. FETCH valinfo_cursor INTO :host_name, :sformat,                       :host_type, :host_counter,                       :smessage   :message_ind
  64. FETCH edtinfo_cursor INTO :host_name, :sformat,                       :host_type, :host_counter,                       :host_seqn, :host_flag,                       :host_work  :host_work_ind
  65. CLOSE fmtinfo_cursor
  66. CLOSE valinfo_cursor
  67. CLOSE edtinfo_cursor
  68. cSQLBuffer
  69. tabtype
  70. tabname
  71. owner
  72. host_name
  73. sformat
  74. smessage
  75. message_ind
  76. host_type
  77. host_counter
  78. host_seqn
  79. host_flag
  80. host_work
  81. host_work_ind
  82.