home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / rexxgdb2.zip / Thread3.CMD < prev    next >
OS/2 REXX Batch file  |  1997-08-10  |  363b  |  11 lines
  1. /* rexx */
  2. sql3 = "select deptname from department where mgrno = '000030'"
  3. say '3 Started' time('L')
  4. returned = g2selectone('sql3')
  5. say '3 SelectOne returns ' returned
  6. say '3            length ' length(returned)
  7. say '3  G2SQLCODE        ' g2sqlcode
  8. say '3  G2LONGRESULT     ' g2longresult'    length='length(g2longresult)
  9. say '3 Ended' time('L')
  10. return
  11.