home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 604b.lha / sqldb_v020392 / rexx / sqltest5.rexx < prev   
Encoding:
OS/2 REXX Batch file  |  1992-02-04  |  656 b   |  27 lines
  1. /* sqltest5.rexx */
  2. address 'SQLserver'
  3. options results
  4. 'ExecSQL' 'open table test;'
  5. 'ExecSQL' 'declare testcur cursor for select from test;'
  6. 'ExecSQL' 'open testcur;'
  7. 'ExecSQL' 'fetch columns of testcur;'
  8. trace(results)
  9. say 'result = ' result
  10. say 'sqlca.sqlcode = ' sqlca.sqlcode
  11. do forever
  12.    if sqlca.sqlcode > 0
  13.     then say 'greater than zero'
  14.    if sqlca.sqlcode = 0
  15.     then say 'equal to zero'
  16.    if sqlca.sqlcode < 0
  17.     then say 'less than zero'
  18.    if sqlca.sqlcode ~= 0
  19.        then break
  20.    'ExecSQL' 'fetch next of testcur;'
  21.    say 'result = ' result
  22.    say 'sqlca.sqlcode = ' sqlca.sqlcode
  23. end
  24. 'ExecSQL' 'close testcur;'
  25. 'ExecSQL' 'close table test;'
  26.  
  27.