On Thu, 29 Dec 2005 13:45:27 -0600 Steve Arnett <[EMAIL PROTECTED]> wrote:
:> First, I am cross posting this to both the ALC and Main boards, so I
:>apologize for those of you that receive it twice.
:> Second, I have a program that issues a WTOR. Presently, I capture
:>that WTOR with automation and issue a modify command to another address
:>space with the reply id for the WTOR. I would like to bypass the
:>automation piece and issue the modify command directly from the program
:>issuing the WTOR. However, I see no description of how on might do this
:>in the manuals. I have also begun searching the archives for the
:>answer. How do you extract the reply id from a WTOR once the WTOR has
:>been issued?
:> My code would look something like this:
:> WTOR MF=(E,WTORSTOR) ISSUE WTOR
:>*
:>* Extract the reply id for the command below
:>*
:> XC MGCRPL(MGCRLTH),MGCRPL CLEAR PARM LIST
:> MVC MGCRTEXT(14),=CL14'F STCNAME1,xx '
:>*****************************************************************
:> MVC MGCRTEXT+11(2),DBLWRD+3 MOVE IN REPLY NUMBER
:>*****************************************************************
:> MVC MGCRTEXT+14(xx),.... REMAINDER OF
:>COMMAND
:> LA R1,(MGCRTEXT-MGCRPL)+65 GET MGCRPL LENGTH
:> STC R1,MGCRLGTH PUT LGTH IN THE MGCRPL
:> MODESET KEY=ZERO * KEY ZERO/SUPERVISOR STATE
:> SR R0,R0 CLEAR R0
:> MGCR MGCRPL ISSUE COMMAND
:> MODESET KEY=NZERO * KEY ZERO/SUPERVISOR STATE
:>*
:> LA R1,WTORECB WAIT FOR REPLY
:> WAIT 1,ECB=(R1) *
IEECUCM
IHAORE
Now do it.
--
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
