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