Thanks for your help also. Sergio
-----Mensagem original----- De: IBM Mainframe Discussion List [mailto:[email protected]] Em nome de Binyamin Dissen Enviada em: quarta-feira, 5 de outubro de 2011 15:14 Para: [email protected] Assunto: Re: WTO Sample Program On Wed, 5 Oct 2011 10:47:49 -0500 Chip Grantham <[email protected]> wrote: :>Does this do it? :> :> :> MVC WTORLIST+12(80),=CL80'<PROMPT MESSAGE>' :>ROUT1010 XC WTOR_ECB,WTOR_ECB :> MVC REPLY,=CL7' ' :> WTOR ,,,,MF=(E,WTORLIST) Missing WAIT ECB=WTOR_ECB or WAIT 1,ECBLIST=WAIT_LIST :>* 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') -- Binyamin Dissen <[email protected]> http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel Should you use the mailblocks package and expect a response from me, you should preauthorize the dissensoftware.com domain. I very rarely bother responding to challenge/response systems, especially those from irresponsible companies. ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] 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 [email protected] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
