MVSFORUMS.com

mainfrae · Beginner Joined: 17 Feb 2006 Posts: 17 Topics: 9

Hi
I want to send messages to particular userid(it may be around 20 or 30ids) through TSO SEND command.
I want to use this TSO SEND command in REXX.
Screen should be like this

**************************************
*this is from mainfrae *
* *
**************************************

I want to send this model screen through TSO SEND to the terminal for particular users using REXX.can any one guide me to do this

THANKS
MAINFRAE

superk · Advanced Joined: 19 Dec 2002 Posts: 684 Topics: 5

TSO SEND Command.

mainfrae · Beginner Joined: 17 Feb 2006 Posts: 17 Topics: 9

Hi Superk
I am very clear that i want to use TSO SEND COMMAND only.But I want the screen to be seen like below (which includes the flower box also)

************************
* message to be displayed *
************************
using TSO SEND Command to some particular userid's using REXX

semigeezer · Posted: Wed Mar 22, 2006 1:43 pm Post subject:

Use 3 separate SEND commands and see the Copies() and left() or center() functions in Rexx.

Also note that even with the flowerbox, SEND commands are very easy for users to miss because they come up unexpectedly and disappear as soon as the user presse enter. People who typeahead a lot (like me) usually miss them. Unfortunately, you can't do an unsoicited TGET to a terminal (SEND uses TPUT) so it is probably the best you can do.

taltyman · Posted: Wed Mar 22, 2006 3:32 pm Post subject:

I've got some very old rexx code and an ispf panel that eases the use of a multi-line tso send command. You can massage it to accomodate mutiple userids as well. I didn't write it and don't remember who did to give them the credit.

[code:1:290a8930a5]
/***************************** REXX ******************************/
/* */
/***************************** REXX ******************************/
'ALLOC F(SYSOUT) DA(*)'
'ALLOC F(SYSPRINT) DA(*)'
'ALLOC F(SYSUDUMP) DA(*)'
'ALLOC F(SYSDBOUT) DA(*)'
'ISPEXEC LIBDEF ISPPLIB DATASET ID('''your.panel.library''') STACK'

INIT:

/*********************************************************************/
/* */
/*********************************************************************/
'ISPEXEC DISPLAY PANEL(SENDPNL)'
/* */
/* CHECK TO SEE IF THE USER HIT PF3 TO END THE CLIST. */
/* IF YES, GO TO END OF CLIST TO EXIT */
/* */
DO WHILE (RC

mainfrae · Beginner Joined: 17 Feb 2006 Posts: 17 Topics: 9

Thanks taltyman

kolusu · Posted: Thu Mar 23, 2006 6:12 am Post subject:

I use this simple CLIST to send messages

sriramla · Beginner Joined: 22 Feb 2003 Posts: 74 Topics: 1

kolusu · Posted: Thu Mar 23, 2006 3:00 pm Post subject:

sriramla,

Here is a another version of chat by semigeezer

http://mvsforums.com/helpboards/viewtopic.php?p=956#956

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu

semigeezer · Posted: Thu Mar 23, 2006 7:49 pm Post subject:

A more robust version with a list of who is joined, multiple chats, serialization & maybe some other stuff is at www.sillysot.com/ftp if anyone is interested. I haven't looked at it in years and it should still be considered a toy. Oh and comments in the code??? Nahhh!

Martin · Beginner Joined: 20 Mar 2006 Posts: 133 Topics: 58

sriramla,

I tried running ur code..with noluck.. The control is going to save conversation.

Thanks,
Martin

sriramla · Beginner Joined: 22 Feb 2003 Posts: 74 Topics: 1

Remove the line ADDRESS ISPEXEC "CONTROL ERRORS RETURN" from the code and try. You will come to know what is the error. Post it here if you cannot resolve by yourself.