home *** CD-ROM | disk | FTP | other *** search
/ DOpus Plus / DOpus Plus.iso / Tutorial / ARexx Tutorial / TuteRexx / DOpusError.dopus5 < prev    next >
Encoding:
Text File  |  1998-09-04  |  260 b   |  13 lines
  1. /* DOpus Error Code Test */
  2. options results
  3. address 'DOPUS.1'
  4. dopus front
  5. dopus getstring '"Input error code:" 2 "" OK|Cancel'
  6. if dopusrc = 0 then exit
  7. ec = result
  8. dopus error result
  9. text = "Error code "ec": "result
  10. dopus request '"'text'" OK'
  11. dopus back
  12. exit
  13.