%ZOSVKSS ;OAK/KAK - Automatic INTEGRIT Routine (cont.) (Cache) ;5/9/07 10:44
Source file <ZOSVKSOS.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
RESTART | ;-- called by routine C+6^%ZOSVKSE
; |
|
CHK | ||
CHKB | ||
END | ||
ERR | ;-- code from routine CHECK0
|
|
ERROR | ||
CM(X) | ||
MB | ||
CHECK1 | ;-- code from routine CHECK1
|
|
CH | ||
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
|
|
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
|
|
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
|
|
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
|
|
ER10 | ; error: node I+1\2 in block BLK points to itself - the node is: SUB(I)
|
|
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
|
|
ER15 | ; error: map block D does not have a correct map label - the pointer block was BLK
|
|
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 |
|
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
|
|
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 |
|
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 |
|
MISC | ; misc error
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|