home *** CD-ROM | disk | FTP | other *** search
/ The Fred Fish Collection 1.5 / ffcollection-1-5-1992-11.iso / ff_disks / 300-399 / ff330.lzh / Vt100 / RexxSamples / TestErrs.vt100 < prev    next >
Text File  |  1990-03-02  |  570b  |  29 lines
  1. /* Show return codes generated as a result of various error conditions. */
  2. trace Off
  3.  
  4. /* NONREXX command issued from an AREXX macro: CMDFAIL */
  5. cmd = "WAIT ""JUNK"""
  6. cmd
  7. say cmd "yielded RC =" rc
  8.  
  9. /* Invalid BAUD rate: CMDFAIL */
  10. cmd = "BAUD 123456789"
  11. cmd
  12. say cmd "yielded RC =" rc
  13.  
  14. /* INIT command issued from a script: CMDBS */
  15. cmd = "SCREEN CUSTOM"
  16. cmd
  17. say cmd "yielded RC =" rc
  18.  
  19. cmd = "EXTERNAL 1234567890 ""FOO"" ""BAR"""
  20. cmd
  21. say cmd "yielded RC =" rc
  22.  
  23. /* Unknown command will be given to AREXX.  Probably RC0 */
  24. cmd = "FARKEL"
  25. cmd
  26. say cmd "yielded RC =" rc
  27.  
  28. exit
  29.