home *** CD-ROM | disk | FTP | other *** search
/ On Hand / On_Hand_From_Softbank_1994_Release_2_Disc_1_1994.iso / 00083 / s / 123 / dmsqc.bnd (.txt) < prev    next >
DB2 Bind  |  1993-09-24  |  3KB  |  78 lines
  1. DMSQC   MAWdKBHJDLEEDM  3
  2. BEGIN DECLARE SECTION
  3. END DECLARE SECTION
  4. PREPARE S1  INTO :p_da0  FROM :p_stment
  5. PREPARE S2  INTO :p_da0  FROM :p_stment
  6. PREPARE S3  INTO :p_da0  FROM :p_stment
  7. PREPARE S4  INTO :p_da0  FROM :p_stment
  8. PREPARE S5  INTO :p_da0  FROM :p_stment
  9. PREPARE S6  INTO :p_da0  FROM :p_stment
  10. PREPARE S7  INTO :p_da0  FROM :p_stment
  11. PREPARE S8  INTO :p_da0  FROM :p_stment
  12. PREPARE S9  INTO :p_da0  FROM :p_stment
  13. PREPARE S10 INTO :p_da0  FROM :p_stment
  14. DESCRIBE S1  INTO :p_da1 
  15. DESCRIBE S2  INTO :p_da1 
  16. DESCRIBE S3  INTO :p_da1 
  17. DESCRIBE S4  INTO :p_da1 
  18. DESCRIBE S5  INTO :p_da1 
  19. DESCRIBE S6  INTO :p_da1 
  20. DESCRIBE S7  INTO :p_da1 
  21. DESCRIBE S8  INTO :p_da1 
  22. DESCRIBE S9  INTO :p_da1 
  23. DESCRIBE S10 INTO :p_da1 
  24. DECLARE C1  CURSOR FOR S1
  25. DECLARE C2  CURSOR FOR S2
  26. DECLARE C3  CURSOR FOR S3
  27. DECLARE C4  CURSOR FOR S4
  28. DECLARE C5  CURSOR FOR S5
  29. DECLARE C6  CURSOR FOR S6
  30. DECLARE C7  CURSOR FOR S7
  31. DECLARE C8  CURSOR FOR S8
  32. DECLARE C9  CURSOR FOR S9
  33. DECLARE C10 CURSOR FOR S10
  34. OPEN C1  USING DESCRIPTOR :p_da2 
  35. OPEN C2  USING DESCRIPTOR :p_da2 
  36. OPEN C3  USING DESCRIPTOR :p_da2 
  37. OPEN C4  USING DESCRIPTOR :p_da2 
  38. OPEN C5  USING DESCRIPTOR :p_da2 
  39. OPEN C6  USING DESCRIPTOR :p_da2 
  40. OPEN C7  USING DESCRIPTOR :p_da2 
  41. OPEN C8  USING DESCRIPTOR :p_da2 
  42. OPEN C9  USING DESCRIPTOR :p_da2 
  43. OPEN C10 USING DESCRIPTOR :p_da2 
  44. FETCH C1  USING DESCRIPTOR :p_da1 
  45. FETCH C2  USING DESCRIPTOR :p_da1 
  46. FETCH C3  USING DESCRIPTOR :p_da1 
  47. FETCH C4  USING DESCRIPTOR :p_da1 
  48. FETCH C5  USING DESCRIPTOR :p_da1 
  49. FETCH C6  USING DESCRIPTOR :p_da1 
  50. FETCH C7  USING DESCRIPTOR :p_da1 
  51. FETCH C8  USING DESCRIPTOR :p_da1 
  52. FETCH C9  USING DESCRIPTOR :p_da1 
  53. FETCH C10 USING DESCRIPTOR :p_da1 
  54. CLOSE C1
  55. CLOSE C2
  56. CLOSE C3
  57. CLOSE C4
  58. CLOSE C5
  59. CLOSE C6
  60. CLOSE C7
  61. CLOSE C8
  62. CLOSE C9
  63. CLOSE C10
  64. EXECUTE S1  USING DESCRIPTOR :p_da2 
  65. EXECUTE S2  USING DESCRIPTOR :p_da2 
  66. EXECUTE S3  USING DESCRIPTOR :p_da2 
  67. EXECUTE S4  USING DESCRIPTOR :p_da2 
  68. EXECUTE S5  USING DESCRIPTOR :p_da2 
  69. EXECUTE S6  USING DESCRIPTOR :p_da2 
  70. EXECUTE S7  USING DESCRIPTOR :p_da2 
  71. EXECUTE S8  USING DESCRIPTOR :p_da2 
  72. EXECUTE S9  USING DESCRIPTOR :p_da2 
  73. EXECUTE S10 USING DESCRIPTOR :p_da2 
  74. EXECUTE IMMEDIATE :p_stment
  75. COMMIT
  76. ROLLBACK
  77. p_stment
  78.