Hi
I am trying to write a REXX exec to shutdown my z/Linux guests. I am
having trouble figuring out a couple of things:
'MAKEBUF'
RC = 0
DO FOREVER; /* WILL GET MESSAGES UNTIL GUEST DOWN */
'WAKEUP (IUCVMSG QUIET' /* MESSAGE HAS ARRIVED */
PARSE PULL MSG /* GET RETURNED MESSAGE*/
/* PARSE VAR MSG TYPE F1 F2 MSGID F3 GUEST REST */
IF RC = 6 THEN
/*IF RC = 5 & TYPE = '*CP', */
/* & (MSGID = 'HCPSIG2113I'| MSGID = 'HCPSIG2112I') THEN */
DO
IF FUNCTION = 'SHUTDOWN' THEN
First, I am not seeing the Shutdown message coming back to the BUFFER
(MAKEBUF). I would like to parse the message to make sure it is the
message I am looking for. I did a QUEUED on the BUFFER and there was
nothing on the STACK. Any ideas why or even if this message should/is
not coming back to the BUFFER?
Second, After I receive the HCPSIG2112I message that says the guest has
been shutdown, and I check and it has, but instead of dropping into the
code it just sits there in RUNNING and I need to hit the ENTER key to
get going again. Is there something I need or can do to simulate the
ENTER KEY.
Note: All of the code is not shown here!
Thank You,
Terry Martin
Lockheed Martin - Information Technology
z/OS & z/VM Systems - Performance and Tuning
Cell - 443 632-4191
Work - 410 786-0386
[EMAIL PROTECTED]
