XQ82 ;SF-ISC.SEA/JLI - CLEAN OLD $JOB DATA OUT OF XUTL("XQ", & OTHERS ;12/03/14 08:32
Source file <XQ82.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| 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
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^$JOB( | DEAD+7 |
| ^%ZOSF("OS" | XQ82+9 |
| ^%ZTSCH("TASK" | L0+10 |
| ^DD("DILOCKTM" | XQ82+10 |
| ^DISV( | L7+3! |
| ^TMP( | L0+11!, L0+16!, L2+2, L2+3!, L2+5! |
| ^UTILITY( | L0+11!, L0+16!, L1+2, L1+3!, L1+5! |
| ^XTMP( | L3+2! |
| ^XTV(8989.3 - [#8989.3] | CHECK+5 |
| ^XUSEC(0 - [#3.081] | L51+3, L51+5! |
| ^XUTL( | L0+11!, L0+16!, L8+3! |
| ^XUTL("XQ" | L0+7, L0+8!, L0+9, L0+10, L0+11!, L0+15, L0+16!, L1+3, L1+5, L2+3 , L2+5, L8+3 |
| ^XUTL("XQO" | L6+3, L6+4 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| %DT | XQ82+5~ |
| %T | L0+6~ |
| A | XQ82+5~, L1+1~, L1+2*, L1+3, L1+4, L1+5, L2+1~, L2+2*, L2+3, L2+4 , L2+5, L3+1~, L3+2*, L8+1~, L8+2*, L8+3* |
| DA | L7+1~, L7+2*, L7+3* |
| DDATE | XQ82+5~, XQ82+8*, L0+7, L51+6 |
| >> DILOCKTM | XQ82+10*, L0+10 |
| DT | XQ82+6*, L3+2 |
| ERR | L51+1~, L51+8! |
| FDA | L51+1~, L51+8! |
| FDA( | L51+7* |
| HDATE | XQ82+5~, XQ82+7*, XQ82+8, L0+9 |
| HJOB | XQ82+5~, XQ82+10* |
| HPID3 | XQ82+5~, XQ82+9*, DEAD+4 |
| I | L51+1~, L51+2*, L51+3*, L51+5 |
| IEN | L51+1~, L51+8! |
| J | XQ82+5~, L0+6*, L0+7*, L0+8, L0+9, L0+10, L0+11, L0+15*, L0+16, L1+1~ , L1+5*, L2+1~, L2+5*, L3+1~, L3+2*, L51+1~, L51+3*, L51+5, L51+6, L51+7 |
| K | XQ82+5~, L6+1~, L6+2*, L6+3*, L6+4 |
| NDX | L51~, L51+3, L51+5 |
| NOW | L51+1~, L51+2*, L51+7 |
| U | XQ82+6*, L7+2* |
| USER | L7+1~, L7+3* |
| X | XQ82+5~ |
| X1 | DEAD~, DEAD+2, DEAD+4, DEAD+7 |
| XQOS | XQ82+5~, XQ82+9*, DEAD+4 |
| XQVND | XQ82+5~, XQ82+9*, CHECK+2, CHECK+5 |
| Y | XQ82+5~ |
