sHelp
                                     MM.PO.REQ
     i   2
   mm.po.req
     mm.po.req.audit.trail
     po.req.comments
     mm.po.req.lines
       mm.po.req.desc

 Ì     i   2
mm.po.req    (main) 
[req.urn]
*MR[mr]

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

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 at.date                     10 PINT     R                 mrAD                                                        
 at.status                    9 CHOICE   L                 mrS                                                         
 at.prev.status               9 CHOICE   L                 *MR[mr]T[mrAD,mrS]|1                                        
 at.user                     10 FREE     L  MIS.USER       *MR[mr]T[mrAD,mrS]|0                                    
 Ì     i   2
po.req.comments    (comments) 
[req.urn, comment.no]
*MR[mr]C[mrCN]

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

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 line.no                      4 PINT     R                 mrL                                                         
 account                     25 FREE     L  MIS.GL.ACCOUNT *MR[mr]L[mrL]I|4                                        
 auto                         1 YN       L                 *MR[mr]L[mrL]|17                                            
 client                      10 FREE     L                 *MR[mr]L[mrL]|16                                            
 conv.unit.of.pur            10 FREE     L                 *MR[mr]L[mrL]|12                                            
 cost.up                     10 DEC4     R                 *MR[mr]L[mrL]|7                                             
 cost.up.us                  10 DEC4     R                 VAL=(@cost.up:8D/@req.up.us:4D)                             
 deliver.to                  15 FREE     L  MM.DELIVER     *MR[mr]L[mrL]C|0                                        
 dup.po.line.no               4 PINT     R                 *MR[mr]L[mrL]P|4                                            
 dup.po.urn                  30 URN      L  MM.PO          *MR[mr]L[mrL]P|3                                        
 eoc                          7 FREE     L  MIS.GL.EOC     *MR[mr]L[mrL]|2                                         
 item.category                8 FREE     L  MM.CATEGORY    VAL=@MM.ITEM.category[@item.urn]                        
 item.desc.line2             30 FREE     L                 *MR[mr]L[mrL]A|1                                            
 item.description            30 FREE     L                 *MR[mr]L[mrL]A|0                                            
 item.name                   30 FREE     L                 *MR[mr]L[mrL]A|2                                            
 item.no                     10 FREE     L                 *MR[mr]L[mrL]|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                    43 URN      L  MM.ITEM        *MR[mr]L[mrL]|0                                         
 line.inventory              10 FREE     L                 VAL=@p.inventory                                            
 manuf                       10 FREE     L  MIS.MFR        *MR[mr]L[mrL]A|4                                        
 manuf.catlg                 15 FREE     L                 *MR[mr]L[mrL]A|5                                            
 misc.item.packaging         25 FREE     L                 *MR[mr]L[mrL]M|0                                            
 misc.manuf                  10 FREE     L  MIS.MFR        *MR[mr]L[mrL]M|2                                        
 misc.manuf.catlg            15 FREE     L                 *MR[mr]L[mrL]M|3                                            
 misc.smallest.unit          10 FREE     L                 *MR[mr]L[mrL]M|4                                            
 misc.vend.catlg             15 FREE     L                 *MR[mr]L[mrL]M|1                                            
 ord.dept                    10 FREE     L                 VAL=@p.dept                                                 
 pkg.string.ptr               4 INT      R                 *MR[mr]L[mrL]A|6                                            
 po.line.deleted              1 YN       L                 *MR[mr]L[mrL]P|5                                            
 po.line.no                   4 PINT     R                 *MR[mr]L[mrL]P|2                                            
 po.urn                      30 URN      L  MM.PO          *MR[mr]L[mrL]P|1                                        
 price.confirmed              1 YN       L                 *MR[mr]L[mrL]|13                                            
 qty.per.order               10 INT      R                 *MR[mr]L[mrL]|18                                            
 qty.tolerance.up             7 DEC3     R                 *MR[mr]L[mrL]|15                                            
 qty.up                       7 INT      R                 *MR[mr]L[mrL]|14                                            
 qty.up.with.up              18 FREE     L                 VAL=(@p.qty.up_" "_@p.req.unit.of.pur)                      
 req.unit.of.pur             10 FREE     L                 *MR[mr]L[mrL]|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                 *MR[mr]L[mrL]|10                                            
 req.up.with.us              15 FREE     L                 *MR[mr]L[mrL]|11                                            
 smallest.unit               10 FREE     L                 VAL=(IF{@MM.PO.REQ.misc.smallest.unit;@MM.ITEM.smalles      
                                                           VAL=t.unit})                                                
 smallest.unit.rpt           10 FREE     L                 VAL=(IF{@MM.PO.REQ.misc.smallest.unit;@MM.ITEM.smalles      
                                                           VAL=t.unit[@item.urn]})                                     
 stock.no                     8 FREE     L                 *MR[mr]L[mrL]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.urn                   18 URN      L  MM.STOCK       *MR[mr]L[mrL]I|2                                        
 tax.code                     3 FREE     L  MIS.TAX.CODE   *MR[mr]L[mrL]I|5                                        
 tot.ord.us                   7 INT      R                 VAL=(@MM.PO.REQ.req.up.us*@MM.PO.REQ.qty.up)                
 vend.catlg                  15 FREE     L                 *MR[mr]L[mrL]A|3                                            
 vend.unit.of.pur            10 FREE     L                                                                             
 vendor                      10 FREE     L                 *MR[mr]L[mrL]P|0                                            
 Ì     i   2
