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

Package: Kernel

Routine: ZOSVKSOS Platform: Cache


Information

%ZOSVKSS ;OAK/KAK - Automatic INTEGRIT Routine (cont.) (Cache) ;5/9/07 10:44

Source Information

Source file <ZOSVKSOS.m>

Entry Points

Name Comments DBIA/ICR reference
ER16 ; block D, which is pointed to by pointer block BLK has a block type of $V(2043,0,1) whereas a block type of 8 was expected since the pointer block say big data nodes are not present
; checking of this global will continue if $V(2043,0,1)=12
ER17 ; block D, which is pointed to by pointer block BLK has a block type of $V(2043,0,1),whereas a block type of 12 was expected since the pointer block says big data nodes are present
; checking of this global will continue if $V(2043,0,1)=8
ER15 ; error: map block D does not have a correct map label - the pointer block was BLK
ER12 ; error: block D, which is pointed to by pointer block BLK has a block type of $V(2043,0,1) whereas a block type of TL was expected
ERR ;-- code from routine CHECK0
ER18 ; node J+1\2 in big data block C(I), which is pointed to by block BLK says number of data blocks is N, but length of node is $L(X) rather than L
; this big string node will not be checked - checking of this global will continue
ER19 ; node J+1\2 in big data block C(I), which is pointed to by block BLK says it has R bytes in last block, which is illegal - checking of this global will continue
CHKB
CHECK1 ;-- code from routine CHECK1
ER10 ; error: node I+1\2 in block BLK points to itself - the node is: SUB(I)
ERDK ; if D-BL error in lower block D - pointer block is BLK
; else error in pointer block D - last node in prev pntr block was LNP
CH
END
CHK
MISC ; misc error
ERROR
ER20 ; node J+1\2 in big data block C(I), which is pointed to by block BLK has data block BL which is also used as data block $P(B(BL-B,B),",",3) in node $P(B(BL-B,B),",",2)+1\2 of block $P(B(BL-B,B),",",1)
; checking of this global will continue
ER5 ; block B+D, which is pointed to by block BLK appears to be available in map block D - checking of this global will continue
ER6 ; error: pointer block BLK should have had a right link
; V BLK F I=1:2 Q:$V(I,-6)=""
; according to the lower level block $V(I-1,-5), which had a link to block $P(A,",",3)#16777216
ER7 ; error: the 1st byte of block D should have been zero - the pointer block was BLK
ER1 ; error: the first node in block D is $V(1,-5) and it should collate after the previous block's last node, which was LNP
MB
ER3 ; error: pointer block BLK has a first pointer of C(1) [ The node is SUB(1) ] but the link from the previous lower level block is $P(A,",",3)#16777216
ER8 ; error: the lower block's first node didn't match the pointer node - node E+1\2 in pointer block BLK was: SUB(E) - the 1st node in the lower level block D was: $V(1,-5)
ER9 ; error: the link in block D is LL although the pointer block BLK specifies that C(E+2) should be the next block
CM(X)
RESTART ;-- called by routine C+6^%ZOSVKSE
;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: "# ptrs = "_NP
  • Line Location: END+2
Function Call: WRITE
  • Prompt: ", # blks = "_(NBLK+LNBLK)_", # ptrs/blk = "_(NP\(NBLK+LNBLK))
  • Line Location: END+7
Function Call: WRITE
  • Prompt: ", eff = "_(((NBYTE+LNBYTE)*100)\((2036*NBLK)+(2048*LNBLK)))_"%"
  • Line Location: END+8
Function Call: WRITE
  • Prompt: "Routine level: # rtns = "_NP
  • Line Location: END+13
Function Call: WRITE
  • Prompt: "Data level: # blks = "_NP_", eff = "
  • Line Location: END+17
Function Call: WRITE
  • Prompt: (NB*100\(2036*NP))_"%"
  • Condition for execution: NP
  • Line Location: END+17
Function Call: WRITE
  • Prompt: "Long String level: # blks = "_LSNP_",eff = "
  • Line Location: END+19
