home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: OtherApp / OtherApp.zip / AMEVAL1.ZIP / AMSQLEE.BND (.txt) < prev    next >
DB2 Bind  |  1990-07-05  |  896b  |  27 lines
  1. AMSQLEE fAxoKVGGUSERID  0
  2. INCLUDE SQLCA
  3. BEGIN DECLARE SECTION
  4. END DECLARE SECTION
  5. WHENEVER SQLERROR GO TO :     
  6. WHENEVER SQLWARNING CONTINUE
  7. PREPARE userstate INTO :minSqlda FROM :buffer
  8. WHENEVER SQLWARNING GO TO :     
  9. EXECUTE userstate
  10. COMMIT
  11. DESCRIBE userstate INTO :fullSqlda 
  12. DECLARE cur CURSOR for userstate
  13. OPEN cur
  14. FETCH cur USING DESCRIPTOR :fullSqlda 
  15. CLOSE cur
  16. COMMIT
  17. CLOSE cur
  18. BEGIN DECLARE SECTION
  19. END DECLARE SECTION
  20. PREPARE userstate INTO :minSqlda FROM :buff
  21. DESCRIBE userstate INTO :daNames  
  22. COMMIT
  23. COMMIT
  24. buffer
  25.  ... ...-....
  26.  N81N      
  27.