home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / amiga / misc / sqldb.lzh / sqldb / rexxmacros / sqltest.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1992-08-26  |  930 b   |  32 lines
  1. /* sqltest.rexx */
  2. options results
  3. address 'SQLserver'
  4. say 'Got Server'
  5. 'ExecSQL' "open table footab;"
  6. 'ExecSQL' "declare testcur cursor for select from footab;"
  7. 'ExecSQL' "open testcur;"
  8. say 'About to fetch 1'
  9. 'ExecSQL' "fetch next of testcur;"
  10. say 'fetch_buf = ' result
  11. /* say 'sqlca.sqlcode = ' sqlca.sqlcode */
  12. say 'About to fetch 2'
  13. 'ExecSQL' "fetch next of testcur;"
  14. say 'fetch_buf = ' result
  15. /* say 'sqlca.sqlcode = ' sqlca.sqlcode */
  16. say 'About to fetch 3'
  17. 'ExecSQL' "fetch next of testcur;"
  18. say 'fetch_buf = ' result
  19. /* say 'sqlca.sqlcode = ' sqlca.sqlcode */
  20. say 'About to fetch 4'
  21. 'ExecSQL' "fetch next of testcur;"
  22. say 'fetch_buf = ' result
  23. /* say 'sqlca.sqlcode = ' sqlca.sqlcode */
  24. say 'About to fetch 5'
  25. 'ExecSQL' "fetch next of testcur;"
  26. say 'fetch_buf = ' result
  27. /* say 'sqlca.sqlcode = ' sqlca.sqlcode */
  28. /* say 'sqlca.sqlerrmsg = ' sqlca.sqlerrmsg */
  29. 'ExecSQL' "close testcur;"
  30. 'ExecSQL' "close table footab;"
  31.  
  32.