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