Ì i 2
main
[mnemonic]
&(D)DFA[dfa]
Field Name Len Dat Typ J DPM Offset/Local/VAL
mnemonic 8 FREE L dfa
active 1 YN L &(D)DFA[dfa]|0
confidential.data 1 YN L &(D)DFA[dfa]CF
eff.from.date 8 DATE L &(D)DFA[dfa]|4
eff.thru.date 8 DATE L &(D)DFA[dfa]|5
group 3 FREE L ABS.CPT.GROUP &(D)DFA[dfa]|2
invalid.proc 1 YN L &(D)DFA[dfa]|3
name 60 FREE L &(D)DFA[dfa]|1
name.50 50 FREE L VAL=(@ABS.CPT.name$50)
sort.id 60 FREE L
Ì € i 2
fin.classes
[mnemonic, fin.class]
&(D)DFA[dfa]F[ggk]
Field Name Len Dat Typ J DPM Offset/Local/VAL
fin.class 10 FREE L MIS.FIN.CLASS ggk
Ì € i 2
eff.dates
[mnemonic,fin.class, eff.date]
&(D)DFA[dfa]F[ggk]EF[dfaED]
Field Name Len Dat Typ J DPM Offset/Local/VAL
eff.date 8 DATE L dfaED
fin.class.group 3 FREE L ABS.CPT.GROUP &(D)DFA[dfa]F[ggk]EF[dfaED]|0
Ì € i 2
long.desc
[mnemonic, descr.line.no]
&(D)DFA[dfa]D[dcrLN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
descr.line.no 1 PINT R dcrLN
descr.long 73 TEXT L &(D)DFA[dfa]D[dcrLN]
Ì € i 2
screen.edits
[mnemonic, screen.edit]
&(D)DFA[dfa]SE[dje]
Field Name Len Dat Typ J DPM Offset/Local/VAL
screen.edit 10 FREE L ABS.SCRN.EDIT dje
screen.edit.check 10 FREE L &(D)DFA[dfa]SE[dje]|0
Index Files Subscripts/Physical Base
confid.x [mnemonic]
&(D)DFAC[dfa]
date.x [eff.from.date]
&(D)DFAD[dfaD]
fin.class.x [fin.class,eff.date]
&(D)DFAFC[ggk,dfaED]
|
|
| | | |