home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1993 #2 / Image.iso / os2 / wr07010.zip / WR07010.PKZ / sqlsampl.bnd (.txt) < prev    next >
DB2 Bind  |  1993-06-25  |  949b  |  24 lines
  1. SQLSAMP2iAeBFZGJNULLID  0
  2. INCLUDE SQLCA
  3. BEGIN DECLARE SECTION
  4. END DECLARE SECTION
  5. WHENEVER SQLERROR GOTO enderr
  6. GRANT CONNECT ON DATABASE TO PUBLIC
  7. GRANT EXECUTE ON PROGRAM NULLID.SQLSAMP2 TO PUBLIC
  8. WHENEVER SQLERROR CONTINUE
  9. EXECUTE IMMEDIATE :stmt
  10. GRANT EXECUTE ON PROGRAM NULLID.SQLSAMP2 TO PUBLIC
  11. EXECUTE IMMEDIATE :stmt
  12. WHENEVER SQLERROR GOTO end
  13. EXECUTE IMMEDIATE :stmt
  14. WHENEVER SQLERROR GOTO end
  15. EXECUTE IMMEDIATE :stmt
  16. WHENEVER SQLERROR GOTO end
  17. EXECUTE IMMEDIATE :stmt
  18. WHENEVER SQLERROR GOTO end
  19. EXECUTE IMMEDIATE :stmt
  20. WHENEVER SQLERROR GOTO end
  21. EXECUTE IMMEDIATE :stmt
  22. WHENEVER SQLERROR CONTINUE
  23. EXECUTE IMMEDIATE :stmt
  24.