Ì i 2
main
[version,code]
*(DRG)DRD[djc,drd]
Field Name Len Dat Typ J DPM Offset/Local/VAL
version 10 FREE L ABS.VERSION djc
code 2 FREE L drd
active 1 YN L *(DRG)DRD[djc,drd]|0
last.user 10 FREE L MIS.USER *(DRG)DRD[djc,drd]USR
name 70 FREE L *(DRG)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 *(DRG)DRD[djc,drd]|2
valid.mdc 10 FREE L VAL=IF{@main!(code=0) "YES";"NO"}
Index Files Subscripts/Physical Base
name.index [version,name,code]
*(DRG)DRDA[djc,drdN,drd]
|
|