home *** CD-ROM | disk | FTP | other *** search
/ High Voltage Shareware / high1.zip / high1 / DIR24 / RXLAN0.ZIP / MAIL.CMD < prev    next >
OS/2 REXX Batch file  |  1993-07-01  |  2KB  |  37 lines
  1. /* ********************************************************************* */
  2. /*                                                                       */
  3. /*   File:       MAIL.CMD                                                */
  4. /*   Version:    1.0                                                     */
  5. /*   Date:       1.7.1993                                                */
  6. /*                                                                       */
  7. /*   (c) EDV Beratung L. Braeuer, 1993                                   */
  8. /*                                                                       */
  9. /*   Purpose:    Ask for a user to send message then pull message.       */
  10. /*                                                                       */
  11. /* ********************************************************************* */
  12.  
  13. /*                                                                       */
  14. /*  Initialize REXXLAN                                                   */
  15. /*                                                                       */
  16. call rxfuncadd NetLoadFuncs, RXLAN30, NetLoadFuncs
  17. CALL NetLoadFuncs
  18.  
  19. /*                                                                       */
  20. /*  Pull destination address                                             */
  21. /*                                                                       */
  22. SAY 'Destination : '
  23. name = LINEIN()
  24.  
  25. /*                                                                       */
  26. /*  Pull message text.                                                   */
  27. /*                                                                       */
  28. SAY 'Enter Message : '
  29. message = LINEIN()
  30.  
  31. SAY 'NetMessageBufferSend rc = ' || NetMessageBufferSend( '', name, message, '0' )
  32.  
  33. /*                                                                       */
  34. /* free REXXLAN resources                                                */
  35. /*                                                                       */
  36. CALL Netdropfuncs
  37.