home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Professional
/
OS2PRO194.ISO
/
os2
/
network
/
rexxlan
/
smples20
/
mail.cmd
< prev
next >
Wrap
OS/2 REXX Batch file
|
1993-06-30
|
2KB
|
37 lines
/* ********************************************************************* */
/* */
/* File: MAIL.CMD */
/* Version: 1.0 */
/* Date: 1.7.1993 */
/* */
/* (c) EDV Beratung L. Braeuer, 1993 */
/* */
/* Purpose: Ask for a user to send message then pull message. */
/* */
/* ********************************************************************* */
/* */
/* Initialize REXXLAN */
/* */
call rxfuncadd NetLoadFuncs, RXLAN20, NetLoadFuncs
CALL NetLoadFuncs
/* */
/* Pull destination address */
/* */
SAY 'Destination : '
name = LINEIN()
/* */
/* Pull message text. */
/* */
SAY 'Enter Message : '
message = LINEIN()
SAY 'NetMessageBufferSend rc = ' || NetMessageBufferSend( '', name, message, '0' )
/* */
/* free REXXLAN resources */
/* */
CALL Netdropfuncs