ZIBFR ; IHS/ADC/GTH - LIST UCI'S FOR A GIVEN ROUTINE ; [ 10/29/2002 7:42 AM ]
Source file <ZIBFR.m>
Package | Total | Call Graph |
---|---|---|
IHS VA Utilities | 1 | EN^XBVK |
Kernel | 1 | $$VERSION^%ZOSV |
Name | Comments | DBIA/ICR reference |
---|---|---|
CDATE(%ZIBRTN) | ; retrieve date of last edit on Cache only
|
|
EN | ;
|
|
CACHE | ;
|
|
ENQ | ;
|
|
EXIT | ;IHS/SET/GTH XB*3*9 10/29/2002 Label EX changed to EXIT.
|
|
ZT | ; ERROR TRAP
|
|
ZTQ | ;
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^%ZOSF("TEST" | EN+22 |
Name | Line Occurrences |
---|---|
$$CDATE | CACHE+10 |
CACHE | EN+8 |
EXIT | EN+5, CACHE+16 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> % | EN+2* |
%ZIB | EXIT+1! |
%ZIB("CURR NS | P" , CACHE+2*, CACHE+13 |
%ZIB("CURR UC | I NBR" , EN+9* |
%ZIB("CURR VO | L NBR" , EN+10* |
%ZIB("OP SYS" | , EN+7*, EN+8, EN+18, EN+27 |
%ZIB("RTN FIR | ST LINE" , EN+25, EN+26, CACHE+11 |
%ZIB("RTN NAM | E" , EN+3*, EN+5, EN+6*, EN+17, EN+21, EN+25, CACHE+6, CACHE+10 |
%ZIB("RTN SEC | OND LINE" , CACHE+12 |
%ZIB("UCI NBR | " , EN+16*, EN+17 |
%ZIB("VOL NBR | " , EN+14*, EN+16 |
%ZIBRTN | CDATE~, CDATE+1 |
DTIME | EN+3 |
I | CACHE+3*, CACHE+15! |
X | EN+21*, CACHE+6*, CACHE+15! |
>> ZIBFUCI | CACHE+4*, CACHE+5 |
>> ZIBLIST( | CACHE+3*, CACHE+4 |