Ì i 2
main
[version,code]
&(D)DACM[dacV,dacm]
Field Name Len Dat Typ J DPM Offset/Local/VAL
version 10 FREE L ABS.APC.VERSIONdacV
code 2 PINT R dacm
active 1 YN L &(D)DACM[dacV,dacm]|0
last.user 10 FREE L MIS.USER &(D)DACM[dacV,dacm]USR
name 60 FREE L &(D)DACM[dacV,dacm]|1
name.50 50 FREE L VAL=(@ABS.APC.MDC.name$50)
source 1 CHOICE L &(D)DACM[dacV,dacm]|2
Index Files Subscripts/Physical Base
name.index [version,name,code]
&(D)DACMA[dacV,dacmN,dacm]
|
|