%ZIBRUN ; IHS/ADC/GTH - CHECK FOR ACTIVE ROUTINE IN A SPECIFIC UCI ; [ 02/07/97 3:02 PM ]
Source file <ZIBRUN.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
CK | ; Check %ZIB("JOB TABLE) for match of ROUTINE^UCI.
|
|
EN | ;
|
|
MSM | ; MSM specific look up active JOBs.
|
|
DSM | ; DSM specific look up active JOBs.
|
|
MER | ; MSM error trap.
|
|
OUT | ;
|
Name | Line Occurrences |
---|---|
@( | EN+6 |
CK | EN+7 |
OUT | EN+8 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> %ZIB("$T" | CK+1*, CK+2*, OUT+2 |
>> %ZIB("ACT JOB | " , MSM+5*, DSM+4*, DSM+5, DSM+6, DSM+8, DSM+10, DSM+11 |
>> %ZIB("ACT RTN | " , DSM+9*, DSM+10*, DSM+11 |
>> %ZIB("JOB NBR | " , CK+1*, CK+2* |
>> %ZIB("JOB OFF | SET" , DSM+3*, DSM+4 |
>> %ZIB("JOB TAB | LE" , MSM+5*, DSM+8*, DSM+11*, CK+2 |
>> %ZIB("JOB TBL | " , MSM+3*, DSM+1*, DSM+3, DSM+4 |
>> %ZIB("LOC" | DSM+10* |
>> %ZIB("MAX JOB | S" , MSM+3*, MSM+5 |
>> %ZIB("OP SYS" | , EN+5*, EN+6 |
>> %ZIB("PARM" | EN+3*, EN+4*, CK+2 |
>> %ZIB("PARTITION" | MSM+3*, MSM+5 |
>> %ZIB("SYS TBL | " , MSM+3*, DSM+1* |
>> %ZIB("UCI NBR | " , DSM+6*, DSM+7, DSM+8 |
>> X | EN+3 |