DITMGM2C ;SFISC/EDE(OHPRD)TKW-CONTINUATION OF DITMGM2 ;10/7/98 10:38
Source file <DITMGM2C.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
ENTRY | ; PROCESS ONE FILE/SUBFILE ENTRY
|
|
DINUM | ; DINUM FILE
; Move the 'from' entry to it's new IEN location. Do a merge ; if there is already a record at that location. |
|
ENTRYM | ; PROCESS ONE SUBFILE ENTRY
|
|
ENTRYS | ;
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DD( | ENTRY+9, ENTRY+11 |
Name | Line Occurrences |
---|---|
DINUM | ENTRY+3 |
ENTRYM | ENTRY+15 |
ENTRYS | ENTRY+16 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
D0 | ENTRYS+2*, ENTRYS+3! |
DA | ENTRYS+2*, ENTRYS+3!, ENTRYM+1*, ENTRYM+3!, DINUM+10, DINUM+14~, DINUM+18~ |
DIDA | DINUM+4~, DINUM+10*, DINUM+16~, DINUM+20~ |
DIDA("F" | DINUM+10*, DINUM+11, DINUM+18, DINUM+19 |
DIDA("T" | DINUM+10*, DINUM+11, DINUM+14, DINUM+15 |
DIE | ENTRYS+2*, ENTRYS+3!, ENTRYM+1*, ENTRYM+3! |
>> DIERR | DINUM+14, DINUM+15, DINUM+18, DINUM+19 |
DIK | DINUM+4~, DINUM+15!*, DINUM+19!* |
DITC | ENTRYS+2*, ENTRYS+3!, ENTRYM+1*, ENTRYM+3! |
DITMFROM | DINUM+4~*, DINUM+5*, DINUM+6, DINUM+7, DINUM+8*, DINUM+12* |
>> DITMGM("DITMGMT" | ENTRY+6*, ENTRY+17! |
>> DITMGM2("NOTALK" | ENTRY+2 |
>> DITMGMDI | ENTRY+3 |
>> DITMGMEC | ENTRYS+4*, ENTRYM+5* |
>> DITMGMF | ENTRYS+4, ENTRYM+5, DINUM+5, DINUM+10, DINUM+12 |
>> DITMGMFD | ENTRY+7, ENTRY+9, ENTRY+11, ENTRYS+2, ENTRYS+4, ENTRYM+1, ENTRYM+5 |
>> DITMGMFL | ENTRY+9, ENTRY+11, ENTRYS+4, ENTRYM+5, DINUM+11, DINUM+15, DINUM+19 |
>> DITMGMG | ENTRYS+2, DINUM+4 |
>> DITMGMGM | ENTRYM+1, DINUM+4 |
>> DITMGMMU | ENTRY+15, DINUM+4, DINUM+10 |
>> DITMGMN | ENTRYS+2, ENTRYS+4, ENTRYM+1, ENTRYM+5 |
>> DITMGMRG("ERROR" | ENTRYS+4*, ENTRYM+5* |
>> DITMGMT | ENTRY+6, ENTRY+7*, ENTRY+8*, ENTRY+17*, ENTRYS+2, ENTRYS+4, ENTRYM+1, ENTRYM+5, DINUM+5, DINUM+6 , DINUM+7, DINUM+8, DINUM+10 |
>> DITMGMV | ENTRY+7 |
DR | ENTRYS+2*, ENTRYS+3!, ENTRYM+1*, ENTRYM+3! |
U | ENTRY+8, ENTRY+11, ENTRYS+4, ENTRYM+5, DINUM+5, DINUM+8, DINUM+12 |
>> X | ENTRY+8*, ENTRY+9*, ENTRY+10, ENTRY+11* |
>> Y | ENTRYS+4, ENTRYM+5 |