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 |