sHelp
                                     MIS.PUR.FAC
     i   2
 default.facility
 main
   apl.dbs
   authorized.users
   child.fac
   corporations

 Ì     i   2
default.facility
[dft.db]
&(G)GEBD[gn]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 dft.db                      12 FREE     L  MIS.APPL.DB    gn                                                      
 dft.fac.count                2 PINT     R                                                                             
 dft.fac.w.db                10 FREE     L                 VAL=@p.MIS.PUR.FAC.dft.facility[@.db]                       
 dft.facility                10 FREE     L                 &(G)GEBD[gn]|0                                              
 dft.last.update             10 FREE     L                 &(G)GEBD[gn]UPD                                             
 Ì   €   i   2
main
[mnemonic]
&(G)GEB[mw]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 mnemonic                    10 FREE     L                 mw                                                          
 active                       1 YN       L                 &(G)GEB[mw]|0                                               
 deliv.addr1                 30 FREE     L                 &(G)GEB[mw]DA|0                                             
 deliv.addr2                 30 FREE     L                 &(G)GEB[mw]DA|1                                             
 deliv.addr3                 30 FREE     L                 &(G)GEB[mw]DA|2                                             
 exempt.purch.cert           20 FREE     L                 &(G)GEB[mw]|2                                               
 exempt.purch.cert.state      5 FREE     L                 &(G)GEB[mw]|3                                               
 fac.addr1                   30 FREE     L                 &(G)GEB[mw]FA|0                                             
 fac.addr2                   30 FREE     L                 &(G)GEB[mw]FA|1                                             
 fac.addr3                   30 FREE     L                 &(G)GEB[mw]FA|2                                             
 invoice.addr1               30 FREE     L                 &(G)GEB[mw]IA|0                                             
 invoice.addr2               30 FREE     L                 &(G)GEB[mw]IA|1                                             
 invoice.addr3               30 FREE     L                 &(G)GEB[mw]IA|2                                             
 last.update                 10 FREE     L                 &(G)GEB[mw]UPD                                              
 name                        40 FREE     L                 &(G)GEB[mw]|1                                               
 parent                       1 YN       L                 &(G)GEB[mw]|5                                               
 tot.inv.count                6 PINT     R                 &(G)GEB[mw]|4                                               
 Ì   €   i   2
apl.dbs
[mnemonic,  apl.db]
&(G)GEB[mw]ZM[gn]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 apl.db                      12 FREE     L  MIS.APPL.DB    gn                                                      
 ap.database                 12 FREE     L  MIS.APPL.DB    &(G)GEB[mw]ZM[gn]|2                                     
 inventory.count              5 PINT     R                 &(G)GEB[mw]ZM[gn]|3                                         
 po.form.pgm                 15 FREE     L  MM.PROGRAM     &(G)GEB[mw]ZM[gn]|0                                     
 return.po.pgm               15 FREE     L  MM.PROGRAM     &(G)GEB[mw]ZM[gn]|1                                     
 Ì   €   i   2
authorized.users
[mnemonic,  auth.user]
&(G)GEB[mw]U[gu]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 auth.user                   10 FREE     L  MIS.USER       gu                                                      
 Ì   €   i   2
child.fac
[mnemonic,  child.facility]
&(G)GEB[mw]CF[mwc]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 child.facility              10 FREE     L                 mwc                                                         
 child.active                 1 YN       L                 &(G)GEB[mw]CF[mwc]|0                                        
 Ì   €   i   2
corporations
[mnemonic,  corporation]
&(G)GEB[mw]C[gvCN]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 corporation                  4 FREE     L  MIS.GL.CORP    gvCN                                                    
 corp.primary.fac             1 YN       L                 &(G)GEB[mw]C[gvCN]|0                                        

 Index Files                        Subscripts/Physical Base

 corporation.x                      [corporation,mnemonic] = corp.primary.fac
                                      &(G)GEBC[gvCN,mw]

 dft.fac.x                          [dft.facility] = dft.fac.count
                                      &(G)GEBDD[mw]

 parent.fac.x                       [child.facility] = mnemonic
                                      ?(G)GEBF[mwc]