home *** CD-ROM | disk | FTP | other *** search
/ World of A1200 / World_Of_A1200.iso / programs / text / skoed / arexx / nexterror1.rexx < prev    next >
OS/2 REXX Batch file  |  1995-02-27  |  307b  |  21 lines
  1. /* REXX scrip to advance to next error */
  2.  
  3. address "SC_SCMSG"
  4. 'NEXT'
  5. options results
  6. 'FILE'
  7. file = result
  8. 'LINE'
  9. line = result
  10. 'TEXT'
  11. text = result
  12. options
  13. address SKOED1
  14. if file = "" then
  15.    "Msg(No more errors)"
  16. else do
  17.    "Load_File("||file||" NODUP)"
  18.    "Goto_Line("||line||")"
  19.    "Msg("||text||")"
  20. end
  21.