/* sqltest.rexx */
options results
address 'SQLserver'
say 'Got Server'
'ExecSQL' "open table footab;"
'ExecSQL' "declare testcur cursor for select from footab;"
'ExecSQL' "open testcur;"
say 'About to fetch 1'
'ExecSQL' "fetch next of testcur;"
say 'fetch_buf = ' result
/* say 'sqlca.sqlcode = ' sqlca.sqlcode */
say 'About to fetch 2'
'ExecSQL' "fetch next of testcur;"
say 'fetch_buf = ' result
/* say 'sqlca.sqlcode = ' sqlca.sqlcode */
say 'About to fetch 3'
'ExecSQL' "fetch next of testcur;"
say 'fetch_buf = ' result
/* say 'sqlca.sqlcode = ' sqlca.sqlcode */
say 'About to fetch 4'
'ExecSQL' "fetch next of testcur;"
say 'fetch_buf = ' result
/* say 'sqlca.sqlcode = ' sqlca.sqlcode */
say 'About to fetch 5'
'ExecSQL' "fetch next of testcur;"
say 'fetch_buf = ' result
/* say 'sqlca.sqlcode = ' sqlca.sqlcode */
/* say 'sqlca.sqlerrmsg = ' sqlca.sqlerrmsg */
'ExecSQL' "close testcur;"
'ExecSQL' "close table footab;"