Most certainly. The joy of a quick cut and paste.
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
Binyamin Dissen <bdis...@dissensoftware.com>
Sent by: IBM Mainframe Discussion List <IBM-MAIN@bama.ua.edu>
10/05/2011 01:16 PM
Please respond to
IBM Mainframe Discussion List <IBM-MAIN@bama.ua.edu>
To
IBM-MAIN@bama.ua.edu
cc
Subject
Re: WTO Sample Program
On Wed, 5 Oct 2011 10:47:49 -0500 Chip Grantham <cgrant...@ameritas.com>
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 <bdis...@dissensoftware.com>
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 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
