home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / cppsql.zip / SQL.ZIP / SQLC.BND (.txt) < prev    next >
DB2 Bind  |  1992-07-13  |  642b  |  21 lines
  1. SQLC    cAi4JNHINAVIGATE0
  2. INCLUDE SQLCA
  3. BEGIN DECLARE SECTION
  4. END DECLARE SECTION
  5. DECLARE C1 CURSOR FOR S1
  6. CLOSE C1
  7. EXECUTE IMMEDIATE :host_string
  8. PREPARE S2 FROM :host_string
  9. EXECUTE S2 USING DESCRIPTOR :host_var 
  10. CLOSE C1
  11. PREPARE S1 FROM :host_string
  12. OPEN C1
  13. FETCH C1 USING DESCRIPTOR :host_var 
  14. CLOSE C1
  15. EXECUTE IMMEDIATE :host_string
  16. CLOSE C1
  17. COMMIT
  18. CLOSE C1
  19. ROLLBACK
  20. host_string
  21.