…and GETMSG completes with RC=4 and no messages are retrieved.
Typically, the messages I want to examine are the £HASP880 messages that describe whether lines are open to other LPARs, but they apparently cannot be retrieved by GETMSG.
Looking at the messages routing/descriptor codes, they are #/- and 1,2/4 for £HASP603 and £HASP880 respectively.
Thinking that routing codes 1 and 2 may route to the system console only, I’ve also tried 'CONSOLE ACTIVATE(OPERPARM(ROUTCODE(1,2))' with the same results.
Do you have any ideas or suggestions for what else to try?
The point of the rexx is to establish that jobs can be routed for execution on other LPARs, before actually submitting them.
Joined: 01 Sep 2006 Posts: 2547 Location: Silicon Valley
From the GETMSG section of the REXX manual:
Quote:
Environment Customization Considerations:
...
Responses to commands sent through the network to another system might be affected as follows:
The responses might not be returned as solicited even if a CART was specified and preserved; UNSOLDISPLAY(YES) may be required.
If the receiving system does not preserve the extended console identifier, ROUTCODE(ALL) and UNSOLDISPLAY(YES) might be required to receive the responses.
So, specify UNSOL or EITHER and perhaps wait for several seconds longer. Also, your CONSPROF statement might need to be specify for unsolicited messages.
/* get response from command */
cc=XTSO("CONSOLE SYSCMD("arg(1)") CART('"consname"') name("consname")")
if cc<>0 then Return Quit(3,'Console failed rc' cc)
Do cn=1 to retry
oscmdr.0=0
cc = GETMSG('OSCMDR.','SOL',consname,,wait)
if cc>4 then Return Quit(4,'GETMSG error retrieving message, rc' cc)
if oscmdr.0=0 then Return Quit(3) /* no reponse */
do cmsgi=1 to oscmdr.0
queue oscmdr.cmsgi
end
End
Return Quit(0)
Quit:
Call XTSO "Console deactivate"
if arg(2)<>'' then say arg(2)
Return word(arg(1) 0,1)
