home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / ool.zip / OOL / tools / XTABLE.BND (.txt) < prev   
DB2 Bind  |  1997-04-07  |  1KB  |  41 lines
  1. XTABLE  gBWxWHENBENUTZER0
  2. BEGIN DECLARE SECTION
  3. END DECLARE SECTION
  4. WHENEVER SQLERROR GO TO error
  5. PREPARE STMT INTO :sqlda FROM :sqlString
  6. DESCRIBE STMT INTO :sql 
  7. WHENEVER SQLERROR CONTINUE
  8. BEGIN DECLARE SECTION
  9. END DECLARE SECTION
  10. WHENEVER SQLERROR GO TO error
  11. PREPARE STMT INTO :sql  FROM :sqlSt
  12. DECLARE c1 CURSOR FOR STMT
  13. OPEN c1 USING DESCRIPTOR :sql 
  14. FETCH c1 USING DESCRIPTOR :sql 
  15. WHENEVER SQLERROR CONTINUE
  16. CLOSE c1
  17. BEGIN DECLARE SECTION
  18. END DECLARE SECTION
  19. WHENEVER SQLERROR GO TO error
  20. PREPARE c1 FROM :sqlSave
  21. EXECUTE c1 USING DESCRIPTOR :sql  
  22. WHENEVER SQLERROR CONTINUE
  23. WHENEVER SQLERROR GO TO error
  24. FETCH c1 USING DESCRIPTOR :sql 
  25. WHENEVER SQLERROR CONTINUE
  26. WHENEVER SQLERROR GO TO error
  27. COMMIT
  28. WHENEVER SQLERROR CONTINUE
  29. WHENEVER SQLERROR GO TO error
  30. ROLLBACK
  31. WHENEVER SQLERROR CONTINUE
  32. WHENEVER SQLERROR GO TO error
  33. BEGIN DECLARE SECTION
  34. END DECLARE SECTION
  35. EXECUTE IMMEDIATE :sqlLock
  36. WHENEVER SQLERROR CONTINUE
  37. sqlString
  38. sqlSt
  39. sqlSave
  40. sqlLock
  41.