sHelp
                                     MM.EQP
     i   2
   mm.eqp.locals
   mm.equipment
     mm.equipment.comments
     mm.equipment.contracts
     mm.eqp.contr.ee
     mm.eqp.customer.def.querie
       mm.eqp.cust.def.mult.queries
     mm.eqp.cust.defined.screens
     mm.eqp.pm
     mm.eqp.usage.by.date
     mm.equipment.warranties

 Ì     i   2
mm.eqp.locals    (locals) 


 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 component                   30 FREE     L                                                                             
 key                         30 FREE     L                                                                             
 key.urn                     10 FREE     L  MM.EQP                                                                 
 key.value                   30 FREE     L                                                                             
 Ì     i   2
mm.equipment    (main) 
[id]
:MU[mu]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 id                          10 FREE     L                 mu                                                          
 active                       1 YN       L                 :MU[mu]|0                                                   
 cust.def.screen             15 FREE     L  MIS.SCREEN     VAL=(+@customer.defined.screens[""])                    
 date.acquired                8 DATE     L                 :MU[mu]|14                                                  
 dept                        15 FREE     L  MIS.GL.DEPT    :MU[mu]|4                                               
 desc                        30 FREE     L                 :MU[mu]|1                                                   
 dft.eoc                      7 FREE     L  MIS.GL.EOC     :MU[mu]|15                                              
 eqp.class                    8 FREE     L  MM.EQP.CLASS   :MU[mu]|3                                               
 invoice                     15 FREE     L                 :MU[mu]|13                                                  
 last.update                 10 FREE     L                 :MU[mu]UPD                                                  
 location                    15 FREE     L                 :MU[mu]|5                                                   
 maint.grp                   10 FREE     L  MM.EQP.MAINT   :MU[mu]|17                                              
 maint.grp.ok                10 FREE     L  MM.EQP.MAINT   VAL=%MM.EQP.MAINT.user.ok(maint.grp)                    
 mfr                         10 FREE     L  MIS.MFR        :MU[mu]|9                                               
 mfr.serial.no               15 FREE     L                 :MU[mu]|10                                                  
 new.eqp                     10 FREE     L                                                                             
 pm.cds                      15 FREE     L  MIS.SCREEN     VAL=@MM.EQP.WO.TYPE.cust.def.scrn[@MM.EQP.pm.id]        
 pm.freq                     10 FREE     L                 VAL=@MM.EQP.WO.TYPE.freq[@MM.EQP.pm.id]                     
 pm.last.wo                   6 PINT     R  MM.EQP.WO      VAL=%MM.EQP.WO.find.last.wo(id,@pm.id)                  
 pm.priority                  1 CHOICE   L                 VAL=@MM.EQP.WO.TYPE.priority[@MM.EQP.pm.id]                 
 pm.sched                     1 YN       L                 VAL=@MM.EQP.WO.TYPE.active[@MM.EQP.pm.id]                   
 pm.usage                     8 PINT     R                 VAL=@MM.EQP.WO.TYPE.usage[@MM.EQP.pm.id]                    
 pm.usage.freq                5 PINT     R                 VAL=IF{@usage.average&@pm.usage @pm.usage:8D/@usage.av      
                                                           VAL=erage:0D!1}                                             
 po.no                       10 FREE     L                 :MU[mu]|12                                                  
 price                        9 MONEY    R                 :MU[mu]|11                                                  
 print.cd.screen              0 FREE     L                 VAL=DO{@Next(cd.screen) %MIS.SCREEN.print(cd.screen,^@      
                                                           VAL=customer.defined.fields,"",0)}                          
 print.cd.screen.verbatim     0 FREE     L                 VAL=DO{@Next(cd.screen) %MIS.SCREEN.print(cd.screen,^@      
                                                           VAL=customer.defined.fields,1,0)}                           
 pur.vendor                  11 FREE     L  MIS.VEN        :MU[mu]|6                                               
 ser.vendor                  11 FREE     L  MIS.VEN        :MU[mu]|7                                               
 usage.average               10 DEC4     R                 :MU[mu]U|0                                                  
 usage.average.monthly       10 DEC4     R                 VAL=@usage.average*30:4D:10LT                               
 usage.average.weekly        10 DEC4     R                 VAL=@usage.average*7:4D:10LT                                
 usage.avg.override           1 YN       L                 :MU[mu]U|6                                                  
 usage.days.for.avg           4 PINT     R                 :MU[mu]U|1                                                  
 usage.last.date              8 DATE     L                 VAL=@Last(usage.date)                                       
 usage.last.purged            8 DATE     L                 :MU[mu]U|4                                                  
 usage.meter.digits           2 PINT     R                 :MU[mu]U|7                                                  
 usage.stat.type              1 CHOICE   L                 :MU[mu]U|3                                                  
 usage.stats                  1 YN       L                 :MU[mu]U|2                                                  
 usage.user                  10 FREE     L  MIS.USER       :MU[mu]U|5                                              
 user.access                  1 YN       L                 VAL=IF{%MM.EQP.MAINT.user.ok(@MM.EQP.maint.grp) "Y";"N      
                                                           VAL="}                                                      
 Ì     i   2
mm.equipment.comments    (comments) 
[id, comm.queue]
:MU[mu]M[muM]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 comm.queue                   2 PINT     R                 muM                                                         
 comm.line                   74 FREE     L                 :MU[mu]M[muM]                                               
 Ì     i   2
mm.equipment.contracts    (contr) 
[id, contr.ven,contr.no]
:MU[mu]C[gr,muc]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 contr.ven                   11 FREE     L  MIS.VEN        gr                                                      
 contr.no                    10 FREE     L                 muc                                                         
 contr.queue                  2 PINT     R                 :MU[mu]C[gr,muc]|0                                          
 Ì     i   2
mm.eqp.contr.ee    (contr.ee) 
[id, contr.ee.queue]
:MU[mu]CE[muC]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 contr.ee.queue               2 PINT     R                 muC                                                         
 contr.ee.no                 10 FREE     L                 :MU[mu]CE[muC]|1                                            
 contr.ee.ven                11 FREE     L  MIS.VEN        :MU[mu]CE[muC]|0                                        
 Ì     i   2
mm.eqp.customer.def.querie    (customer.defined.queries) 
[id, cd.query]
:MU[mu]CD[ggv]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 cd.query                    10 FREE     L  MIS.QUERY      ggv                                                     
 cd.query.resp               75 QRY.RESP L                 :MU[mu]CD[ggv]|0                                            
 Ì     i   2
mm.eqp.cust.def.mult.queries    (customer.def.mult.queries) 
[id,cd.query, cdm.seq.no]
:MU[mu]CD[ggv]M[ggvN]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 cdm.seq.no                   3 PINT     R                 ggvN                                                        
 cdm.response                75 QRY.RESP L                 :MU[mu]CD[ggv]M[ggvN]|0                                     
 Ì     i   2
mm.eqp.cust.defined.screens    (customer.defined.screens) 
[id, cd.screen]
:MU[mu]CDS[gxx]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 cd.screen                   15 FREE     L  MIS.SCREEN     gxx                                                     
 Ì     i   2
mm.eqp.pm    (pm) 
[id, pm.id]
:MU[mu]P[mup]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 pm.id                       10 FREE     L  MM.EQP.WO.TYPE mup                                                     
 Ì     i   2
mm.eqp.usage.by.date    (usage.by.date) 
[id, usage.date]
:MU[mu]U[muUD]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 usage.date                   8 DATE     L                 muUD                                                        
 usage.increment             10 INT      R                 :MU[mu]U[muUD]|1                                            
 usage.qty.total             10 PINT     R                 :MU[mu]U[muUD]|0                                            
 usage.rollover.count         7 INT      R                 :MU[mu]U[muUD]|2                                            
 Ì     i   2
mm.equipment.warranties    (warranty) 
[id, warr.queue]
:MU[mu]W[muW]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 warr.queue                   2 PINT     R                 muW                                                         
 warr.desc                   60 FREE     L                 :MU[mu]W[muW]|0                                             
 warr.exp                     8 DATE     L                 :MU[mu]W[muW]|1                                             
 Ì       2
 INDEX FILE/INTERNAL NAME           SUBSCRIPTS/PHYSICAL BASE

 mm.eqp.component.index             [component,id]
   component.x                        ?MUCX[muC,mu]

 mm.eqp.maint.grp.x                 [maint.grp,id]
   maint.x                            ?MUMG[mum,mu]

 mm.eqp.name.index                  [desc,id]
   name.index                         ?MUI[muD,mu]

 mm.eqp.pm.index                    [id,pm.id]
   pm.index                           ?MUPX[mu,mup]