*---------Language: Automation Point Rules---------------------$$PROLOG*
*     Program Name: LOGONRCS.RUL                                       *
*      Description: Rules to drive LOGONRCS.CMD                        *
*------ Change log: (Add new entries to the top)                       *
*-----------------Changed 09-JUL-1999 by: Bob Stark -------------------*
* 1. Cleanup for distribution on REXXDOG samples page.                 *
*----------------------------------------------------------------------*
* Copyright (C) 1999 ProTech Professional Technical Services. No war-  *
* ranty expressed or implied. Permission to use, copy, and distribute  *
* this document without fee is hereby granted, provided that this      *
* copyright notice appear in all copies.  Permission to modify the     *
* code is granted, but not the right to distribute the modified code,  *
* which should be returned to the maintainer for inclusion into the    *
* distributed version.  Contacts: 412-373-8855  www.protechpts.com     *
*----------------------------------------------------------------------*

*----------------------------------------------------------------------*
* Kick off REXX exec to logon instead of script                        *
* AXC0213I Script file LOGONRCS.SCR active in session RCSP             *
*----------------------------------------------------------------------*
MSGID(AXC0213I)
  WHEN(&WORD4(1:8) EQ 'LOGONRCS')
    SET(&(SCRIPTSTATUS_&WORD8) = 'ACTIVE')
    REXX(LOGONRCS SESSION(&WORD8))

*----------------------------------------------------------------------*
* Let the logon REXX exec know that the script has finished            *
* AXC0214I Script file LOGONRCS.SCR completed in session RCSP          *
*----------------------------------------------------------------------*
MSGID(AXC0214I)
  SET(&(SCRIPTSTATUS_&WORD8) = '')