sHelp
                                     AP.FED
       2
 main
   corp
     vendors
       fed.expenses
       invoices.obslt

 Ì   €     2
main
[fed.year,fed.num]
*(K)KF[kfY,kfN]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 fed.year                     4 YEAR     L                 kfY                                                         
 fed.num                      4 PINT     R                 kfN                                                         
 fed.comment                 60 FREE     L                 *(K)KF[kfY,kfN]C                                            
 fed.comp.user               10 FREE     L  MIS.USER       *(K)KF[kfY,kfN]|5                                       
 fed.edit.after               1 YN       L                 *(K)KF[kfY,kfN]|12                                          
 fed.edit.date                8 DATE     L                 *(K)KF[kfY,kfN]|6                                           
 fed.edit.user               10 FREE     L  MIS.USER       *(K)KF[kfY,kfN]|7                                       
 fed.forms.date               8 DATE     L                 *(K)KF[kfY,kfN]|10                                          
 fed.forms.user              10 FREE     L  MIS.USER       *(K)KF[kfY,kfN]|11                                      
 fed.start.date               8 DATE     L                 *(K)KF[kfY,kfN]|1                                           
 fed.start.time               5 FREE     L                 *(K)KF[kfY,kfN]|2                                           
 fed.status                   9 CHOICE   L                 *(K)KF[kfY,kfN]|0                                           
 fed.stop.date                8 DATE     L                 *(K)KF[kfY,kfN]|3                                           
 fed.stop.time                5 FREE     L                 *(K)KF[kfY,kfN]|4                                           
 fed.tape.date                8 DATE     L                 *(K)KF[kfY,kfN]|8                                           
 fed.tape.user               10 FREE     L  MIS.USER       *(K)KF[kfY,kfN]|9                                       
 fed.vendor.cnt               5 PINT     R                 *(K)KF[kfY,kfN]|13                                          
 Ì   €     2
corp
[fed.year,fed.num,  fed.corporation]
*(K)KF[kfY,kfN]C[gvCN]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 fed.corporation              4 FREE     L  MIS.GL.CORP    gvCN                                                    
 fed.corp.forms.date          8 DATE     L                 *(K)KF[kfY,kfN]C[gvCN]|2                                    
 fed.corp.forms.user         10 FREE     L  MIS.USER       *(K)KF[kfY,kfN]C[gvCN]|3                                
 fed.corp.xo.date             8 DATE     L                 *(K)KF[kfY,kfN]C[gvCN]|0                                    
 fed.corp.xo.user            10 FREE     L  MIS.USER       *(K)KF[kfY,kfN]C[gvCN]|1                                
 Ì   €     2
vendors
[fed.year,fed.num,fed.corporation,  fed.vendor]
*(K)KF[kfY,kfN]C[gvCN]V[gr]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 fed.vendor                  11 FREE     L  MIS.VEN        gr                                                      
 fed.adjust                  11 SMONEY   R                 *(K)KF[kfY,kfN]C[gvCN]V[gr]|2                               
 fed.amount                  11 SMONEY   R                 *(K)KF[kfY,kfN]C[gvCN]V[gr]|3                               
 fed.payments                11 SMONEY   R                 *(K)KF[kfY,kfN]C[gvCN]V[gr]|1                               
 fed.vendor.deleted           1 YN       L                 *(K)KF[kfY,kfN]C[gvCN]V[gr]|0                               
 Ì   €     2
fed.expenses
[fed.year,fed.num,fed.corporation,fed.vendor,  fed.exp.type]
*(K)KF[kfY,kfN]C[gvCN]V[gr]E[grf]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 fed.exp.type                15 FREE     L  MIS.EXP.TYPE   grf                                                     
 fed.exp.adjust              11 SMONEY   R                 *(K)KF[kfY,kfN]C[gvCN]V[gr]E[grf]|1                         
 fed.exp.amount              11 SMONEY   R                 VAL=@fed.exp.payments+@fed.exp.adjust                       
 fed.exp.payments            11 SMONEY   R                 *(K)KF[kfY,kfN]C[gvCN]V[gr]E[grf]|0                         
 Ì   €     2
invoices.obslt
[fed.year,fed.num,fed.corporation,fed.vendor,  fed.inv.urn.obslt,fed.inv.txn.obslt]
*(K)KF[kfY,kfN]C[gvCN]V[gr]I[kz,kzT]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 fed.inv.urn.obslt           20 PINT     R                 kz                                                          
 fed.inv.txn.obslt            3 URN      L                 kzT