home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Texteditors / ProgEd / sasc_support / FirstError.script < prev    next >
Encoding:
Text File  |  1996-09-27  |  551 b   |  33 lines
  1. /*******************************************
  2.  *
  3.  * FirstError.script
  4.  * by Giovanni Lambiase (C) 1995
  5.  *
  6.  * This Arexx macro jump to first error in
  7.  * SCMSG list. If you don't want that SCMSG
  8.  * close its window when it's empty, then
  9.  * comment out 'HIDE' command.
  10.  *
  11.  *******************************************/
  12.  
  13. OPTIONS RESULTS
  14. OPTIONS FAILAT 31
  15.  
  16. IF SHOW('PORTS','SC_SCMSG') THEN
  17. DO
  18.     ADDRESS 'SC_SCMSG'
  19.  
  20.     /* If no errors -> close SCMSG */
  21.     'TEXT'
  22.     IF RESULT='' THEN
  23.     DO
  24.         'HIDE'
  25.     END
  26.     ELSE
  27.     DO
  28.         /* Jump to 1st error */
  29.         'TOP'
  30.         'SELECT'
  31.     END
  32. END
  33.