home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / COMET.ZIP / CMTSQL.BND (.txt) next >
DB2 Bind  |  1991-09-27  |  480b  |  15 lines
  1. CMTSQL  iAUlQZCHUSERID  0
  2. DECLARE C1 CURSOR FOR DML_CMD
  3. INCLUDE SQLCA
  4. INCLUDE SQLDA
  5. BEGIN DECLARE SECTION
  6. END DECLARE SECTION
  7. EXECUTE IMMEDIATE :com_string
  8. PREPARE DML_CMD INTO :sqlda  FROM :com_string
  9. EXECUTE DML_CMD
  10. OPEN C1
  11. FETCH C1 USING DESCRIPTOR :sqlda 
  12. CLOSE C1
  13. com_string
  14.                
  15.