Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: ZOSVKSOE

Package: Kernel

Routine: ZOSVKSOE Platform: Cache


Information

%ZOSVKSE ;OAK/KAK - Automatic INTEGRIT Routine (Cache) ;5/9/07 10:46

Source Information

Source file <ZOSVKSOE.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
Kernel 4 $$EC^%ZOSV  ($$GETDIRGL,$$GLOINTEG,DCMPST)^%ZOSVKSD  RESTART^%ZOSVKSS  (,$$NEWERR,UNWIND)^%ZTER  

Entry Points

Name Comments DBIA/ICR reference
RETURN
ERR ;
ERRVMS ;
BLK(STRNG)
DONE ; normal exit
EVL ; N TBLK
; S TBLK=TOTBLK+LTOTBLK
; W "Total global blocks in "_DIRNAM_" = "_TBLK
; W "Total efficiency = "
; I (TBLK) W ((TOTBYTE+LTOTBYTE)*100)\((2036*TOTBLK)+(2048*LTOTBLK))_"%"
GLOCHK ;
ALLGLO ;- collect global info
EFF(STRNG)
NEXT
C1 ; build name
UCI ;-- code from routine INTEGRIT/Integrity
ERRVMS1 ;
C
B ; LEV(LEV) = root block
UC1 ;-- entry point for Cache NT
; code from routine INTEGRIT
UC1VMS ;-- entry point for Cache VMS
; code from routine Integrity (Cache v4.1.16)
START(KMPSTEMP) ;-- called by routine CVMS+2^KMPSGE/CWINNT+1^KMPSGE in VAH
ERRHND ; if there's an error from line tag B or from call
; to RESTART^%ZOSVKVSS come here and skip the rest
; of this global
INTEG1 ;-- code from routine INTEG1
ERROR ; ERROR - Tell all SAGG jobs to STOP collection
NOCOMMA(IN)
B1
EV1 ;
EV2
EV3
D1

External References

Name Field # of Occurrence
$$EC^%ZOSV ERROR+5
$$GETDIRGL^%ZOSVKSD UC1VMS+6
$$GLOINTEG^%ZOSVKSD ALLGLO+57
DCMPST^%ZOSVKSD ALLGLO+60
RESTART^%ZOSVKSS C+5
^%ZTER ERROR+11
$$NEWERR^%ZTER START+11
UNWIND^%ZTER ERROR+11

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: LEV_" Levels in this global"
  • Line Location: B+9
Function Call: WRITE
  • Prompt: "Level: "_CUR_", "
  • Line Location: C+1
Function Call: WRITE
  • Prompt: %TIM
  • Line Location: RETURN+3
Function Call: WRITE
  • Prompt: "Global ^"_$P(GLO,U)
  • Line Location: EV3+3
Function Call: WRITE
  • Prompt: "Total global blocks in "_DIRNAM_" = "_TBLK
  • Line Location: EVL+2
Function Call: WRITE
  • Prompt: "Total efficiency = "
  • Line Location: EVL+3
