home *** CD-ROM | disk | FTP | other *** search
/ Black Box 4 / BlackBox.cdr / genapps / rquery3.arj / RQUERY3.APP < prev    next >
Text File  |  1992-01-18  |  811b  |  37 lines
  1. $COMMAND
  2. RQUERY3
  3. SET ERROR VAR ERVAR
  4. SET VAR VQUOTES = (CVAL("QUOTES"))
  5. IF ERVAR NE 0 THEN
  6. SET VAR VQUOTES = (CVAL('QUOTES'))
  7. SET QUOTES=NULL
  8. SET QUOTES="
  9. ENDIF
  10. SET ERROR VAR OFF
  11. CLEAR VAR ERVAR
  12. SET VAR VNULL = (CVAL("NULL"))
  13. SET VAR VMESS = (CVAL("MESSAGES"))
  14. SET VAR VERMESS = (CVAL("ERROR"))
  15. SET VAR VFILES = (CVAL("FILES"))
  16. SET VAR VBELL = (CVAL("BELL"))
  17. SET VAR VAND = (CVAL("AND"))
  18. SET VAR VMANY = (CVAL("MANY"))
  19. SET AND OFF
  20. SET FILES=10
  21. CLS
  22. SET BELL OFF
  23. SET VAR VTESTER TEXT
  24. SET VAR VTESTER TO "NEW"
  25. RUN RQCHOOSE IN RQCHOOSE.APX
  26. CLEAR VAR VTESTER
  27. SET NULL= .VNULL
  28. SET QUOTES=NULL
  29. SET QUOTES= .VQUOTES
  30. SET FILES= .VFILES
  31. SET BELL= .VBELL
  32. SET AND .VAND
  33. SET MESSAGES= .VMESS
  34. SET ERROR= .VERMESS
  35. CLEAR VAR VNULL, VQUOTES, VFILES, VBELL, VMESS, VERMESS, VAND, VMANY
  36. RETURN
  37.