home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / rexxgdb2.zip / Thread5.CMD < prev    next >
OS/2 REXX Batch file  |  1997-08-10  |  588b  |  20 lines
  1. /* rexx */
  2. sql5 = 'select * from staff where id <= 80'
  3. say '5 Started' time('L')
  4. call time 'R'
  5. retcode = g2selectdata(sql5, data., 9999)
  6. say 'DATA.0   =' data.0
  7. say 'DATA.0.0 =' data.0.0
  8. if retcode = 0 | retcode = 100 then
  9. do r = 1 to data.0
  10.    do c = 1 to data.0.0
  11.       say 'DATA.'r'.'c '=' data.r.c '    length='length(data.r.c)
  12.       end
  13.    end
  14. say '5 SelectData SQLCODE' retcode
  15. say '5            length ' length(returned)
  16. say '5  G2SQLCODE        ' g2sqlcode
  17. say '5  G2LONGRESULT     ' g2longresult'    length='length(g2longresult)
  18. say '5 Ended' time('L')
  19. return
  20.