RMPR150P ;VM/RB - FIX PROBLEM FILE #660 ISSUES WITH NEGATIVE AMIS GROUPER COUNTER ;03/27/08
Source file <RMPR150P.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| FIXAMIS | ; Post install to correct negative AMIS GROUPER pointers/links caused by
; field GROUPER COUNTER in File #669.9 being set to zero and ; allowing negative pointers to be created. |
|
| BUILD | ||
| 0 | ;FIND 660 RECORDS WITH NEGATIVE 'AMS' POINTERS
|
|
| 1 | ||
| 2 | ||
| 3 | ||
| 5 | ||
| 6 | ||
| 10 | ||
| 11 | ||
| 12 | ||
| 19 | ||
| 90 | ;correct any sites with NULL/negative AMIS GROUPER number and change to 99999999.
|
|
| 91 | ||
| 92 | ||
| EXIT | ;
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DPT - [#2] | 6 |
| ^RMPR(660 - [#660] | 1, 1+1, 2, 3, 3+1, 6+6* |
| ^RMPR(668 - [#668] | 3+3, 10, 11, 12, 12+1!, 12+2* |
| ^RMPR(669.9 - [#669.9] | 5, 5+2, 92, 92+1, 92+2*, EXIT+3* |
| ^TMP($J | 0+1!, 5+5, 6+1*, EXIT+10! |
| ^XTMP("RMPR150P" | BUILD!, BUILD+1*, BUILD+2*, BUILD+3*, 5*, 6+3*, 6+4*, 12+3*, 92+3*, EXIT+1* , EXIT+6*, EXIT+7* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | BUILD, EXIT+5, EXIT+9! |
| AMS | 1+1*, 2*, 6+4, 12+3, EXIT+8! |
| AMSG | 5+2*, 5+3*, 5+4, 5+5*, 5+6*, 6+1, 6+4, 6+6, 12+2, 12+3 , EXIT+8! |
| DFN | 1+1*, 1+2, 6, EXIT+8! |
| I | EXIT+2*, EXIT+9! |
| IEN | 0+1*, 1*, 1+1, 2, 3, 3+1, 3+3, 6+3, 6+4, 6+6 , 10, 11, 12, 12+1, 12+3, 91*, 92*, 92+1, 92+2, 92+3 , EXIT+8! |
| LIEN | 1+1!, 3+1*, 3+2, 5+5, 6+1, 6+4, EXIT+9! |
| PNAME | 6*, EXIT+8! |
| R | 1+1*, 6+3, 92+1*, 92+3, EXIT+8! |
| R669 | 5+2*, EXIT+8! |
| RLB | 3+1*, EXIT+9! |
| RMEND | EXIT+5*, EXIT+7, EXIT+8! |
| RMSTART | BUILD*, BUILD+1, BUILD+3, EXIT+8! |
| RSTN | 1+1*, 1+3, 5, EXIT+9! |
| S10 | 6+8*, 11*, 12, 12+1, 12+2, 12+3, EXIT+8! |
| SIEN | 6+8*, 10*, 11, 12+1, 12+2, 12+3, EXIT+8! |
| STN | 5*, 5+1, 5+2, 5+4, 5+6, 6+5, EXIT+9! |
| TOT | 0+1*, 6+2*, EXIT+8! |
| U | 0+1*, 1+1, 3+1, 5+2, 5+6, 6, 6+4, 6+5, 12+3, 92+1 , 92+2, EXIT+3 |
| X | EXIT+2*, EXIT+3, EXIT+8! |
| XAMS | 12*, 12+1, EXIT+9! |
| XSTN | BUILD!, EXIT+1, EXIT+6, EXIT+9! |
| XSTN( | 5+1, 5+4*, 5+6*, 6+5*, EXIT+2, EXIT+3 |
| XSTN(0 | EXIT+1, EXIT+6 |