Ì i 2
abs.mdc (main)
[version,code]
*DRD[djc,drd]
Field Name Len Dat Typ J DPM Offset/Local/VAL
version 10 FREE L ABS.VERSION djc
code 3 FREE L drd
active 1 YN L *DRD[djc,drd]|0
id 3 FREE L
last.update 50 FREE L *DRD[djc,drd]UPD
last.user 10 FREE L MIS.USER *DRD[djc,drd]USR
name 70 FREE L *DRD[djc,drd]|1
name.50 50 FREE L VAL=(@ABS.MDC.name$50)
name.60 60 FREE L VAL=(@ABS.MDC.name$60)
name.real 70 FREE L VAL=@name'$IF{code="**" 0;code<14&(code'=10) 28;cod
VAL=e=16 24;0}
source 1 CHOICE L *DRD[djc,drd]|2
valid.mdc 10 FREE L VAL=IF{@main!(code=0) "YES";"NO"}
Ì 2
INDEX FILE/INTERNAL NAME SUBSCRIPTS/PHYSICAL BASE
abs.mdc.name.index [version,name,code]
name.index *DRDA[djc,drdN,drd]
|
|