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
