sHelp
                                     MM.PO.COMB
     i   2
   mm.po.comb.error
   mm.po.comb
     mm.po.comb.audit.trail
     mm.po.comb.comments
     mm.po.comb.lines
       mm.po.comb.description

 Ì     i   2
mm.po.comb.error    (error) 
[err.time]
:MRCERR[mrcTM]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 err.time                    18 TIME     L                 mrcTM                                                       
 err.date                     8 DATE     L                 :MRCERR[mrcTM]|3                                            
 err.item                    73 URN      L  MM.ITEM        :MRCERR[mrcTM]|1                                        
 err.line                    10 PINT     R                 :MRCERR[mrcTM]|4                                            
 err.number                  30 URN      L  MM.PO.COMB     :MRCERR[mrcTM]|0                                        
 err.reason                  60 FREE     L                 :MRCERR[mrcTM]|5                                            
 err.user                    10 FREE     L  MIS.USER       :MRCERR[mrcTM]|2                                        
 Ì     i   2
mm.po.comb    (main) 
[req.urn]
*MRC[mrc]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 req.urn                     30 URN      L                 mrc                                                         
 active                       1 YN       L                 *MRC[mrc]|0                                                 
 cancel.date                  8 DATE     L                 *MRC[mrc]D|4                                                
 close.date                   8 DATE     L                 *MRC[mrc]D|1                                                
 dept                        15 FREE     L  MIS.GL.DEPT    *MRC[mrc]|4                                             
 dept.invent                 15 FREE     L                 VAL=(IF{@MM.PO.COMB.dept;@MM.PO.COMB.inventory})            
 dollar.tot                  11 MONEY    R                 VAL=(@p.req.tot:2D)                                         
 id                          30 URN      L  MM.PO.COMB     VAL=(@MM.PO.COMB.number_" - "_@MM.PO.COMB.status'=" -   
                                                           VAL=")                                                      
 int.id                      30 URN      L  MM.PO.COMB     VAL=(@number[req.urn]_" - "_@status[req.urn]'=" - ")    
 inventory                   10 FREE     L  MM.INVENT      *MRC[mrc]|3                                             
 last.line                    4 PINT     R                 *MRC[mrc]|8                                                 
 number                      10 FREE     L                 *MRC[mrc]|1                                                 
 number.and.status           25 FREE     L                 VAL=(@number_" - "_@status'=" - ")                          
 open.date                    8 DATE     L                 *MRC[mrc]D|0                                                
 order.date                   8 DATE     L                 *MRC[mrc]|6                                                 
 pnumber.and.status          25 FREE     L                 VAL=(@p.number_" - "_@p.status'=" - ")                      
 po.req.no                   30 URN      L  MM.PO.REQ      *MRC[mrc]|10                                            
 preq.disp                   45 FREE     L                 VAL=(@p.number_" - "_@p.type_" <"_@p.status_"> "      
                                                           VAL=_%Z.date.out(@p.order.date)'=" - <>")             
 req.disp                    45 FREE     L                 VAL=(@number_" - "_@type_" <"_@status_"> "_%Z.da      
                                                           VAL=te.out(@order.date)'=" - <>")                     
 req.tax.type                 3 CHOICE   L                 *MRC[mrc]|11                                                
 req.tot                     11 DEC4     R                 *MRC[mrc]|7                                                 
 resp.user                   10 FREE     L  MIS.USER       *MRC[mrc]|12                                            
 sort.id                     30 FREE     L                                                                             
 status                       9 CHOICE   L                 *MRC[mrc]|5                                                 
 status.date                  8 DATE     L                 VAL=%MM.PO.COMB.find.status.date(req.urn)                   
 type                         9 CHOICE   L                 *MRC[mrc]|2                                                 
 user.ok                      1 YN       L                 VAL=IF{%MIS.GL.DEPT.user.ok(@dept) "Y";"N"}                 
 verify.date                  8 DATE     L                 *MRC[mrc]D|2                                                
 Ì      i   2
mm.po.comb.audit.trail    (audit.trail) 
[req.urn, at.date,at.status]
*MRC[mrc]T[mrcAD,mrcS]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 at.date                     10 PINT     R                 mrcAD                                                       
 at.status                    9 CHOICE   L                 mrcS                                                        
 at.prev.status               9 CHOICE   L                 *MRC[mrc]T[mrcAD,mrcS]|1                                    
 at.user                     10 FREE     L  MIS.USER       *MRC[mrc]T[mrcAD,mrcS]|0                                
 Ì      i   2
mm.po.comb.comments    (comments) 
[req.urn, comment.no]
*MRC[mrc]C[mrcCN]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 comment.no                   2 PINT     R                 mrcCN                                                       
 comment                     75 FREE     L                 *MRC[mrc]C[mrcCN]|0                                         
 comment.loc                  5 CHOICE   L                 *MRC[mrc]C[mrcCN]|1                                         
 Ì      i   2
mm.po.comb.lines    (lines) 
[req.urn, line.no]
*MRC[mrc]L[mrcL]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 line.no                      4 PINT     R                 mrcL                                                        
 account                     25 FREE     L  MIS.GL.ACCOUNT *MRC[mrc]L[mrcL]I|4                                     
 auto                         1 YN       L                 *MRC[mrc]L[mrcL]|17                                         
 client                      10 FREE     L                 *MRC[mrc]L[mrcL]|16                                         
 conv.unit.of.pur            10 FREE     L                 *MRC[mrc]L[mrcL]|12                                         
 cost.up                     10 DEC4     R                 *MRC[mrc]L[mrcL]|7                                          
 cost.up.us                  10 DEC4     R                 VAL=(@cost.up:8D/@req.up.us:4D)                             
 eoc                          7 FREE     L  MIS.GL.EOC     *MRC[mrc]L[mrcL]|2                                      
 item.category                8 FREE     L  MM.CATEGORY    VAL=@MM.ITEM.category[@item.urn]                        
 item.desc.line2             65 FREE     L                 *MRC[mrc]L[mrcL]A|1                                         
 item.description            65 FREE     L                 *MRC[mrc]L[mrcL]A|0                                         
 item.name                   30 FREE     L                 *MRC[mrc]L[mrcL]A|2                                         
 item.no                     10 FREE     L                 *MRC[mrc]L[mrcL]|1                                          
 item.packaging              40 FREE     L                 VAL=IF{@item.no$5="MISC." @misc.item.packaging;@MM.ITE      
                                                           VAL=M.package.string}                                       
 item.pkg.string             40 FREE     L                 VAL=IF{@item.no$5="MISC." @misc.item.packaging;@MM.ITE      
                                                           VAL=M.package.string[@item.urn,@pkg.string.ptr]}            
 item.urn                    73 URN      L  MM.ITEM        *MRC[mrc]L[mrcL]|0                                      
 line.inventory              10 FREE     L                 VAL=@p.inventory                                            
 manuf                       10 FREE     L                 *MRC[mrc]L[mrcL]A|4                                         
 manuf.catlg                 15 FREE     L                 *MRC[mrc]L[mrcL]A|5                                         
 misc.item.packaging         25 FREE     L                 *MRC[mrc]L[mrcL]M|0                                         
 misc.manuf                  10 FREE     L  MIS.MFR        *MRC[mrc]L[mrcL]M|2                                     
 misc.manuf.catlg            15 FREE     L                 *MRC[mrc]L[mrcL]M|3                                         
 misc.smallest.unit          10 FREE     L                 *MRC[mrc]L[mrcL]M|4                                         
 misc.vend.catlg             15 FREE     L                 *MRC[mrc]L[mrcL]M|1                                         
 ord.dept                    10 FREE     L                 VAL=@p.dept                                                 
 pkg.string.ptr               4 INT      R                 *MRC[mrc]L[mrcL]A|6                                         
 po.req.line.no               4 PINT     R                 *MRC[mrc]L[mrcL]P|2                                         
 po.req.urn                  30 URN      L  MM.PO.REQ      *MRC[mrc]L[mrcL]P|1                                     
 price.confirmed              1 YN       L                 *MRC[mrc]L[mrcL]|13                                         
 processed.ok                 1 YN       L                 *MRC[mrc]L[mrcL]|19                                         
 qty.per.order               10 INT      R                 *MRC[mrc]L[mrcL]|18                                         
 qty.tolerance.up             7 DEC3     R                 *MRC[mrc]L[mrcL]|15                                         
 qty.up                       7 INT      R                 *MRC[mrc]L[mrcL]|14                                         
 qty.up.with.up              18 FREE     L                 VAL=(@p.qty.up_" "_@p.req.unit.of.pur)                      
 req.unit.of.pur             10 FREE     L                 *MRC[mrc]L[mrcL]|9                                          
 req.unit.of.pur.num          2 INT      R                 VAL=(@po.unit.of.pur$(L(@req.unit.of.pur," "))?0N!1)        
 req.up.us                    7 FREE     L                 *MRC[mrc]L[mrcL]|10                                         
 req.up.with.us              15 FREE     L                 *MRC[mrc]L[mrcL]|11                                         
 smallest.unit               10 FREE     L                 VAL=(IF{@MM.PO.COMB.misc.smallest.unit;@MM.ITEM.smalle      
                                                           VAL=st.unit})                                               
 smallest.unit.rpt           10 FREE     L                 VAL=(IF{@MM.PO.COMB.misc.smallest.unit;@MM.ITEM.smalle      
                                                           VAL=st.unit[@item.urn]})                                    
 stock.no                     8 FREE     L                 *MRC[mrc]L[mrcL]I|3                                         
 stock.on.hand               15 FREE     L                 VAL=IF{@line.inventory 0+@MM.STOCK.qty.on.hand[@stock.      
                                                           VAL=urn]^XX/(@req.up.us^PP)_IF{XX\PP'=0^XX ";"_XX}}         
 stock.on.order              15 FREE     L                 VAL=IF{@line.inventory 0+@MM.STOCK.qty.on.order[@stock      
                                                           VAL=.urn]^XX/(@req.up.us^PP)_IF{XX\PP'=0^XX ";"_XX}}        
 stock.req.inv               10 FREE     L                 *MRC[mrc]L[mrcL]P|3                                         
 stock.req.line.no            4 PINT     R                 *MRC[mrc]L[mrcL]P|5                                         
 stock.req.urn               20 FREE     L  MM.STOCK.REQ   *MRC[mrc]L[mrcL]P|4                                     
 stock.urn                   18 URN      L  MM.STOCK       *MRC[mrc]L[mrcL]I|2                                     
 tax.code                     3 FREE     L  MIS.TAX.CODE   *MRC[mrc]L[mrcL]I|5                                     
 tot.ord.us                   7 INT      R                 VAL=(@MM.PO.COMB.req.up.us*@MM.PO.COMB.qty.up)              
 vend.catlg                  15 FREE     L                 *MRC[mrc]L[mrcL]A|3                                         
 vend.unit.of.pur            10 FREE     L                 VAL=@MM.ITEM.vend.unit.of.pur[@item.urn,@vendor]            
 vendor                      10 FREE     L                 *MRC[mrc]L[mrcL]P|0                                         
 Ì      i   2
mm.po.comb.description    (desc) 
[req.urn,line.no, desc.line]
*MRC[mrc]L[mrcL]D[mrcDL]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 desc.line                    3 PINT     R                 mrcDL                                                       
 sec.desc                    50 FREE     L                 *MRC[mrc]L[mrcL]D[mrcDL]                                    
 Ì       2
 INDEX FILE/INTERNAL NAME           SUBSCRIPTS/PHYSICAL BASE

 mm.po.comb.item.manuf.cat.i        [manuf.catlg,item.urn]
   catlg.x                            ?MRCMC[gmC,mt]

 mm.po.comb.date.number.index       [order.date,number] = req.urn
   date.num.x                         ?MRCDR[mrcOD,mrcR]

 mm.po.comb.date.index              [order.date,req.urn]
   date.x                             ?MRCD[mrcOD,mrc]

 mm.po.comb.department.index        [dept,req.urn]
   dept.x                             ?MRCDP[gd,mrc]

 mm.po.comb.id.index                [sort.id,req.urn]
   id.x                               ?MRCI[mrcI,mrc]

 mm.po.comb.item.index              [item.urn,req.urn,line.no]
   item.x                             ?MRCIT[mt,mrc,mrcL]

 mm.po.comb.manuf.index             [manuf,item.urn]
   manuf.x                            ?MRCTM[mn,mt]

 mm.po.comb.number.index            [number,req.urn]
   number.x                           ?MRCR[mrcR,mrc]

 mm.po.comb.req.index               [req.urn,line.no]
   req.index                          ?MRCRI[mrc,mrcL]

 mm.po.comb.status.index            [status,req.urn]
   status.x                           ?MRCS[mrcS,mrc]

 .................,,,               [type,req.urn]
   type.x                             ?MRCT[mrcT,mrc]

 mm.po.comb.vendor.catlg.index      [vend.catlg,item.urn]
   ven.catlg.x                        ?MRCVC[gvC,mt]

 mm.po.comb.vendor.index            [vendor,req.urn,line.no]
   vendor.x                           ?MRCV[gr,mrc,mrcL]