Good points.  I've had the problem with MSG/SMSGs still in limbo and the
WAKEUP receives those first.  Is there a way to clear these prior to
issuing the WAKEUP (or sending the SMSG)?

 

 

Frank M. Ramaekers Jr.

 

 

________________________________

From: The IBM z/VM Operating System [mailto:IBMVM@LISTSERV.UARK.EDU] On
Behalf Of Scott Rohling
Sent: Thursday, August 04, 2011 10:55 AM
To: IBMVM@LISTSERV.UARK.EDU
Subject: Re: Trapping SMSG messages

 

Another couple of points --   

 

-  Since you can't control who might send a message to you when - you
probably want to loop until there are no more rc=5.    It could be a msg
from another user is stacked in IUCV.   

-  DESBUF is kind of brute force -- it wipes out the stack -- and there
could conceivably be things stacked and needed by whatever calls you.
Better to do a 'MAKEBUF';buf=rc   ...   and then 'DROPBUF' buf ...
then you only drop the things in your 'own' stack.. and you aren't
affected by what may already be in the stack for whatever called you.  

 

Scott Rohling

On Thu, Aug 4, 2011 at 9:44 AM, Scott Rohling <scott.rohl...@gmail.com>
wrote:

Try turning the 'SET MSG IUCV' to 'WAKEUP +0 (IUCVMSG' ..   I think this
gets WAKEUP ready - and also issues the SET MSG IUCV.   The example
under 'HELP WAKEUP' shows it done this way and I seem to recall needing
to do it in something I'd written. 

 

Scott Rohling

 

On Thu, Aug 4, 2011 at 9:28 AM, Frank M. Ramaekers
<framaek...@ailife.com> wrote:

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 <tel:%28254%29761-6649> 

 

1200 Wooded Acres Dr.

Fax: (254)741-5777 <tel:%28254%29741-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 privacy...@ailife.com. 

 

 


_____________________________________________________
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 
privacy...@ailife.com.

Reply via email to