ABME8PER ; IHS/ASDST/DMJ - 837 PER Segment
Source file <ABME8PER.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
10 | ;segment
|
|
20 | ;PER01 - Contact Function Code
|
|
30 | ;PER02 - Name
|
|
50 | ;PER04 - Communication Number
|
|
40 | ;PER03 - Communication Number Qualifier
|
|
60 | ;PER05 - Communication Number Qualifier
|
|
START | ;START HERE
|
|
70 | ;PER06 - Communication Number
|
|
90 | ;PER08 - Communication Number
|
|
80 | ;PER07 - Communication Number Qualifier
|
|
100 | ;PER09 - Contact Inquiry Reference
|
|
LOOP | ;LOOP HERE
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^ABMEXLM("AA" | LOOP+3 |
^AUTTLOC - [#9999999.06] | 50+1 |
Name | Line Occurrences |
---|---|
@( | LOOP+2, LOOP+3 |
LOOP | START+3 |
Name | Field # of Occurrence |
---|---|
^( | LOOP+3 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ABM | START+4! |
ABME | START+4! |
ABME("RTYPE" | START+2*, LOOP+3 |
>> ABMP("EXP" | LOOP+3 |
>> ABMP("INS" | LOOP+3 |
>> ABMR("PER" | START+1!, LOOP+5, 10+1*, 20+1*, 30+1*, 40+1*, 50+1*, 50+2*, 60+1*, 70+1* , 80+1*, 90+1*, 100+1* |
>> ABMREC("PER" | START+1!, LOOP+4*, LOOP+5* |
DUZ(2 | 50+1 |
>> I | LOOP+1*, LOOP+2, LOOP+3, LOOP+5 |