home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: InfoMgt / InfoMgt.zip / dclgen.zip / IBMSDBTL.BND (.txt) < prev    next >
DB2 Bind  |  1998-04-20  |  676b  |  20 lines
  1. IBMSDBTLNBz3IOLKUSERID  0
  2. BEGIN DECLARE SECTION
  3. END DECLARE SECTION
  4. INCLUDE SQLCA
  5. WHENEVER SQLERROR goto L1
  6. WHENEVER SQLWARNING goto L1
  7. WHENEVER NOT FOUND GO TO L2
  8. CONNECT TO :DG_DBNAME
  9. PREPARE ZNAME FROM :ZSQLSTMT
  10. DECLARE c1 CURSOR FOR ZNAME
  11. OPEN c1 USING :USERID
  12. FETCH c1 INTO :TABLENAME
  13. CLOSE  c1
  14. CONNECT RESET
  15. WHENEVER SQLERROR CONTINUE
  16. ZSQLSTMT
  17. DG_DBNAME
  18. USERID
  19. TABLENAME
  20.