Thanks also. Sergio
-----Mensagem original----- De: IBM Mainframe Discussion List [mailto:[email protected]] Em nome de Rick Fochtman Enviada em: quarta-feira, 5 de outubro de 2011 17:15 Para: [email protected] Assunto: Re: WTO Sample Program --------------------------------------<snip>----------------------------------------- >Does this do it? > > > MVC WTORLIST+12(80),=CL80'<PROMPT MESSAGE>' >ROUT1010 XC WTOR_ECB,WTOR_ECB > MVC REPLY,=CL7' ' > WTOR ,,,,MF=(E,WTORLIST) > > WAIT 1,ECB=WTOR_ECB <-------------------Give operator time to reply >* 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') > > -------------------------------<unsnip>----------------------------------------- Note the additional line I've added to your code. You really should wait for a reply before trying to test its value. :-) Rick ---------------------------------------------------------------------- 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
