home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / rexxgdb2.zip / Thread2.CMD < prev    next >
OS/2 REXX Batch file  |  1997-08-10  |  397b  |  12 lines
  1. /* rexx */
  2. sql2 = 'select substr(text, 1, 20) from sysibm.sysviews where length(text) > 1000'
  3. say '2 Started' time('L')
  4. call time 'R'
  5. returned = g2selectone('sql2')
  6. say '2 SelectOne returns ' returned
  7. say '2            length ' length(returned)
  8. say '2  G2SQLCODE        ' g2sqlcode
  9. say '2  G2LONGRESULT     ' g2longresult'    length='length(g2longresult)
  10. say '2 Ended' time('L')
  11. return
  12.