Folks,
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) *
Thanks in advance,
Steve A.
----------------------------------------------------------------------
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
