RMPR110P ;VMP/RB - LOCATE/FIX/REPORT POINTER PROBLEMS 665.72 TO 660 ;05/02/06
Source file <RMPR110P.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| A1 | ||
| A1A | ||
| A2 | ||
| A3 | ||
| A4 | ||
| B10 | ;GRAB ALL ERROR 665.72 POINTER RELATIONS AND DETERMINE CORRECT POINTER
|
|
| B11 | ||
| B11B | ||
| B12 | ||
| B13 | ||
| B14 | ||
| C15 | ||
| C16 | ||
| C17 | ||
| C18 | ||
| C19 | ||
| C30 | ||
| C31 | ||
| C32 | ||
| ;
|
||
| PRINT2 | ; Update the ^TMP("RMPRFIX" MAIL REPORT
|
|
| P1 | ||
| P1A | ||
| P2 | ||
| P3 | ||
| P5 | ||
| P6 | ||
| PRINT3 | ||
| EXIT | ||
| ;Send results of cleanup in a mail message to initiator
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD("DD" | PRINT+1 |
| ^RMPO(665.72 - [#665.72] | A1, A1A, A2, A3, A4, A4+1, A4+6, B14, B14+1, C31 , C32, C32+1 |
| ^RMPR(660 - [#660] | A4+2, B10+1, B14+3, C17+4, C18, C19+4, C30, C32+3 |
| ^TMP("RMPRFIX" | RMPR110P+6!, PRINT2+3*, PRINT2+4*, PRINT2+5*, PRINT2+6*, P6+3*, PRINT3+1*, PRINT3+2*, PRINT3+4*, PRINT3+5* , PRINT3+7*, PRINT3+8*, EXIT+2!, MAIL+16, MAIL+17 |
| ^TMP("RMPRTXT" | EXIT+2!, MAIL+6!, MAIL+9*, MAIL+10*, MAIL+11*, MAIL+12*, MAIL+13*, MAIL+14*, MAIL+17* |
| ^TMP($J | RMPR110P+6!, A4+2*, A4+5*, A4+6*, B11, B11B, B12, B13*, B14+3*, C16 , C17, C17+1, C19+1*, C19+2*, C19+3*, C19+4*, C19+9*, C32, P1, P1A , P2, P3, P6, P6+1, P6+2, EXIT+2! |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | PRINT+1, EXIT+1! |
| ANS | EXIT! |
| B0 | C17+1*, C17+2, C17+3, C19+1, C19+2, C19+3, C19+9, C30, C32+5, P6+2* , P6+3, EXIT! |
| B1 | C17+1*, C18+3, C18+4, C18+5, C18+6, EXIT! |
| BAD660 | C16*, C17*, C17+1, C19+1, C19+2, C19+3, C19+9, P6*, P6+1*, P6+2 , P6+3, EXIT+1! |
| BADITEM | C15*, P5*, EXIT! |
| CHK | B10+1*, EXIT! |
| CNT110 | PRINT2+7*, P6+3*, PRINT3+1*, PRINT3+2*, PRINT3+4*, PRINT3+5*, PRINT3+7*, PRINT3+8*, MAIL+1~, MAIL+16* , MAIL+17 |
| DA | C19+6!, C19+8*, EXIT+1! |
| DA(1 | C19+6*, C19+7 |
| DA(2 | C19+6*, C19+7 |
| DA(3 | C19+6*, C19+7 |
| DA(4 | C19+6*, C19+7 |
| DFN | A2*, A3*, A4, A4+1, A4+2, A4+3, A4+5, A4+6, A4+7, B12* , B13*, B14, B14+1, B14+3, C16, C17, C17+1, C17+5, C18+1, C19+1 , C19+2, C19+3, C19+4, C19+6, C19+9, C30, C31, C32+3, C32+4, P2* , P3*, P6, P6+1, P6+2, P6+3, EXIT! |
| DIE | C19+6!, C19+7*, C19+8*, EXIT+1! |
| DIFROM | MAIL+1~ |
| DIR | EXIT+1! |
| DR | C19+6!, C19+8*, EXIT+1! |
| DTOUT | EXIT! |
| DUZ | MAIL+4 |
| ER | B13! |
| ER( | B14+3* |
| ERRTOT | RMPR110P+6*, A4+4*, PRINT3+2, EXIT!, MAIL+13 |
| F660 | C30*, C32+5*, C32+6*, C32+7, EXIT+1! |
| FIND660 | C17+3*, C17+4, C17+5*, C18*, C18+7*, C18+8, C19, C19+1, C19+2, C19+3 , C19+4, C19+9, C30*, C32+3*, C32+4, C32+7*, EXIT! |
| I | C18*, C18+7, C32+3*, PRINT3+4*, PRINT3+7*, MAIL+1~, MAIL+8*, MAIL+9*, MAIL+10*, MAIL+11* , MAIL+12*, MAIL+13*, MAIL+14*, MAIL+17* |
| IOSL | PRINT2+9* |
| IOST | PRINT2+9 |
| IT | A3!*, A4+5, A4+7*, EXIT! |
| ITEM | A3*, A4*, A4+1, A4+2, A4+5, A4+6, B13*, B14*, B14+1, B14+3 , P3*, EXIT! |
| LK1 | C17+2*, C18, C32+7*, EXIT! |
| LK2 | C17+2*, C18, C32+7*, EXIT! |
| MON | A1*, A1A*, A2, A3, A4, A4+1, A4+2, A4+5, A4+6, B11* , B11B*, B12, B13, B14, B14+1, B14+3, C16, C17, C17+1, C19+1 , C19+2, C19+3, C19+4, C19+6, C19+9, C31, C32, C32+1, P1*, P1A* , P2, P3, P6, P6+1, P6+2, P6+3, EXIT! |
| PG | PRINT2+8~, PRINT2+9*, PRINT3+3*, PRINT3+6*, EXIT+1! |
| R | B14+1*, EXIT+1! |
| R6 | A4+2*, A4+3, A4+5, A4+7, EXIT! |
| R660 | A4+1*, A4+2, A4+5, A4+6, A4+7, B14+1*, B14+2, B14+3, EXIT! |
| REC660 | C17+4*, C17+5, C18*, C18+1, C18+2, C18+3, C18+4, C18+5, C18+6, C19+1 , C19+2, C30*, C32+2*, C32+3*, C32+4, EXIT+1! |
| RECTOT | RMPR110P+6*, EXIT! |
| RMEND | PRINT2+8~, EXIT+1! |
| RMRDATE | PRINT+1*, PRINT2+3, EXIT+1! |
| RR | A4+1*, A4+2, EXIT! |
| RSH | B13*, C17+2*, C18+8, C32+7*, EXIT! |
| RTYP | PRINT2+8*, P1, P1A, P2, P3, P6, P6+1, P6+2, PRINT3, PRINT3+3* , PRINT3+6*, EXIT+1! |
| SITE | RMPR110P+6*, A1*, A1A, A2, A3, A4, A4+1, A4+2, A4+5, A4+6 , B10+1*, B11*, B11B, B12, B13, B14, B14+1, B14+3, C16, C17 , C17+1, C19+1, C19+2, C19+3, C19+4, C19+6, C19+9, C31, C32, C32+1 , PRINT2+9*, P1*, P1A, P2, P3, P6, P6+1, P6+2, P6+3, PRINT3+3* , PRINT3+6*, EXIT! |
| SP | PRINT2+2*, PRINT2+3, PRINT2+4, PRINT2+5, EXIT+1! |
| U | A4+1, A4+3, A4+5, A4+7, B10+1*, B14+1, C17+2, C17+3, C17+5, C18+1 , C18+2, C18+3, C18+4, C18+5, C18+6, C19+2, C19+3, C30, C32+1, C32+3 , C32+4, C32+5, PRINT2+9*, P6+3 |
| VEND | A1A*, A2*, A3, A4, A4+1, A4+2, A4+5, A4+6, B11*, B11B* , B12*, B13, B14, B14+1, B14+3, C16, C17, C17+1, C18+2, C19+1 , C19+2, C19+3, C19+4, C19+6, C19+9, C31, C32, C32+1, P1A*, P2* , P3, P6, P6+1, P6+2, P6+3, EXIT! |
| X660 | C30*, C32+1*, C32+3, C32+6, EXIT+1! |
| XITEM | C15*, C16*, C17, C17+1, C19+1, C19+2, C19+3, C19+4, C19+8, C19+9 , P5*, P6*, P6+1, P6+2, P6+3, EXIT! |
| XMDUZ | MAIL+1~, MAIL+3* |
| XMSUB | MAIL+1~, MAIL+2* |
| XMTEXT | MAIL+1~, MAIL+5* |
| XMY | MAIL+1~ |
| XMY( | MAIL+4* |
| XX | C30*, C31*, C32*, C32+1, EXIT+1! |
| Y | PRINT+1*, EXIT+1! |
| YY | C30*, C31*, C32+1*, EXIT+1! |
