home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 6 / IOPROG_06.ISO / trial / pb / server / pbibm4.bnd (.txt) < prev    next >
Encoding:
DB2 Bind  |  1996-04-19  |  3.0 KB  |  74 lines
  1. PBIBM4  ZBoWRTEMPES500  3
  2. INCLUDE SQLCA
  3. BEGIN DECLARE SECTION
  4. END DECLARE SECTION
  5. PREPARE UpdStmtId FROM :lpszSQLBuffer
  6. PREPARE CurStmtId1 FROM :lpszSQLBuffer
  7. PREPARE CurStmtId2 FROM :lpszSQLBuffer
  8. PREPARE CurStmtId3 FROM :lpszSQLBuffer
  9. PREPARE CurStmtId4 FROM :lpszSQLBuffer
  10. PREPARE CurStmtId5 FROM :lpszSQLBuffer
  11. PREPARE NormalStmtId1 FROM :lpszSQLBuffer
  12. PREPARE NormalStmtId2 FROM :lpszSQLBuffer
  13. PREPARE NormalStmtId3 FROM :lpszSQLBuffer
  14. PREPARE NormalStmtId4 FROM :lpszSQLBuffer
  15. PREPARE NormalStmtId5 FROM :lpszSQLBuffer
  16. DECLARE NormalCursor1 CURSOR FOR NormalStmtId1
  17. OPEN NormalCursor1
  18. DECLARE NormalCursor2 CURSOR FOR NormalStmtId2
  19. OPEN NormalCursor2
  20. DECLARE NormalCursor3 CURSOR FOR NormalStmtId3
  21. OPEN NormalCursor3
  22. DECLARE NormalCursor4 CURSOR FOR NormalStmtId4
  23. OPEN NormalCursor4
  24. DECLARE NormalCursor5 CURSOR FOR NormalStmtId5
  25. OPEN NormalCursor5
  26. EXECUTE NormalStmtId1
  27. EXECUTE NormalStmtId2
  28. EXECUTE NormalStmtId3
  29. EXECUTE NormalStmtId4
  30. EXECUTE NormalStmtId5
  31. DESCRIBE NormalStmtId1 INTO :psqlda 
  32. DESCRIBE NormalStmtId2 INTO :psqlda 
  33. DESCRIBE NormalStmtId3 INTO :psqlda 
  34. DESCRIBE NormalStmtId4 INTO :psqlda 
  35. DESCRIBE NormalStmtId5 INTO :psqlda 
  36. FETCH NormalCursor1 USING DESCRIPTOR :psqlda 
  37. FETCH NormalCursor2 USING DESCRIPTOR :psqlda 
  38. FETCH NormalCursor3 USING DESCRIPTOR :psqlda 
  39. FETCH NormalCursor4 USING DESCRIPTOR :psqlda 
  40. FETCH NormalCursor5 USING DESCRIPTOR :psqlda 
  41. CLOSE NormalCursor1
  42. CLOSE NormalCursor2
  43. CLOSE NormalCursor3
  44. CLOSE NormalCursor4
  45. CLOSE NormalCursor5
  46. DECLARE CurCursor1 CURSOR FOR CurStmtId1
  47. OPEN CurCursor1
  48. DECLARE CurCursor2 CURSOR FOR CurStmtId2
  49. OPEN CurCursor2
  50. DECLARE CurCursor3 CURSOR FOR CurStmtId3
  51. OPEN CurCursor3
  52. DECLARE CurCursor4 CURSOR FOR CurStmtId4
  53. OPEN CurCursor4
  54. DECLARE CurCursor5 CURSOR FOR CurStmtId5
  55. OPEN CurCursor5
  56. EXECUTE UpdStmtId
  57. DESCRIBE CurStmtId1 INTO :psqlda 
  58. DESCRIBE CurStmtId2 INTO :psqlda 
  59. DESCRIBE CurStmtId3 INTO :psqlda 
  60. DESCRIBE CurStmtId4 INTO :psqlda 
  61. DESCRIBE CurStmtId5 INTO :psqlda 
  62. FETCH CurCursor1 USING DESCRIPTOR :psqlda 
  63. FETCH CurCursor2 USING DESCRIPTOR :psqlda 
  64. FETCH CurCursor3 USING DESCRIPTOR :psqlda 
  65. FETCH CurCursor4 USING DESCRIPTOR :psqlda 
  66. FETCH CurCursor5 USING DESCRIPTOR :psqlda 
  67. CLOSE CurCursor1
  68. CLOSE CurCursor2
  69. CLOSE CurCursor3
  70. CLOSE CurCursor4
  71. CLOSE CurCursor5
  72. cSQLBuffer
  73. lpszSQLBuffer
  74.