MAGGTUX2 ;WIOFO/GEK Imaging utility to validate INDEX values.
Source file <MAGGTUX2.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| INIT | ; If this is a continuation, initialize the variables.
|
|
| TRK2 | ; Keep a Count of Short Desc, transpose to compact the list.
|
|
| CHKCR(N40,IEN) | ; Image has Procedure/Event CR, see if it should be CT.
|
|
| CHK45(N40,IEN) | ; Check the Origin Set of Codes.
; N40 passed by Ref, it may be changed in here. |
|
| VALIND | ;Validate the interdependency between Type, Spec, Proc/Event for Entries that have a TYpe.
|
|
| VALMERG(O40,N40) | ; N40 Passed by Ref.
; if the merged Proc-Spec in New 40 Node (N40) are not valid, ; Then just take the TYPE, and revert back to old O40 Spec and Proc |
| 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 |
|
| Function Call: WRITE |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^MAG(2005 - [#2005] | INIT+2, CHKCR+7*, CHK45+10* |
| ^MAGIXCVT(2006.96 - [#2006.96] | VALIND+3 |
| ^XTMP( | INIT+2, INIT+4, INIT+6, INIT+14, INIT+15, INIT+16, INIT+17, INIT+18, INIT+19, INIT+20 , INIT+21, INIT+22, INIT+23, INIT+24, INIT+25, TRK2+7*, VALIND+3*, VALIND+4* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> COMMIT | CHKCR+5, CHK45+8 |
| >> CRCT | INIT+25*, CHKCR+4* |
| DUZ | CHKCR+8, CHK45+11 |
| >> FIX | INIT+24*, CHKCR+6*, CHK45+9* |
| >> GO1 | INIT+18* |
| >> GRINI | INIT+17* |
| >> GRINT | INIT+16* |
| IEN | INIT+4*, INIT+5*, INIT+11, INIT+12*, INIT+13, CHKCR~, CHKCR+2, CHKCR+7, CHKCR+8, CHK45~ , CHK45+10, CHK45+11, VALIND+3 |
| INDXD | CHKCR+1~, CHKCR+2, CHKCR+3 |
| >> INVG | INIT+20*, VALIND+3* |
| >> INVO | INIT+21*, VALIND+4* |
| >> IXP | TRK2+7, VALIND+1, VALIND+3, VALIND+4 |
| >> IXS | TRK2+7, VALIND+1, VALIND+3, VALIND+4 |
| >> IXT | TRK2+7, VALIND+1, VALIND+3, VALIND+4 |
| >> MAGN | INIT+2, INIT+4, INIT+6, INIT+14, INIT+15, INIT+16, INIT+17, INIT+18, INIT+19, INIT+20 , INIT+21, INIT+22, INIT+23, INIT+24, INIT+25, TRK2+7, VALIND+3, VALIND+4 |
| >> MDFN | CHKCR+8, CHK45+11 |
| MRY | VALIND+1!, VALMERG+3!, VALMERG+4 |
| >> N2 | TRK2+1 |
| N40 | CHKCR~, CHK45~, CHK45+3, CHK45+6*, CHK45+10, VALMERG~, VALMERG+4, VALMERG+6* |
| >> NI | INIT+15* |
| >> NOMERG | INIT+22*, VALMERG+5* |
| NORG | CHK45+2~ |
| >> NT | INIT+14* |
| O40 | VALMERG~, VALMERG+6 |
| >> OFX | INIT+19*, CHK45+7* |
| >> OKMERG | INIT+23*, VALMERG+4* |
| ORG | CHK45+2~, CHK45+3*, CHK45+4, CHK45+6 |
| >> RADCT | CHKCR+3, CHKCR+7 |
| >> SD | TRK2+1*, TRK2+2*, TRK2+3*, TRK2+4*, TRK2+5*, TRK2+6*, TRK2+7 |
| >> X | INIT+11*, INIT+12 |