home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Professional / OS2PRO194.ISO / os2 / network / rexxlan / smples20 / mail.cmd < prev    next >
Encoding:
Text File  |  1993-07-01  |  2.0 KB  |  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, RXLAN20, 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.