Hello Eileen. Thanks very much for you sample, and for your help.
Regards. Sergio -----Mensagem original----- De: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] Em nome de Barkow, Eileen Enviada em: quarta-feira, 5 de outubro de 2011 14:53 Para: IBM-MAIN@bama.ua.edu Assunto: Re: WTO Sample Program Here is another example (with direct wtor) CNOP 0,4 WTOR 'JREC00: DO NOT RESPOND TO MESSAGE UNLESS THIS JOB IS TO BE C TERMINATED!! NEVER CANCEL - JUST RESPOND END TO STOP.', C ANSWER,4,(3),ROUTCDE=(2,11) B POST4 POST4 DS 0H POST (4) INDICATE TO ATTACHING PGM THAT WTOR WAS ISSUED WAIT ECB=(3) WAIT FOR OPERATOR TO RESPOND END *****THE FOLLOWING WILL BE INVOKED IF THERE IS AN OPERATOR RESPONSE CNOP 0,4 WTOR 'JREC00: DO NOT RESPOND TO MESSAGE UNLESS THIS JOB IS TO BE C TERMINATED!! NEVER CANCEL - JUST RESPOND END TO STOP.', C ANSWER,4,(3),ROUTCDE=(2,11) B POST4 POST4 DS 0H POST (4) INDICATE TO ATTACHING PGM THAT WTOR WAS ISSUED WAIT ECB=(3) WAIT FOR OPERATOR TO RESPOND END *****THE FOLLOWING WILL BE INVOKED IF THERE IS AN OPERATOR RESPONSE CLC ANSWER(3),=C'END' BE MOVEEND CLC ANSWER,=C',END' BE MOVEEND -----Original Message----- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Chip Grantham Sent: Wednesday, October 05, 2011 11:48 AM To: IBM-MAIN@bama.ua.edu Subject: Re: WTO Sample Program 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 ---------------------------------------------------------------------- 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 "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
