Routine: ZOSVKSOS

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)\((2036NBLK)+(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: (NB100\(2036NP))_"%" 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: (LNB100\(2048LSNP))_"%" 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

Customize PDF page

Package: Kernel

Routine: ZOSVKSOS Platform: Cache

Information

Source Information

Entry Points

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: