Does this do it?
MVC WTORLIST+12(80),=CL80'<PROMPT MESSAGE>'
ROUT1010 XC WTOR_ECB,WTOR_ECB
MVC REPLY,=CL7' '
WTOR ,,,,MF=(E,WTORLIST)
* ACCEPT CANCEL, GO, WAIT, YES, OR NO *
CLC =C'CANCEL ',REPLY
BE ROUT2010
CLC =C'GO ',REPLY
BE ROUT2020
CLC =C'WAIT ',REPLY
BE ROUT2030
CLC =C'NO ',REPLY
BE ROUT2040
CLC =C'YES ',REPLY
BE ROUT2050
MVC WTORLIST+12(80),RETRY
MVC WTORLIST+21(6),REPLY
B ROUT1010
WTORLIST WTOR ' X
', X
REPLY,6,WTOR_ECB,ROUTCDE=(1),MF=L
WTOR_ECB DC F'0'
REPLY DC CL7' '
RETRY DC CL40'<WTORMS> 123456 - UNKNOWN ANSWER, REPLY'
DC CL40'GO, WAIT, YES, NO, OR CANCEL'
WAIT_LIST DC A(WTOR_ECB+X'80000000')
Chip Grantham | Ameritas | Sr. IT Consultant | cgrant...@ameritas.com
5900 O Street, Lincoln NE 68510 | p: 402-467-7382 | c: 402-429-3579 | f:
402-325-4030
Hal Merritt <hmerr...@jackhenry.com>
Sent by: IBM Mainframe Discussion List <IBM-MAIN@bama.ua.edu>
10/05/2011 10:36 AM
Please respond to
IBM Mainframe Discussion List <IBM-MAIN@bama.ua.edu>
To
IBM-MAIN@bama.ua.edu
cc
Subject
Re: WTO Sample Program
Not clear what you are asking. There is a console command SEND that can
send a message to a logged on TSO user, or (I think) inject a message into
a batch job's joblog.
There is a TSO SEND command that can be used to send a message to another
TSO user or to be displayed on a suitable console.
There are several utilities that can issue a WTOR from batch, so it should
be easy to set up a started task to relay the message via WTOR.
Am I getting close to what you want to do?
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On
Behalf Of Sérgio Lima Costa
Sent: Wednesday, October 05, 2011 7:32 AM
To: IBM-MAIN@bama.ua.edu
Subject: WTO Sample Program
Hello list,
We need a sample program that send a message from console operator, and
then, receive a response.
We imagine, that this is doing using WTO / WTOR macro.
Someone, have a sample program for this, or, know where can find a
documentation of how use this ?
Thanks very much.
Sergio Lima Costa
________________________________
"Atenção: Esta mensagem foi enviada para uso exclusivo do(s)
destinatários(s) acima identificado(s), podendo conter informações e/ou
documentos confidencias/privilegiados e seu sigilo é protegido por lei.
Caso você tenha recebido por engano, por favor, informe o remetente e
apague-a de seu sistema.
Notificamos que é proibido por lei a sua retenção, disseminação,
distribuição, cópia ou uso sem expressa autorização do remetente. Opiniões
pessoais do remetente não refletem, necessariamente, o ponto de vista da
companhia, o qual é divulgado somente por pessoas autorizadas."
"Warning: This message was sent for exclusive use of the addressees above
identified, possibly containing information and or privileged/confidential
documents whose content is protected by law.
In case you have mistakenly received it, please notify the sender and
delete it from your system.
Be noticed that the law forbids the retention, dissemination,
distribution, copy or use without express authorization from the sender.
Personal opinions of the sender do not necessarily reflect the company's
point of view, which is only divulged by authorized personnel."
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send email
to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the
archives at http://bama.ua.edu/archives/ibm-main.html
NOTICE: This electronic mail message and any files transmitted with it are
intended
exclusively for the individual or entity to which it is addressed. The
message,
together with any attachment, may contain confidential and/or privileged
information.
Any unauthorized review, use, printing, saving, copying, disclosure or
distribution
is strictly prohibited. If you have received this message in error, please
immediately advise the sender by reply email and delete all copies.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
*******
This message may contain confidential information intended only
for the use of the addressee(s) named above and may contain
information that is legally privileged. If you are not the
addressee, or the person responsible for delivering it to the
addressee, you are hereby notified that reading, disseminating,
distributing or copying this message is strictly prohibited. If you
have received this message by mistake, please immediately notify
us by replying to the message and delete the original message
immediately thereafter. Thank you.
*******
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
