home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: InfoMgt / InfoMgt.zip / dclgen.zip / IBMSGPLI.BND (.txt) < prev    next >
DB2 Bind  |  1998-04-20  |  2KB  |  21 lines
  1. BIND V02
  2. IBMSGPLIyAknJVCNUSERID  0
  3. USERID  
  4. BEGIN DECLARE SECTION
  5. END DECLARE SECTION
  6. INCLUDE SQLCA
  7. INCLUDE SQLDA
  8. CONNECT TO :DG_DBNAME
  9. WHENEVER SQLERROR goto L1
  10. WHENEVER SQLWARNING goto L1
  11. CONNECT RESET
  12. CONNECT RESET
  13. whenever sqlerror continue
  14. WHENEVER SQLERROR goto L2
  15. WHENEVER SQLWARNING goto L2
  16. PREPARE ZNAME FROM :ZSQLSTMT
  17. DESCRIBE ZNAME INTO :outsqlda 
  18. DESCRIBE ZNAME INTO :outsqlda 
  19. ZSQLSTMT
  20. DG_DBNAME
  21.