/*************************************************************/
/*  This program is provided on an "AS IS" basis, without    */
/*  warranties or conditions of any kind, either express or  */
/*  implied including, without limitation, any warranties    */
/*  or conditions of title, non-infringement,                */
/*  merchantability or fitness for a particular purpose.     */
/*  Neither recipient nor any contributors shall have any    */
/*  liability for any direct, indirect, incidental,          */
/*  special, exemplary, or consequential damages (including  */
/*  without limitation lost profits), however caused and on  */
/*  any theory of liability, whether in contract, strict     */
/*  liability, or tort (including negligence or otherwise)   */
/*  arising in any way out of the use or distribution of     */
/*  the program or the exercise of any rights granted        */
/*  hereunder, even if advised of the possibility of such    */
/*  damages.                                                 */
/*************************************************************/
/* References:                                               */
/*  The Virtualization Cookbook for Linux on IBM z Systems   */
/*  URL: http://www.ibm.com/vm/pubs/redbooks/SG248147        */
/*************************************************************/
 
/** VMCRON EXEC (TIMED) : CRONSVM 191 - MOD 2015-04-12 YOURID **/
/* This is a sample application of the WAKEUP 'FILE' option.   */
/* This EXEC uses the WAKEUP TIMES file.                       */
/***************************************************************/
Address COMMAND
Do forever
  'MAKEBUF'
  'WAKEUP (FILE(WAKEUP)'
  if rc=3 then Do
    pull var1
    'DROPBUF'
    /* parse field 4 from the stacked wakeup times file line   */
    parse upper value var1 with asterisk reqno field1 field2 ,
                                field3 command
    if command='MSG01' then Do
      'CP MSG OPERATOR THE TIME IS NOW:' time() 'ON' date()
      'CP SLEEP 3 MIN'             /* sleep through midnight */
      END
    else
      if command><'' then Do
        if subword(command,1,1)='CMS' then
        command=subword(command,2) /* strip off cms part     */
        address CMS command        /* execute command        */
      end                          /* end of if command><''  */
  end
  else Do
    'DROPBUF'
    leave
  end                                /* end of else Do         */
end                                  /* end of Do forever loop */
exit