home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 579a.lha / sqldb_v1.0alpha2 / rexx / sqltest4.rexx < prev   
OS/2 REXX Batch file  |  1991-11-25  |  352b  |  13 lines
  1. /* sqltest4.rexx */
  2. address 'SQLserver'
  3. options results
  4. 'ExecSQL' 'open table cdlist;'
  5. 'ExecSQL' 'declare testcur cursor for select * from cdlist;'
  6. 'ExecSQL' 'open testcur;'
  7. 'ExecSQL' 'fetch columns of testcur;'
  8. say 'result = ' result
  9. 'ExecSQL' 'fetch next of testcur;'
  10. say 'result = ' result
  11. 'ExecSQL' 'close testcur;'
  12. 'ExecSQL' 'close table cdlist;'
  13.