home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 579a.lha / sqldb_v1.0alpha2 / rexx / sqltest2.rexx < prev    next >
OS/2 REXX Batch file  |  1991-11-25  |  1KB  |  41 lines
  1. /* sqltest.rexx */
  2. options results
  3. address 'SQLserver'
  4. say 'Got Server'
  5. 'ExecSQL' "open table cdlist;"
  6. 'ExecSQL' "declare testcur cursor for select from cdlist;"
  7. 'ExecSQL' "open testcur;"
  8.  
  9. say 'About to fetch 1'
  10. 'ExecSQL' "fetch next of testcur;"
  11. say 'fetch_buf = ' result
  12. say 'sqlca.sqlcode = ' sqlca.sqlcode
  13.  
  14. say 'About to fetch 2'
  15. 'ExecSQL' "fetch next of testcur;"
  16. say 'fetch_buf = ' result
  17. say 'sqlca.sqlcode = ' sqlca.sqlcode
  18. say 'About to update row 2'
  19. 'ExecSQL' "update cdlist set name = 'Big Game' where current of testcur;"
  20. say 'About to fetch 2 again'
  21. 'ExecSQL' "fetch absolute 2 of testcur;"
  22. say 'fetch_buf = ' result
  23. say 'sqlca.sqlcode = ' sqlca.sqlcode
  24.  
  25. say 'About to fetch 3'
  26. 'ExecSQL' "fetch next of testcur;"
  27. say 'fetch_buf = ' result
  28. say 'sqlca.sqlcode = ' sqlca.sqlcode
  29.  
  30. say 'About to fetch 4'
  31. 'ExecSQL' "fetch next of testcur;"
  32. say 'fetch_buf = ' result
  33. say 'sqlca.sqlcode = ' sqlca.sqlcode
  34.  
  35. say 'About to fetch 5'
  36. 'ExecSQL' "fetch next of testcur;"
  37. say 'fetch_buf = ' result
  38. say 'sqlca.sqlcode = ' sqlca.sqlcode
  39. 'ExecSQL' "close testcur;"
  40. 'ExecSQL' "close table cdlist;"
  41.