home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 5 / FreshFish_July-August1994.bin / bbs / dev / cpump-1.7.lha / CPump-1.7 / EdErr.rexx < prev    next >
OS/2 REXX Batch file  |  1994-04-04  |  505b  |  21 lines
  1. /* this ARexx invokes ed on error line selected by CTagSel */
  2. arg errfile
  3.  
  4. /* show a ListView gadget of the functions and get selection */
  5. address command 'CTagSel <' errfile
  6. if RC > 0 then exit RC
  7. selec=getclip('CTagSel')
  8. tempfl=puttemp('m'||word(selec,4))
  9. address command 'run Ed' word(selec,5) 'with' tempfl
  10. exit 0
  11.  
  12. /* a subroutine to put a string in a temporary work file */
  13. puttemp:
  14.   arg x
  15.   tfil='ram:temp1.txt'
  16.   i=open('temp1',tfil,'W')
  17.   i = writeln('temp1',x)
  18.   i=close('temp1')
  19.   return tfil
  20.  
  21.