TS/MP System Management Manual (G06.24+, H06.03+)

Starting and Stopping a PATHMON Environment
NonStop TS/MP System Management Manual—541819-001
2-20
Monitoring Shutdown Status
Example 2-2. Sample TACL Routine to Stop Orphan Processes (Local System
Only)
?SECTION stop_children ROUTINE
== Stops all children of a given process id & then stops the process id
== USAGE:
== STOP_CHILDREN <process-id>
== EXAMPLE:
== STOP_CHILDREN $CRPM
== this would stop $CRPM and all children of $CRPM (if used by
== appropriate user-id)
== LIMITATION
== This issues explicit stop commands against processes. As such it
== is subject to Guardian security limitations about who can stop
== which processes.
== ENVIRONMENT
== This file is designed to be LOADED into a TACL environment prior
== to invocation.
== AUTHOR: PJL
==
#FRAME
[#PUSH _system _processid _title _entry _result _entry _name
_primary _backup _ancestor _sys _proc _style _outfile]
[#CASE [#ARGUMENT/text _processid/ PROCESSNAME OTHERWISE]
|1|
[#IF [#EMPTYV _system] |THEN|
#SET _system [#FILEINFO/SYSTEM/ [_processid]]
]
[#IF [#EMPTYV _system] |THEN|
#SET _system [#FILEINFO/SYSTEM/ [#DEFAULTS]]
[#IF [#EMPTYV _system] |THEN|
#SET _system [#MYSYSTEM]
]
]
[#IF [#ARGUMENT END]]
#SET _entry 0
[#LOOP |DO|
[#SETMANY _result _entry _name _primary _backup _ancestor,
[#LOOKUPPROCESS/RESULT,ENTRY,PROCESSID,PRIMARY,BACKUP,
ANCESTOR/ _entry [_system]]
]
[#IF [#MATCH [_processid] [_ancestor]] |THEN|
STOP [_system].[_name]
]
#SET _entry [#COMPUTE _entry + 1]
|UNTIL| [#EMPTYV _name]
]
STOP [_system].[_processid]
|otherwise| ==! do nothing
[#IF [#ARGUMENT END]] ==CLEANUP UNTIL END OF LINE
]
#UNFRAME