%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 |
|
