home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 19 / AACD19.BIN / AACD / Online / SiteWay / Tools / Rexx / Save.rexx < prev    next >
OS/2 REXX Batch file  |  2000-01-15  |  635b  |  28 lines
  1. /* Save.rexx  -  © 1999 by Christian Effenberger */
  2.  
  3. /* **** Execute from SHELL or double click ICON ! ***** */
  4.  
  5. /* This Script speaks to the ARexx-Port 'SIMPLEED_AREXX.1' */
  6. /* and sends the Command 'Save' with one Argument. */
  7. /* Syntax: Save <FileName> */
  8. /* Result: Error Value */
  9.  
  10. ADDRESS COMMAND 'WaitForPort SIMPLEED_AREXX.1'
  11. IF (RC~=0) THEN DO
  12.     SAY "...could NOT find the ARexx port!"
  13.     EXIT
  14. END
  15. ELSE DO
  16.     ADDRESS 'SIMPLEED_AREXX.1'
  17.     OPTIONS RESULTS
  18.     'Save "ram:tmp.txt"'
  19.     IF (RC~=0) THEN DO
  20.         SAY "...could NOT execute the command!"
  21.     END
  22.     ELSE DO
  23.         SAY "...works fine!"
  24.     END
  25.     EXIT
  26. END
  27.  
  28.