home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 6 / IOPROG_06.ISO / trial / pb / server / pbibm1.bnd (.txt) < prev    next >
Encoding:
DB2 Bind  |  1996-04-19  |  690 b   |  21 lines
  1. PBIBM1  KBUVRTEMPES500  3
  2. INCLUDE SQLCA
  3. BEGIN DECLARE SECTION
  4. END DECLARE SECTION
  5. BEGIN DECLARE SECTION
  6. END DECLARE SECTION
  7. PREPARE teststmt FROM :szTest
  8. CONNECT RESET
  9. COMMIT WORK
  10. ROLLBACK WORK
  11. PREPARE commastmt FROM :sqlbuff
  12. DECLARE commacur CURSOR FOR commastmt
  13. OPEN commacur
  14. FETCH commacur INTO :pbcomma
  15. CLOSE commacur
  16. pbcomma
  17. sqlbuff
  18. szDatabaseName
  19. owner
  20. szTest
  21.