home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 19 / AACD19.BIN / AACD / Online / SiteWay / Tools / Rexx / Get.rexx < prev    next >
OS/2 REXX Batch file  |  2000-01-15  |  814b  |  32 lines
  1. /* Get.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 'Get' with one Argument. */
  7. /* Syntax: Get <CHARACTER|CHARSTOBEGOFLINE|CHARSTOENDOFLINE|WORD|LINE|BUFFER> */
  8. /* Result: String 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.     'Get BUFFER'
  19. /*  'Get CHARACTER' */
  20. /*  'Get CHARSTOBEGOFLINE' */
  21. /*  'Get CHARSTOENDOFLINE' */
  22. /*  'Get WORD' */
  23. /*  'Get LINE' */
  24.     IF (RC~=0) THEN DO
  25.         SAY "...could NOT execute the command!"
  26.     END
  27.     ELSE DO
  28.         SAY "The buffer content is: " || RESULT
  29.     END
  30.     EXIT
  31. END
  32.