Function Call: WRITE
  • Prompt: ((TOTBYTE+LTOTBYTE)*100)\((2036*TOTBLK)+(2048*LTOTBLK))_"%"
  • Line Location: EVL+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("TRAP" START+12, GLOCHK+19, B+7, C+3, C+7, ERRHND+3
^XTMP("KMPS" START+18*, DONE+2!, UC1+12*, B+12*, C+9, EV2+2*, EV2+4, EV3+1, ERROR+8*, ERROR+9!
, UC1VMS+10*, ALLGLO+9, ALLGLO+53*, ALLGLO+70*, ALLGLO+72*, ALLGLO+74*, ALLGLO+76*, ALLGLO+78*

Label References

Name Line Occurrences
$$BLK ALLGLO+64
$$EFF ALLGLO+64
$$NOCOMMA BLK+4
ALLGLO UC1VMS+14
B B+5
B1 D1
C RETURN+2
C1 C1+2
D1 NEXT
ERR UC1+9
ERROR UC1+9, UC1VMS+8, ALLGLO+80
ERRVMS UC1VMS+8
ERRVMS1 ALLGLO+67
EV1 UC1+13
EV2 EV3+2
EV3 EV3+6
EVL EV2+4, EV3+1
GLOCHK EV3+4
INTEG1 UC1+11
NEXT C1+13
UC1 UCI+6
UC1VMS UCI+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ST INTEG1+6~
%ST("GFOFFSET" INTEG1+13
%ST("gfdir" INTEG1+13
%ST("szdir" INTEG1+13
A UC1+3~, B+3*, B+5, INTEG1+6~, C1+1*, C1+2
BLK UC1+3~, C*, ALLGLO+64*, ALLGLO+70, ALLGLO+72, ALLGLO+74, ALLGLO+76, ALLGLO+78, BLK+2~, BLK+4*
, BLK+5
C INTEG1+6~, INTEG1+9*, C1+9*, C1+11
COLLATE ALLGLO+2~, ALLGLO+11*, ALLGLO+51
CUR UC1+3~, B+10*, C, RETURN+2*
DATASIZE ALLGLO+2~
DIRNAM START+8~, UCI+3*, UC1+7, ERR+1, ERR+2, ERRVMS+2, ERRVMS1+2
DIRSTAT UC1+3~, UC1+7*, UC1+9, ERR+1, ERR+2
EFF ALLGLO+64*, ALLGLO+70, ALLGLO+72, ALLGLO+74, ALLGLO+76, ALLGLO+78, EFF+2~, EFF+4*, EFF+5
END INTEG1+6~, B1+1*, NEXT
ERR UC1+3~
FBLK ALLGLO+2~, ALLGLO+11*, ALLGLO+51
G UC1+3~, GLOCHK+14*, GLOCHK+17, B+1, B+5*, INTEG1+6~, INTEG1+13*, C1+13*
GC EV1+1~, EV1+3*, EV2*, EV2+4, EV3
GD INTEG1+6~, INTEG1+13*, D1*
GLO GLOCHK+5, GLOCHK+8, GLOCHK+10, GLOCHK+14, B+12, EV1+1~, EV3*, EV3+1, EV3+2, ALLGLO+2~
, ALLGLO+6*, ALLGLO+9*, ALLGLO+53, ALLGLO+70, ALLGLO+72, ALLGLO+74, ALLGLO+76, ALLGLO+78, ERRVMS1+2
GLOARRAY UC1VMS+3~, UC1VMS+10
GLOARRAY( ALLGLO+9
GLOBAL UC1+3~, INTEG1+8!, C1+8*, C1+11
GLOBAL( EV2, EV3, INTEG1+9*, C1+9*, C1+11*
GLOBAL(1 UC1+12
GLOBIGBLKS ALLGLO+3~
GLOBIGBYTES ALLGLO+3~
GLOBIGSTRINGS ALLGLO+3~
GLOINFO GLOCHK+1~, GLOCHK+10*, B+12, ALLGLO+2~, ALLGLO+51*, ALLGLO+53
GLOPNTBLKS ALLGLO+2~
GLOPNTBYTES ALLGLO+3~
GLOTOTBLKS ALLGLO+2~
GLOTOTBYTES ALLGLO+2~
GRWBLK ALLGLO+3~, ALLGLO+11*, ALLGLO+51
GS EV1+1~, EV2*, EV3, EV3+5*
I ALLGLO+4~, ALLGLO+63*, ALLGLO+64
IN NOCOMMA~, NOCOMMA+2
INFO INTEG1+6~, C1+5*, C1+8, ALLGLO+4~, ALLGLO+64*, ALLGLO+67, ALLGLO+69, ALLGLO+71, ALLGLO+73, ALLGLO+75
, ALLGLO+77
J UC1+3~
JRNL GLOCHK+1~, GLOCHK+8*, GLOCHK+10, ALLGLO+4~, ALLGLO+11*, ALLGLO+51
KMPSDT START+8~, START+15*, B+12, ALLGLO+53, ALLGLO+70, ALLGLO+72, ALLGLO+74, ALLGLO+76, ALLGLO+78
KMPSERR START+8~, ERROR+3*
KMPSERR1 START+8~, ERR+1*, ERR+2*, ERRVMS+2*, ERRVMS1+2*
KMPSERR2 START+8~, ERROR+4*
KMPSERR3 START+8~, ERROR+5*
KMPSERR4 START+8~, ERROR+6*
KMPSLOC START+9~, START+14*
KMPSPROD START+9~, START+15*
KMPSSITE START+9~, START+14*, UC1+12, B+12, UC1VMS+10, ALLGLO+53, ALLGLO+70, ALLGLO+72, ALLGLO+74, ALLGLO+76
, ALLGLO+78
KMPSTEMP START~, START+14, START+15, START+16!
KMPSVOL START+9~, START+15*, START+17, START+18, UCI+3, DONE+2, UC1+12, EV2+2, ERROR+3, ERROR+8
, ERROR+9, UC1VMS+10
KMPSZU START+9~, START+17*, B+12, ALLGLO+53, ALLGLO+70, ALLGLO+72, ALLGLO+74, ALLGLO+76, ALLGLO+78
LEV UC1+3~, GLOCHK+14*, B+1, B+5*, RETURN+2, ALLGLO+4~, ALLGLO+62*, ALLGLO+72*, ALLGLO+74*
LEV( B+1*, C
LEV(1 B+12
LINK UC1+3~
LNB UC1+3~, RETURN+1
LNBLK UC1+3~, B+10*
LNBYTE UC1+3~, B+10*
LSNP UC1+3~, RETURN
LTOTBLK UC1+3~, RETURN*, EV1+3*
LTOTBYTE UC1+3~, RETURN+1*, EV1+3*
MSGLIST ALLGLO+4~, ALLGLO+59!, ALLGLO+63
MSGLIST( ALLGLO+64
N UC1+4~
NAM INTEG1+6~, B1+1*, C1+2*, C1+8, C1+13*
NB UC1+4~, RETURN+1
NBLK UC1+4~, B+10*
NBYTE UC1+4~, B+10*
NP UC1+4~, RETURN
NUM START+9~, START+14*, START+18, UC1+12, B+12, EV2+2, UC1VMS+10, ALLGLO+53, ALLGLO+70, ALLGLO+72
, ALLGLO+74, ALLGLO+76, ALLGLO+78
P INTEG1+6~, B1+1*, NEXT, C1+1*, C1+5, C1+13*
PROT GLOCHK+1~, GLOCHK+5*, GLOCHK+7, ALLGLO+4~
PROT( GLOCHK+7
PROT(0 GLOCHK+5*, ALLGLO+7*
PROT(1 GLOCHK+5*, ALLGLO+7*
PROT(2 GLOCHK+5*, ALLGLO+7*
PROT(3 GLOCHK+5*, ALLGLO+7*
PROTECT ALLGLO+4~, ALLGLO+11*
PROTINFO GLOCHK+1~, GLOCHK+7*, GLOCHK+10, ALLGLO+4~, ALLGLO+12*, ALLGLO+51
RC UC1VMS+3~, UC1VMS+6*, UC1VMS+8, ALLGLO+4~, ALLGLO+6*, ALLGLO+9, ALLGLO+57*, ALLGLO+62*, ALLGLO+67*, ALLGLO+80
, ERRVMS+2
RET UC1+4~, C*
STRNG BLK~, BLK+3, BLK+4, EFF~, EFF+3, EFF+4
TL UC1+4~
TOTBLK UC1+4~, GLOCHK+13*, RETURN*, EV1+3*
TOTBYTE UC1+4~, RETURN+1*, EV1+3*
TPTRBLK ALLGLO+4~, ALLGLO+11*, ALLGLO+51
TRY ALLGLO+4~
U START+14*, START+15, GLOCHK+5, GLOCHK+7, GLOCHK+8, GLOCHK+10, GLOCHK+14, B+12, C1+5, C1+8
, ALLGLO+51
VERSION START+9~, START+19*, UC1VMS+6, ALLGLO+57, ALLGLO+60
X START+9~, START+12*, GLOCHK+19*, B+7*, C+3*, C+7*, ERRHND+3*
ZV START+9~, UCI+5*, UCI+6, UCI+7
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All