mm.po.req.desc    (desc) 
[req.urn,line.no, desc.line]
*MR[mr]L[mrL]D[mrDL]

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

 mm.mr.item.manuf.catlg.index       [manuf.catlg,item.urn]
   catlg.x                            ?MRMC[gmC,mt]

 mm.po.req.order.date.num.index     [order.date,number] = req.urn
   date.num.x                         ?MRDR[mrOD,mrR]

 mm.po.req.date.num.fac.index       [purch.facility,order.date,number] = req.urn
   date.numf.x                        ?MRDRF[mw,mrOD,mrR]

 mm.po.req.order.date.index         [order.date,req.urn]
   date.x                             ?MRD[mrOD,mr]

 mm.po.req.date.fac.index           [purch.facility,order.date,req.urn]
   datef.x                            ?MRDF[mw,mrOD,mr]

 mm.po.req.dept.index               [dept,req.urn]
   dept.x                             ?MRDP[gd,mr]

 mm.po.req.fac.index                [purch.facility,req.urn]
   fac.x                              ?MRXF[mw,mr]

 mm.po.req.id.x                     [sort.id,req.urn]
   id.x                               ?MRI[mrI,mr]

 mm.po.req.item.index               [item.urn,req.urn,line.no]
   item.x                             ?MRIT[mt,mr,mrL]

 mm.po.req.item.fac.index           [purch.facility,item.urn,req.urn,line.no]
   itemf.x                            ?MRITF[mw,mt,mr,mrL]

 mm.mr.item.manufacturer.index      [manuf,item.urn]
   manuf.x                            ?MRTM[mn,mt]

 mm.po.req.number.index             [number,req.urn]
   number.x                           ?MRR[mrR,mr]

 mm.po.req.number.fac.index         [purch.facility,number,req.urn]
   numberf.x                          ?MRRF[mw,mrR,mr]

 mm.po.req.line.index               [req.urn,line.no]
   req.index                          ?MRRI[mr,mrL]

 mm.po.req.status.index             [status,req.urn]
   status.x                           ?MRS[mrS,mr]

 mm.po.req.type.index               [type,req.urn]
   type.x                             ?MRT[mrT,mr]

 mm.mr.item.vendor.catlg.index      [vend.catlg,item.urn]
   ven.catlg.x                        ?MRVC[gvC,mt]

 mm.po.req.vendor.index             [vendor,req.urn,line.no]
   vendor.x                           ?MRV[gr,mr,mrL]