I don't quite understand why I'm missing the first IUCV MSG sent to my
virtual machine after an IPL. The basics of this program is:
1) Send a SMSG to VMUTIL of 'RUOKAY'
2) VMUTIL, if alive, will send back a MSG response
"IMOKAY"
3) If the proper response is received the RC is set to
zero, all other cases it's set to 1
My short REXX:
Trace "O"
"PIPE LITERAL QUERY SET",
"| CP",
"| SPLIT AT ,",
"| STRIP",
"| FIND MSG"||,
"| SPEC W2 1",
"| VAR SETMSG"
"CP SET MSG IUCV"
"CP SMSG VMUTIL RUALIVE"
"WAKEUP +00:02 (QUIET IUCVMSG CONS"
wurc=rc
XRC=1 /* Assume bad */
Select
When wurc==5 then /* Message arrived */
Do queued()
Parse pull WuType WuWho WuMsg
If WuType=="*MSG" & WuWho=="VMUTIL" & WuMsg="IMOKAY" then
XRC=0
End
When wurc==6 then /* Console interrupt */
Say "Interrupted"
Otherwise
Nop
End /* Select */
"CP SET MSG" SetMsg
/* Flush everything */
"DESBUF"
If Externals()>0 then
Parse external .
Exit XRC
l maint
ENTER PASSWORD (IT WILL NOT APPEAR WHEN TYPED):
HCPLNM101E DASD 0CF1 forced R/O; R/O by SYSTEM; stable by SYSTEM
HCPLNM101E DASD 0CF2 forced R/O; R/O by SYSTEM; stable by SYSTEM
z/VM Version 5 Release 4.0, Service Level 1003 (64-bit),
built on IBM Virtualization Technology
There is no logmsg data
FILES: 0066 RDR, 0007 PRT, NO PUN
LOGON AT 10:25:22 CDT THURSDAY 08/04/11
z/VM V5.4.0 2011-03-31 08:13
PIPINX086I CMS/TSO Pipelines, 5654-030/5655-A17 1.0112
(Version.Release/Mod) - Generated 3 Jul 2010 at 11:32:36.
Source: Princeton Runtime Distribution
Ready; T=0.02/0.02 10:25:24
vmutil
10:25:25 * MSG FROM VMUTIL : IMOKAY
Ready(00001); T=0.01/0.01 10:25:27
vmutil
Ready; T=0.01/0.01 10:25:41
vmutil
Ready; T=0.01/0.01 10:25:44
vmutil
Ready; T=0.01/0.01 10:25:44
vmutil
Ready; T=0.01/0.01 10:25:45
Any way to avoid missing this first MSG?
Frank M. Ramaekers Jr.
Systems Programmer
MCP, MCP+I, MCSE & RHCE
American Income Life Insurance Co.
Phone: (254)761-6649
1200 Wooded Acres Dr.
Fax: (254)741-5777
Waco, Texas 76701
_____________________________________________________
This message contains information which is privileged and confidential and is
solely for the use of the
intended recipient. If you are not the intended recipient, be aware that any
review, disclosure,
copying, distribution, or use of the contents of this message is strictly
prohibited. If you have
received this in error, please destroy it immediately and notify us at
[email protected].
