XQ82 ;SF-ISC.SEA/JLI - CLEAN OLD $JOB DATA OUT OF XUTL("XQ", & OTHERS ;12/03/14 08:32
Source file <XQ82.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EXIT | ;
|
|
| L0 | ;We keep track of jobs by putting data in ^XUTL("XQ",$J).
|
|
| L1 | ;Loop thru UTILITY and look for nodes w/o corresponding XUTL("XQ",n)
|
|
| L2 | ;Loop thru TMP and look for nodes w/o corresponding XUTL("XQ",n)
|
|
| L3 | ;Now to cleanup the XTMP global w/ XTMP(namespace,0)<DT
|
|
| L4 | ;Now go thru and clean old ^XUSEC(0,"CUR",duz,sign-on) nodes.
|
|
| L5 | ;Now go through and clean old ^XUSEC(0,"AS*" nodes.
|
|
| L6 | ;Clean out old build nodes from ^XUTL
|
|
| L7 | ;Kill ^DISV for TERMINATED or DISUSER Users.
|
|
| L8 | ;Loop top level of ^XUTL
|
|
| L51(NDX) | ;Clean old Sign-on log entries from X-ref
|
|
| DEAD(X1) | ;Check if X1 is a PID and DEAD
|
|
| CHECK() | ;Check that we have the right enviroment to do pass 2
|
