sHelp
                                     MM.CONTRACT
     i   2
 main
   comments
   date.item
   items
     effective.dates
     item.comments

 Ì   €   i   2
main
[vendor,number]
*(M)MZ[gr,mz]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 vendor                      11 FREE     L  MIS.VEN        gr                                                      
 number                      15 FREE     L                 mz                                                          
 active                       1 YN       L                 *(M)MZ[gr,mz]|0                                             
 contract.group              10 FREE     L  MM.CNTR.GRP    *(M)MZ[gr,mz]|5                                         
 description                 30 FREE     L                 *(M)MZ[gr,mz]|1                                             
 edit.comments                0 FREE     L                 VAL=%Z.text.ed.shell(^/MZ[vendor,number]C,11,23,79,"",      
                                                           VAL="D"),""                                                 
 expiration.date              8 DATE     L                 *(M)MZ[gr,mz]|3                                             
 last.update                 10 FREE     L                 *(M)MZ[gr,mz]UPD                                            
 lead.days                    3 PINT     R                 *(M)MZ[gr,mz]|4                                             
 resp.user                   10 FREE     L  MIS.USER       *(M)MZ[gr,mz]|6                                         
 review.date                  8 DATE     L                 VAL=%Z.date.add(@expiration.date,0-@lead.days)              
 status                       7 CHOICE   L                 *(M)MZ[gr,mz]|2                                             
 view.comments                0 FREE     L                 VAL=@Kill(@Root(@t.comments),@Move(@Root(@comments),@R      
                                                           VAL=oot(@t.comments)),%Z.view.shell(^@Root(@comments),      
                                                           VAL=9,21,79,"","D"),""                                      
 Ì   €   i   2
comments
[vendor,number,  comment.line]
*(M)MZ[gr,mz]C[mzC]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 comment.line                 5 PINT     R                 mzC                                                         
 comment.text                79 TEXT     L                 *(M)MZ[gr,mz]C[mzC]                                         
 Ì   €   i   2
date.item
[vendor,number,  di.eff.date,di.item.urn]
*(M)MZ[gr,mz]DI[mzD,mt]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 di.eff.date                  8 DATE     L                 mzD                                                         
 di.item.urn                 43 URN      L  MM.ITEM        mt                                                      
 Ì   €   i   2
items
[vendor,number,  item.urn]
*(M)MZ[gr,mz]I[mt]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 item.urn                    43 URN      L  MM.ITEM        mt                                                      
 item.edit.comment            0 FREE     L                 VAL=%Z.text.ed.shell(^/MZ[vendor,number]I[item.urn]C,0      
                                                           VAL=,11,79),""                                              
 item.number                 11 FREE     L                 *(M)MZ[gr,mz]I[mt]|0                                        
 Ì   €   i   2
effective.dates
[vendor,number,item.urn,  effective.date]
*(M)MZ[gr,mz]I[mt]D[mzD]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 effective.date               8 DATE     L                 mzD                                                         
 eff.item.price              10 PDEC4    R                 *(M)MZ[gr,mz]I[mt]D[mzD]|0                                  
 Ì   €   i   2
item.comments
[vendor,number,item.urn,  item.comment.line]
*(M)MZ[gr,mz]I[mt]C[mzLC]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 item.comment.line            3 PINT     R                 mzLC                                                        
 item.comment.text           79 TEXT     L                 *(M)MZ[gr,mz]I[mt]C[mzLC]                                   

 Index Files                        Subscripts/Physical Base

 eff.date.x                         [effective.date,item.urn,vendor] = number
                                      ?(M)MZD[mzD,mt,gr]

 exp.date.x                         [expiration.date,vendor,number]
                                      ?(M)MZE[mzE,gr,mz]

 item.x                             [vendor,item.urn,number]
                                      ?(M)MZI[gr,mt,mz]

 review.x                           [review.date,vendor,number]
                                      ?(M)MZR[mzR,gr,mz]