Perhaps this sample EXEC will help get you started. It's a bit old, but I believe its still pretty accurate. Use it as a starting point.
BTW, its on our Y-disk as "WAKEUP EXECSAMP" so that anyone looking for "WAKEUP" will stumble across it. DO NOT save it as "WAKEUP EXEC". Instead, pick a different name. Our WAKEUP-driven SVMs all had this as a starting point, but called: SINK EXEC. The SVM's PROFILE EXECs perform some set-up work, then generally execute: 'CP SET PF01 EXEC SINK' queue 'EXEC SINK' Exit 0 Mike Walter Hewitt Associates The opinions expressed herein are mine alone, not my employer's. ---<snip>--- /* Prolog See Epilog for additional information ******************** * Exec Name - WAKEUP EXECSAMP * * Unit Support - OSS/VM * * Status - Version 1, Release 1.0 * ********************************************************************/ /* Notice: !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! * * It is STRONGLY RECOMMENDED that you do NOT name this * * as "WAKEUP EXEC" (or execs that run in the "address CMS" * * environment will run this before "WAKEUP MODULE *"! * * "WAKEUP MODULE". A better name might be "SINK EXEC". * * This is named "WAKEUP EXECSAMP" just so that it shows up * * when entering "FILELIST WAKEUP * *" * * !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! */ address COMMAND parse source xos xct xfn xft xfm xcmd xenvir . parse upper arg parms 1 operands '(' options ')' parmrest If operands='?' then Signal Explain Signal ON Syntax Signal ON NoValue /* Signal ON ERROR */ /* Save a few initial settings */ parse value diag(08,'CP QUERY SET') with . 'CPCONIO' $cpconio . If cmsflag('CMSTYPE') then $cmstype='RT' else $cmstype='HT' 'SET CMSTYPE HT' 'CP SET CPCONIO IUCV' /* Intercept all CP console IO with IUCV */ 'WAKEUP +0 (NOEXT IUCVMSG QUIET' 'SET CMSTYPE' $cmstype /* Restore cmstype */ Do forever 'CONWAIT' 'DESBUF' 'WAKEUP' operands '(CONS APPC EXT IO IUCVMSG NOREAD RDR SMSG' , 'TIME VMCF FILE(WAKEUP TIMES *)' wrc = rc parse pull . wakedate waketime . /* Get past midnight */ If waketime > '23:57:30' then 'CP SLEEP 3 MIN' /**************************************************************/ /* Some event occurred - see what to do. */ /* Return codes from 'WAKEUP' as follows: */ /* */ /* -2 - 1st time invocation from CMS Subset (invalid) */ /* 0 - Nothing to wait for--all timer file options done */ /* 1 - VMCF or SMSG arrived & stacked */ /* 2 - WAKEUP 'time' operand has elapsed */ /* 3 - Time from 'WAKEUP TIMES' file reached */ /* 4 - Reader File of proper class has arrived */ /* 5 - IUCVMSG has arrived */ /* 6 - Virtual Cons. Interrupt (ENTER, PA1, PFn, etc.) */ /* 7 - I/O interrupt (EXCEPT console, whish is rc=6) */ /* 8 - External interrupt */ /* 100 - Explanation from 'WAKEUP ?" complete */ /* 101 - Empty file in card rdr, RDR option (FSREAD rc) */ /* 103 - Unknown card rdr error, RDR option (FSREAD rc) */ /**************************************************************/ Select When wrc=1 then /* VMCF or MSGS arrived */ Do parse pull msgtype userid msgtext say msgtype userid msgtext End When wrc=2 then /* TIME +mm expired */ Do say 'TIME +mm expired:' wakedate waketime End When wrc=3 then /* WAKEUP Time reached */ Do parse pull . RecNo RecordFromFile say 'WAKEUP TIME reached:' RecNo RecordFromFile End When wrc=4 then /* RDR file arrived */ Do /* We'll call EXIT to keep from looping on the same */ /* reader file. You COULD perform some other reader */ /* file processing (perhaps CALL a sub-routine to do it.)*/ say 'A Reader file arrived, ending' xfn xft xfm Call Exit 0 End When wrc=5 then /* IUCVMSG interrupt */ Do parse pull msgtype userid msgtext say msgtype userid msgtext End When wrc=6 then /* Console interrupt */ Do say 'Console interrupt at' time 'on' date, '-' xfn 'ending.' Call Exit wrc End When wrc=7 then /* non-CONS I/O intrpt */ Do parse pull irpttype devaddr csw csw1 csw2 say 'I/O interrupt:' irpttype devaddr csw csw1 csw2 End When wrc=8 then /* EXT interrupt */ Do parse pull irpttype InterruptCode say 'EXTernal interrupt:' irpttype InterruptCode End Otherwise /* Unknown Return Code */ Do say 'Error return code from WAKEUP =' wrc Call Exit wrc End End /* Select */ End /* forever */ /********************************************************************/ /* Sub-Routines below this point */ /********************************************************************/ Exit: parse arg exitrc todo 'CP SET CPCONIO' $cpconio /* Restore initial setting */ If todo='?' then say 'For more help, enter:' xfn '?' If verify(exitrc,'-0123456789')>0 then Exit 999999 Exit exitrc Error: etxt.1='+++ "ERROR:" error rtn entered in:' xfn xft xfm', rc='rc etxt.2='+++ from line:' sigl', which reads:' etxt.3='+++'sourceline(sigl) cmdline=strip(sourceline(sigl),'B') cmdline=value('CMDLINE') etxt.4='+++ which translates to:' cmdline etxt.0=4 'PIPE STEM etxt. | CONS' Call Exit 20 Syntax: etxt.1='+++ "SYNTAX:" error rtn entered in:' xfn xft xfm', rc='rc etxt.2='+++ from line:' sigl', which reads:' etxt.3='+++'sourceline(sigl) cmdline=strip(sourceline(sigl),'B') cmdline=value('CMDLINE') etxt.4='+++ which translates to:' cmdline etxt.0=4 'PIPE STEM etxt. | CONS' Call Exit 20 NoValue: etxt.1='+++ "NoValue:" error rtn entered in:' xfn xft xfm', rc='rc etxt.2='+++ from line:' sigl', which reads:' etxt.3='+++'sourceline(sigl) etxt.4='+++ Variable with no value is:' condition('Description') etxt.0=4 'PIPE STEM etxt. | CONS' Call Exit 24 Explain: 'PIPE (NAME Explain)' , '| <' xfn xft xfm , '| INSIDE /ExplainBegin:/ /ExplainEnd:/' , '| PREFACE STRLITERAL /'xfn xft xfm 'help.../' , '| CONSOLE' Call Exit 0 /* ExplainBegin: ===> Place command description and syntax here, between ===> lines beginning with "ExplainBegin:" and "ExplainEnd:" ===> A sample "railroad-style" syntax is shown below. +-default operands--+ >>-Cmdname--+-------------------+--+-------------------+--------------->< +-optional operands-+ +-(-| Options |-+---+ +-)-+ |-Options-| ExplainEnd: */ /* Epilog *********************************************************** * Function - Sample EXEC to process WAKEUP module functions. * * Component of - WAKEUP module (from CMS Utilities Facility) * * Command format- WAKEUP <at> <hh:mm<:ss>> * * <+<hh:>mm<:ss>> * * - For more information enter: HELP CMS WAKEUP * * Called by - User from console * * Dependencies - VM/SP 3 or higher. * * WAKEUP MODULE * * WAKEUP TIMES (parm file for WAKEUP event - * * a sample of this is WAKEUP TIMES Y2) * * Program Lang. - CMS REXX * * Date Written - 19880707 * * Author - Michael R. Walter * * Changed | By | Description of Change * * --------+-----+------------------------------------------------- * * 20001024 mrw - Add 'APPC' option * * 20081013 mrw - Save/restore CMSTYPE and CPCONIO settings. * * * ********************************************************************/ ---<snip>--- "Scott Rohling" <scott.rohl...@gmail.com> Sent by: "The IBM z/VM Operating System" <IBMVM@LISTSERV.UARK.EDU> 09/22/2010 10:05 AM Please respond to "The IBM z/VM Operating System" <IBMVM@LISTSERV.UARK.EDU> To IBMVM@LISTSERV.UARK.EDU cc Subject Re: Problems with WAKEUP Another clue from HELP WAKEUP: Seven WAKEUP options cause data to be stacked: EXT, FILE, IO, IUCVMSG, SMSG, TIME, and VMCF. WAKEUP stacks the data in the following order regardless of the order the options are specified when you invoke WAKEUP: 1. Current date and time 2. Line from the WAKEUP TIMES file, or an asterisk (*) if no line is found 3. An IUCV, SMSG or VMCF message, or EXT or IO interrupt data. Note: In general, the last line stacked by WAKEUP is the one you really want to use, not the first line. Scott Rohling On Wed, Sep 22, 2010 at 9:00 AM, Scott Rohling <scott.rohl...@gmail.com> wrote: Not sure it's quite that simple - I too have had issues using FILE and IUCVMSG within VMUTIL. Been awhile but I think the cause stems from this (HELP WAKEUP): When FILE is specified, WAKEUP will always stack the line from the file (or a null line if no line was found) before exiting, even if the cause of the WAKEUP was not timer expiration. The stacked line has the following format: * recno record-from-file where recno is the record number of the line in the file, and record-from-file is as much of the record as will fit on the stack. As I recall - I would have these entries in the stack, which then had to be tossed as they weren't 'real' timer entries. There are some code examples under HELP WAKEUP that might help ... Scott Rohling On Wed, Sep 22, 2010 at 8:48 AM, Frank M. Ramaekers <framaek...@ailife.com > wrote: Just one ?WAKEUP (SMSG FILE?. Test the RC to see which interrupted it. Frank M. Ramaekers Jr. From: The IBM z/VM Operating System [mailto:ib...@listserv.uark.edu] On Behalf Of Mark Workman Sent: Wednesday, September 22, 2010 9:46 AM To: IBMVM@LISTSERV.UARK.EDU Subject: Problems with WAKEUP I am fairly new to VM and having some problems with WAKEUP. I have a server that runs a WAKEUP EXEC that uses the FILE parameter. I need to run an additional WAKEUP EXEC that uses the SMSG parameter. My question is can I incorporate the 'WAKEUP (SMSG' in the same FOREVER loop as the other WAKEUP EXEC? I am seeing errors that make me think this will not work this way. Or do I have to create another server to run my other WAKEUP EXEC (i.e. 1 server runs the WAKEUP (FILE and another server runs the WAKEUP (SMSG) ? Thanks in advance, Mark Workman Shelter Insurance Companies 573.214.4672 mwork...@shelterinsurance.com This e-mail is intended only for its addressee and may contain information that is privileged, confidential, or otherwise protected from disclosure. If you have received this communication in error, please notify us immediately by e-mailing postmas...@shelterinsurance.com; then delete the original message. _____________________________________________________ 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. The information contained in this e-mail and any accompanying documents may contain information that is confidential or otherwise protected from disclosure. If you are not the intended recipient of this message, or if this message has been addressed to you in error, please immediately alert the sender by reply e-mail and then delete this message, including any attachments. Any dissemination, distribution or other use of the contents of this message by anyone other than the intended recipient is strictly prohibited. All messages sent to and from this e-mail address may be monitored as permitted by applicable law and regulations to ensure compliance with our internal policies and to protect our business. E-mails are not secure and cannot be guaranteed to be error free as they can be intercepted, amended, lost or destroyed, or contain viruses. You are deemed to have accepted these risks if you communicate with us by e-mail.