Ì i 2
mm.eqp.contract (main)
[vendor,contr.no]
:MUC[gr,muc]
Field Name Len Dat Typ J DPM Offset/Local/VAL
vendor 11 FREE L MIS.VEN gr
contr.no 10 FREE L muc
active 1 YN L :MUC[gr,muc]|0
dept 15 FREE L MIS.GL.DEPT :MUC[gr,muc]|7
desc 30 FREE L :MUC[gr,muc]|1
eff 8 DATE L :MUC[gr,muc]|3
exp 8 DATE L :MUC[gr,muc]|4
last.update 10 FREE L :MUC[gr,muc]UPD
lead.time 11 EDATE L :MUC[gr,muc]|5
maint.grp.ok 1 YN L VAL=IF{@MM.EQP.CONTR.maint.grp.rstr^XX_.=. "Y";%MM.EQP
VAL=.MAINT.user.ok(XX) "Y";"N"}
maint.grp.rstr 10 FREE L MM.EQP.MAINT :MUC[gr,muc]|8
po.no 10 FREE L :MUC[gr,muc]|2
review 8 DATE L :MUC[gr,muc]|6
Ì € i 2
mm.eqp.contract.comments (comments)
[vendor,contr.no, line.no]
:MUC[gr,muc,mucC]
Field Name Len Dat Typ J DPM Offset/Local/VAL
line.no 2 PINT R mucC
comment.line 74 FREE L :MUC[gr,muc,mucC]
Ì 2
INDEX FILE/INTERNAL NAME SUBSCRIPTS/PHYSICAL BASE
mm.eqp.contract.review.index [review,vendor,contr.no]
review.x :MUCI[mucR,gr,muc]
|
|
|