Ì i 2
abs.apg.apc (main)
[version,code]
*DRR[djc,drr]
Field Name Len Dat Typ J DPM Offset/Local/VAL
version 10 FREE L ABS.VERSION djc
code 2 PINT R drr
active 1 YN L *DRR[djc,drr]|0
id 2 PINT R
last.update 50 FREE L *DRR[djc,drr]UPD
last.user 10 FREE L MIS.USER *DRR[djc,drr]USR
name 60 FREE L *DRR[djc,drr]|1
name.50 50 FREE L VAL=(@ABS.APC.name$50)
source 1 CHOICE L *DRR[djc,drr]|2
Ì 2
INDEX FILE/INTERNAL NAME SUBSCRIPTS/PHYSICAL BASE
abs.apc.name.index [version,name,code] = !
name.index *DRRA[djc,drrN,drr]
|
|