/* sqltest5.rexx */
address 'SQLserver'
options results
'ExecSQL' 'open table test;'
'ExecSQL' 'declare testcur cursor for select from test;'
'ExecSQL' 'open testcur;'
'ExecSQL' 'fetch columns of testcur;'
trace(results)
say 'result = ' result
say 'sqlca.sqlcode = ' sqlca.sqlcode
do forever
   if sqlca.sqlcode > 0
	then say 'greater than zero'
   if sqlca.sqlcode = 0
	then say 'equal to zero'
   if sqlca.sqlcode < 0
	then say 'less than zero'
   if sqlca.sqlcode ~= 0
       then break
   'ExecSQL' 'fetch next of testcur;'
   say 'result = ' result
   say 'sqlca.sqlcode = ' sqlca.sqlcode
end
'ExecSQL' 'close testcur;'
'ExecSQL' 'close table test;'