Function Call: WRITE
  • Prompt: (LNB*100\(2048*LSNP))_"%"
  • Condition for execution: LSNP
  • Line Location: END+19

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("TRAP" RESTART+9, RESTART+16, END, ERR+9, ERR+29
^XTMP("KMPS" CHK, END+5*, END+9*, END+18*, END+20*

Label References

Name Line Occurrences
CH CHECK1+7
CHECK1 ERR+12
CHK CHKB
CHKB ERR+31
CM ERR+17, ERR+22
ER1 CH+10
ER10 CHECK1+5
ER12 CH+5
ER15 CM+1
ER16 CH+3
ER17 CH+4
ER18 MB+4
ER19 MB+5
ER20 MB+6
ER3 CHECK1+6
ER5 CM+1
ER6 CHKB+3
ER7 CH
ER8 CH+7
ER9 CH+9
ERDK ERROR
MB ERR+21
MISC ERROR+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A RESTART+12*, RESTART+14*, CHK+4*, CHK+5, CHK+6, CHKB+3, END+10, ERR+7, ERR+26*, MB~
, MB+4*, MB+6*, CHECK1+6
B RESTART+5~, CHK+9*, CHK+10*, ERR+15!, ERR+16*, ERR+20!, ERR+25!, CM+1*, MB+6*, ER5+2
B( ERR+16*, CM+1, MB+6*
BL MB~, MB+6*
>> BLK CHKB*, ERR+7, CHECK1+5
C RESTART+4!, ERR+16, ERR+21, ERR+26, ERR+27!, CHECK1+2*, CHECK1+3, CHECK1+7, CH+9
C( ERR+16, ERR+21, MB+6, CHECK1+4*, CHECK1+5, CHECK1+7, CH+3, CH+4, CH+9
C(1 CHECK1+6
>> CUR END+5, END+9
D RESTART+5~, ERR+7*, CM*, CM+1*, CHECK1+7*, CHECK1+8*
E RESTART+5~, CHECK1+7*, CH+3, CH+4, CH+7, CH+9
>> ERR RESTART+7*, ERR+2*, ERR+5*, ERR+13, ERR+18, ERR+23, CM+1, CHECK1+7, ER1+1*, ER3+1*
, ER6+3*, ER7+1*, ER8+1*, ER9+1*, ER10+1*, ER12+1*, ER15+1*, ER16+4*, ER17+4*, ERDK+2*
, MISC+1*
FLAG RESTART+5~, RESTART+7*, CHK+9*
>> GLO END+5, END+9, END+18, END+20
>> I ERR+16*, ERR+21*, CM+1*, MB+6, CHECK1+3*, CHECK1+4, CHECK1+5
J CM+1*, MB~, MB+3*, MB+6
K MB~, MB+6*
>> KMPSDT END+5, END+9, END+18, END+20
>> KMPSERR ER16+4*, ER17+4*, ERDK+2*, MISC+1*
>> KMPSERR4 ER1+1*, ER3+1*, ER5+1*, ER6+3*, ER7+1*, ER8+1*, ER9+1*, ER10+1*, ER12+1*, ER15+1*
>> KMPSSITE END+5, END+9, END+18, END+20
>> KMPSZU END+5, END+9, END+18, END+20
L MB~, MB+4*
LE RESTART+5~, ERR+2*, ERR+26, CH+6*
>> LEV END+9
>> LINK CHK+3*, CHKB, CHECK1+8
LL RESTART+5~, ERR+2*, ERR+26, CHECK1+8*, CH+9*
LN RESTART+5~, ERR+7*, ERR+26, CH+10, CH+11*
>> LNB RESTART+7*, CHK+10*, END+20, END+21
>> LNBLK END+3*, END+6, END+9, END+21*
>> LNBYTE END+9, END+21*
LNP RESTART+5~, CH+11*
>> LSNP RESTART+7*, CHK+10*, END+20, END+21
>> N CHK+10*, MB+4*, MB+6
>> NB RESTART+7*, CHK+6*, END+18, END+21, ERR+26*
>> NBLK END+6, END+9, END+21*
>> NBYTE END+9, END+21*
>> NP RESTART+7*, CHK+6*, END+18, END+21, ERR+26*
>> NUM END+5, END+9, END+18, END+20
R MB~, MB+5*
SUB RESTART+4!
SUB( CHECK1+2*, CH+7
>> TL CHK+5*, CHK+9, END+10*, END+16, ERR+7*, ERR+26, CHECK1+8, CH+2, CH+5, CH+8
TL1 RESTART+5~, CH+1*, CH+3, CH+4
X RESTART+9*, RESTART+16*, CHK+10*, END*, ERR+9*, ERR+29*, CM~, CM+1, MB~, MB+3*
, MB+4, MB+5, MB+6
Info |  Source |  Entry Points |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All