*---------Language: Automation Point Script--------------------$$PROLOG*
*     Program Name: LOGONRCS.SCR                                       *
*      Description: This script file is stays active while a cooperat- *
*                   ing REXX exec runs, then it cleans up and exits.   *
*    Customization: None                                               *
*       Invocation: By Automation point as appropriate                 *
* Related Routines: LOGONRCS.CMD                                       *
*     Base Release: CA-Automation Point 3.2                            *
*     Restrictions: Cooperating exec must complete before last block.  *
*       Change log: Add new entries to the top                         *
*-----------------Changed 19-MAR-1999 by: Bob Stark -------------------*
* 1. Initial coding                                                    *
*----------------------------------------------------------------------*
* 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     *
*----------------------------------------------------------------------*

*----------------------------------------------------------------------*
* Watch for tag left over from RCMVS logon, then cleanup and exit      *
*----------------------------------------------------------------------*
WAIT=1                      * Wait 1 second max
ERROR=IGNORE                * If search fails, proceed to next search
SEARCH=(script can end now) * Look for special tag on the screen
  KEY=(@0@B@F)              * Send home, erase EOF
  ERROR=ENDSCRIPT           * If search fails (and it will), we're done
  SEARCH=(*&^%$#@ You will never find this data on the screen !@#$%^&)
  ENDSEARCH                 * End of cmds to perform if '*&^%$#@ You...'
ENDSEARCH                   * End of cmds to perform if 'script can...'

WAIT=1                      * Wait 1 second max
ERROR=IGNORE                * If search fails, proceed to next search
SEARCH=(script can end now) * Look for special tag on the screen
  KEY=(@0@B@F)              * Send home, erase EOF
  ERROR=ENDSCRIPT           * If search fails (and it will), we're done
  SEARCH=(*&^%$#@ You will never find this data on the screen !@#$%^&)
  ENDSEARCH                 * End of cmds to perform if '*&^%$#@ You...'
ENDSEARCH                   * End of cmds to perform if 'script can...'

WAIT=1                      * Wait 1 second max
ERROR=IGNORE                * If search fails, proceed to next search
SEARCH=(script can end now) * Look for special tag on the screen
  KEY=(@0@B@F)              * Send home, erase EOF
  ERROR=ENDSCRIPT           * If search fails (and it will), we're done
  SEARCH=(*&^%$#@ You will never find this data on the screen !@#$%^&)
  ENDSEARCH                 * End of cmds to perform if '*&^%$#@ You...'
ENDSEARCH                   * End of cmds to perform if 'script can...'

WAIT=1                      * Wait 1 second max
ERROR=IGNORE                * If search fails, proceed to next search
SEARCH=(script can end now) * Look for special tag on the screen
  KEY=(@0@B@F)              * Send home, erase EOF
  ERROR=ENDSCRIPT           * If search fails (and it will), we're done
  SEARCH=(*&^%$#@ You will never find this data on the screen !@#$%^&)
  ENDSEARCH                 * End of cmds to perform if '*&^%$#@ You...'
ENDSEARCH                   * End of cmds to perform if 'script can...'

WAIT=1                      * Wait 1 second max
ERROR=IGNORE                * If search fails, proceed to next search
SEARCH=(script can end now) * Look for special tag on the screen
  KEY=(@0@B@F)              * Send home, erase EOF
  ERROR=ENDSCRIPT           * If search fails (and it will), we're done
  SEARCH=(*&^%$#@ You will never find this data on the screen !@#$%^&)
  ENDSEARCH                 * End of cmds to perform if '*&^%$#@ You...'
ENDSEARCH                   * End of cmds to perform if 'script can...'

WAIT=1                      * Wait 1 second max
ERROR=IGNORE                * If search fails, proceed to next search
SEARCH=(script can end now) * Look for special tag on the screen
  KEY=(@0@B@F)              * Send home, erase EOF
  ERROR=ENDSCRIPT           * If search fails (and it will), we're done
  SEARCH=(*&^%$#@ You will never find this data on the screen !@#$%^&)
  ENDSEARCH                 * End of cmds to perform if '*&^%$#@ You...'
ENDSEARCH                   * End of cmds to perform if 'script can...'

WAIT=1                      * Wait 1 second max
ERROR=IGNORE                * If search fails, proceed to next search
SEARCH=(script can end now) * Look for special tag on the screen
  KEY=(@0@B@F)              * Send home, erase EOF
  ERROR=ENDSCRIPT           * If search fails (and it will), we're done
  SEARCH=(*&^%$#@ You will never find this data on the screen !@#$%^&)
  ENDSEARCH                 * End of cmds to perform if '*&^%$#@ You...'
ENDSEARCH                   * End of cmds to perform if 'script can...'

WAIT=1                      * Wait 1 second max
ERROR=IGNORE                * If search fails, proceed to next search
SEARCH=(script can end now) * Look for special tag on the screen
  KEY=(@0@B@F)              * Send home, erase EOF
  ERROR=ENDSCRIPT           * If search fails (and it will), we're done
  SEARCH=(*&^%$#@ You will never find this data on the screen !@#$%^&)
  ENDSEARCH                 * End of cmds to perform if '*&^%$#@ You...'
ENDSEARCH                   * End of cmds to perform if 'script can...'

WAIT=1                      * Wait 1 second max
ERROR=IGNORE                * If search fails, proceed to next search
SEARCH=(script can end now) * Look for special tag on the screen
  KEY=(@0@B@F)              * Send home, erase EOF
  ERROR=ENDSCRIPT           * If search fails (and it will), we're done
  SEARCH=(*&^%$#@ You will never find this data on the screen !@#$%^&)
  ENDSEARCH                 * End of cmds to perform if '*&^%$#@ You...'
ENDSEARCH                   * End of cmds to perform if 'script can...'

WAIT=1                      * Wait 1 second max
ERROR=IGNORE                * If search fails, proceed to next search
SEARCH=(script can end now) * Look for special tag on the screen
  KEY=(@0@B@F)              * Send home, erase EOF
  ERROR=ENDSCRIPT           * If search fails (and it will), we're done
  SEARCH=(*&^%$#@ You will never find this data on the screen !@#$%^&)
  ENDSEARCH                 * End of cmds to perform if '*&^%$#@ You...'
ENDSEARCH                   * End of cmds to perform if 'script can...'

WAIT=1                      * Wait 1 second max
ERROR=IGNORE                * If search fails, proceed to next search
SEARCH=(script can end now) * Look for special tag on the screen
  KEY=(@0@B@F)              * Send home, erase EOF
  ERROR=ENDSCRIPT           * If search fails (and it will), we're done
  SEARCH=(*&^%$#@ You will never find this data on the screen !@#$%^&)
  ENDSEARCH                 * End of cmds to perform if '*&^%$#@ You...'
ENDSEARCH                   * End of cmds to perform if 'script can...'

WAIT=1                      * Wait 1 second max
ERROR=IGNORE                * If search fails, proceed to next search
SEARCH=(script can end now) * Look for special tag on the screen
  KEY=(@0@B@F)              * Send home, erase EOF
  ERROR=ENDSCRIPT           * If search fails (and it will), we're done
  SEARCH=(*&^%$#@ You will never find this data on the screen !@#$%^&)
  ENDSEARCH                 * End of cmds to perform if '*&^%$#@ You...'
ENDSEARCH                   * End of cmds to perform if 'script can...'

WAIT=1                      * Wait 1 second max
ERROR=IGNORE                * If search fails, proceed to next search
SEARCH=(script can end now) * Look for special tag on the screen
  KEY=(@0@B@F)              * Send home, erase EOF
  ERROR=ENDSCRIPT           * If search fails (and it will), we're done
  SEARCH=(*&^%$#@ You will never find this data on the screen !@#$%^&)
  ENDSEARCH                 * End of cmds to perform if '*&^%$#@ You...'
ENDSEARCH                   * End of cmds to perform if 'script can...'

WAIT=1                      * Wait 1 second max
ERROR=IGNORE                * If search fails, proceed to next search
SEARCH=(script can end now) * Look for special tag on the screen
  KEY=(@0@B@F)              * Send home, erase EOF
  ERROR=ENDSCRIPT           * If search fails (and it will), we're done
  SEARCH=(*&^%$#@ You will never find this data on the screen !@#$%^&)
  ENDSEARCH                 * End of cmds to perform if '*&^%$#@ You...'
ENDSEARCH                   * End of cmds to perform if 'script can...'

WAIT=1                      * Wait 1 second max
ERROR=IGNORE                * If search fails, proceed to next search
SEARCH=(script can end now) * Look for special tag on the screen
  KEY=(@0@B@F)              * Send home, erase EOF
  ERROR=ENDSCRIPT           * If search fails (and it will), we're done
  SEARCH=(*&^%$#@ You will never find this data on the screen !@#$%^&)
  ENDSEARCH                 * End of cmds to perform if '*&^%$#@ You...'
ENDSEARCH                   * End of cmds to perform if 'script can...'

WAIT=1                      * Wait 1 second max
ERROR=IGNORE                * If search fails, proceed to next search
SEARCH=(script can end now) * Look for special tag on the screen
  KEY=(@0@B@F)              * Send home, erase EOF
  ERROR=ENDSCRIPT           * If search fails (and it will), we're done
  SEARCH=(*&^%$#@ You will never find this data on the screen !@#$%^&)
  ENDSEARCH                 * End of cmds to perform if '*&^%$#@ You...'
ENDSEARCH                   * End of cmds to perform if 'script can...'

WAIT=1                      * Wait 1 second max
ERROR=IGNORE                * If search fails, proceed to next search
SEARCH=(script can end now) * Look for special tag on the screen
  KEY=(@0@B@F)              * Send home, erase EOF
  ERROR=ENDSCRIPT           * If search fails (and it will), we're done
  SEARCH=(*&^%$#@ You will never find this data on the screen !@#$%^&)
  ENDSEARCH                 * End of cmds to perform if '*&^%$#@ You...'
ENDSEARCH                   * End of cmds to perform if 'script can...'

WAIT=1                      * Wait 1 second max
ERROR=IGNORE                * If search fails, proceed to next search
SEARCH=(script can end now) * Look for special tag on the screen
  KEY=(@0@B@F)              * Send home, erase EOF
  ERROR=ENDSCRIPT           * If search fails (and it will), we're done
  SEARCH=(*&^%$#@ You will never find this data on the screen !@#$%^&)
  ENDSEARCH                 * End of cmds to perform if '*&^%$#@ You...'
ENDSEARCH                   * End of cmds to perform if 'script can...'

WAIT=1                      * Wait 1 second max
ERROR=IGNORE                * If search fails, proceed to next search
SEARCH=(script can end now) * Look for special tag on the screen
  KEY=(@0@B@F)              * Send home, erase EOF
  ERROR=ENDSCRIPT           * If search fails (and it will), we're done
  SEARCH=(*&^%$#@ You will never find this data on the screen !@#$%^&)
  ENDSEARCH                 * End of cmds to perform if '*&^%$#@ You...'
ENDSEARCH                   * End of cmds to perform if 'script can...'

WAIT=1                      * Wait 1 second max
ERROR=IGNORE                * If search fails, proceed to next search
SEARCH=(script can end now) * Look for special tag on the screen
  KEY=(@0@B@F)              * Send home, erase EOF
  ERROR=ENDSCRIPT           * If search fails (and it will), we're done
  SEARCH=(*&^%$#@ You will never find this data on the screen !@#$%^&)
  ENDSEARCH                 * End of cmds to perform if '*&^%$#@ You...'
ENDSEARCH                   * End of cmds to perform if 'script can...'

WAIT=1                      * Wait 1 second max
ERROR=IGNORE                * If search fails, proceed to next search
SEARCH=(script can end now) * Look for special tag on the screen
  KEY=(@0@B@F)              * Send home, erase EOF
  ERROR=ENDSCRIPT           * If search fails (and it will), we're done
  SEARCH=(*&^%$#@ You will never find this data on the screen !@#$%^&)
  ENDSEARCH                 * End of cmds to perform if '*&^%$#@ You...'
ENDSEARCH                   * End of cmds to perform if 'script can...'

WAIT=1                      * Wait 1 second max
ERROR=IGNORE                * If search fails, proceed to next search
SEARCH=(script can end now) * Look for special tag on the screen
  KEY=(@0@B@F)              * Send home, erase EOF
  ERROR=ENDSCRIPT           * If search fails (and it will), we're done
  SEARCH=(*&^%$#@ You will never find this data on the screen !@#$%^&)
  ENDSEARCH                 * End of cmds to perform if '*&^%$#@ You...'
ENDSEARCH                   * End of cmds to perform if 'script can...'

WAIT=1                      * Wait 1 second max
ERROR=IGNORE                * If search fails, proceed to next search
SEARCH=(script can end now) * Look for special tag on the screen
  KEY=(@0@B@F)              * Send home, erase EOF
  ERROR=ENDSCRIPT           * If search fails (and it will), we're done
  SEARCH=(*&^%$#@ You will never find this data on the screen !@#$%^&)
  ENDSEARCH                 * End of cmds to perform if '*&^%$#@ You...'
ENDSEARCH                   * End of cmds to perform if 'script can...'

WAIT=1                      * Wait 1 second max
ERROR=IGNORE                * If search fails, proceed to next search
SEARCH=(script can end now) * Look for special tag on the screen
  KEY=(@0@B@F)              * Send home, erase EOF
  ERROR=ENDSCRIPT           * If search fails (and it will), we're done
  SEARCH=(*&^%$#@ You will never find this data on the screen !@#$%^&)
  ENDSEARCH                 * End of cmds to perform if '*&^%$#@ You...'
ENDSEARCH                   * End of cmds to perform if 'script can...'

WAIT=1                      * Wait 1 second max
ERROR=IGNORE                * If search fails, proceed to next search
SEARCH=(script can end now) * Look for special tag on the screen
  KEY=(@0@B@F)              * Send home, erase EOF
  ERROR=ENDSCRIPT           * If search fails (and it will), we're done
  SEARCH=(*&^%$#@ You will never find this data on the screen !@#$%^&)
  ENDSEARCH                 * End of cmds to perform if '*&^%$#@ You...'
ENDSEARCH                   * End of cmds to perform if 'script can...'

WAIT=1                      * Wait 1 second max
ERROR=IGNORE                * If search fails, proceed to next search
SEARCH=(script can end now) * Look for special tag on the screen
  KEY=(@0@B@F)              * Send home, erase EOF
  ERROR=ENDSCRIPT           * If search fails (and it will), we're done
  SEARCH=(*&^%$#@ You will never find this data on the screen !@#$%^&)
  ENDSEARCH                 * End of cmds to perform if '*&^%$#@ You...'
ENDSEARCH                   * End of cmds to perform if 'script can...'

WAIT=1                      * Wait 1 second max
ERROR=IGNORE                * If search fails, proceed to next search
SEARCH=(script can end now) * Look for special tag on the screen
  KEY=(@0@B@F)              * Send home, erase EOF
  ERROR=ENDSCRIPT           * If search fails (and it will), we're done
  SEARCH=(*&^%$#@ You will never find this data on the screen !@#$%^&)
  ENDSEARCH                 * End of cmds to perform if '*&^%$#@ You...'
ENDSEARCH                   * End of cmds to perform if 'script can...'

WAIT=1                      * Wait 1 second max
ERROR=IGNORE                * If search fails, proceed to next search
SEARCH=(script can end now) * Look for special tag on the screen
  KEY=(@0@B@F)              * Send home, erase EOF
  ERROR=ENDSCRIPT           * If search fails (and it will), we're done
  SEARCH=(*&^%$#@ You will never find this data on the screen !@#$%^&)
  ENDSEARCH                 * End of cmds to perform if '*&^%$#@ You...'
ENDSEARCH                   * End of cmds to perform if 'script can...'

WAIT=1                      * Wait 1 second max
ERROR=IGNORE                * If search fails, proceed to next search
SEARCH=(script can end now) * Look for special tag on the screen
  KEY=(@0@B@F)              * Send home, erase EOF
  ERROR=ENDSCRIPT           * If search fails (and it will), we're done
  SEARCH=(*&^%$#@ You will never find this data on the screen !@#$%^&)
  ENDSEARCH                 * End of cmds to perform if '*&^%$#@ You...'
ENDSEARCH                   * End of cmds to perform if 'script can...'

WAIT=1                      * Wait 1 second max
ERROR=IGNORE                * If search fails, proceed to next search
SEARCH=(script can end now) * Look for special tag on the screen
  KEY=(@0@B@F)              * Send home, erase EOF
  ERROR=ENDSCRIPT           * If search fails (and it will), we're done
  SEARCH=(*&^%$#@ You will never find this data on the screen !@#$%^&)
  ENDSEARCH                 * End of cmds to perform if '*&^%$#@ You...'
ENDSEARCH                   * End of cmds to perform if 'script can...'

WAIT=1                      * Wait 1 second max
ERROR=IGNORE                * If search fails, proceed to next search
SEARCH=(script can end now) * Look for special tag on the screen
  KEY=(@0@B@F)              * Send home, erase EOF
  ERROR=ENDSCRIPT           * If search fails (and it will), we're done
  SEARCH=(*&^%$#@ You will never find this data on the screen !@#$%^&)
  ENDSEARCH                 * End of cmds to perform if '*&^%$#@ You...'
ENDSEARCH                   * End of cmds to perform if 'script can...'

WAIT=1                      * Wait 1 second max
ERROR=IGNORE                * If search fails, proceed to next search
SEARCH=(script can end now) * Look for special tag on the screen
  KEY=(@0@B@F)              * Send home, erase EOF
  ERROR=ENDSCRIPT           * If search fails (and it will), we're done
  SEARCH=(*&^%$#@ You will never find this data on the screen !@#$%^&)
  ENDSEARCH                 * End of cmds to perform if '*&^%$#@ You...'
ENDSEARCH                   * End of cmds to perform if 'script can...'

WAIT=1                      * Wait 1 second max
ERROR=IGNORE                * If search fails, proceed to next search
SEARCH=(script can end now) * Look for special tag on the screen
  KEY=(@0@B@F)              * Send home, erase EOF
  ERROR=ENDSCRIPT           * If search fails (and it will), we're done
  SEARCH=(*&^%$#@ You will never find this data on the screen !@#$%^&)
  ENDSEARCH                 * End of cmds to perform if '*&^%$#@ You...'
ENDSEARCH                   * End of cmds to perform if 'script can...'

WAIT=1                      * Wait 1 second max
ERROR=IGNORE                * If search fails, proceed to next search
SEARCH=(script can end now) * Look for special tag on the screen
  KEY=(@0@B@F)              * Send home, erase EOF
  ERROR=ENDSCRIPT           * If search fails (and it will), we're done
  SEARCH=(*&^%$#@ You will never find this data on the screen !@#$%^&)
  ENDSEARCH                 * End of cmds to perform if '*&^%$#@ You...'
ENDSEARCH                   * End of cmds to perform if 'script can...'

WAIT=1                      * Wait 1 second max
ERROR=IGNORE                * If search fails, proceed to next search
SEARCH=(script can end now) * Look for special tag on the screen
  KEY=(@0@B@F)              * Send home, erase EOF
  ERROR=ENDSCRIPT           * If search fails (and it will), we're done
  SEARCH=(*&^%$#@ You will never find this data on the screen !@#$%^&)
  ENDSEARCH                 * End of cmds to perform if '*&^%$#@ You...'
ENDSEARCH                   * End of cmds to perform if 'script can...'

WAIT=1                      * Wait 1 second max
ERROR=IGNORE                * If search fails, proceed to next search
SEARCH=(script can end now) * Look for special tag on the screen
  KEY=(@0@B@F)              * Send home, erase EOF
  ERROR=ENDSCRIPT           * If search fails (and it will), we're done
  SEARCH=(*&^%$#@ You will never find this data on the screen !@#$%^&)
  ENDSEARCH                 * End of cmds to perform if '*&^%$#@ You...'
ENDSEARCH                   * End of cmds to perform if 'script can...'