sHelp
                                     AP.FED
       2
   ap.fed.1099.file
     ap.fed.1099.corporations
       ap.fed.1099.vendor.amounts
         ap.fed.1099.expenses

 Ì       2
ap.fed.1099.file    (main) 
[fed.year]
:KF[yr]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 fed.year                     4 YEAR     L                 yr                                                          
 fed.comment                 60 FREE     L                 :KF[yr]C                                                    
 fed.comp.comment            43 FREE     L                 VAL=IF{@fed.comp.date$4'>/fed.year "*** NOT FINAL *      
                                                           VAL=** COMPILED IN SAME YEAR ***"}                          
 fed.comp.date                8 DATE     L                 :KF[yr]|0                                                   
 fed.comp.user               10 FREE     L  MIS.USER       :KF[yr]|1                                               
 fed.dl.date                  8 DATE     L                 :KF[yr]|16                                                  
 fed.dl.user                 10 FREE     L  MIS.USER       :KF[yr]|17                                              
 fed.edit.after               1 YN       L                 :KF[yr]|8                                                   
 fed.edit.date                8 DATE     L                 :KF[yr]|2                                                   
 fed.edit.user               10 FREE     L  MIS.USER       :KF[yr]|3                                               
 fed.forms.date               8 DATE     L                 :KF[yr]|6                                                   
 fed.forms.user              10 FREE     L  MIS.USER       :KF[yr]|7                                               
 fed.start.date               8 DATE     L                 :KF[yr]|11                                                  
 fed.start.time               5 FREE     L                 :KF[yr]|12                                                  
 fed.status                   9 CHOICE   L                 :KF[yr]|10                                                  
 fed.stop.date                8 DATE     L                 :KF[yr]|13                                                  
 fed.stop.time                5 FREE     L                 :KF[yr]|14                                                  
 fed.tape.date                8 DATE     L                 :KF[yr]|4                                                   
 fed.tape.user               10 FREE     L  MIS.USER       :KF[yr]|5                                               
 fed.vendor.cnt               5 PINT     R                 :KF[yr]|15                                                  
 Ì        2
ap.fed.1099.corporations    (corp) 
[fed.year, fed.corporation]
:KF[yr]C[gn]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 fed.corporation              4 FREE     L  MIS.GL.CORP    gn                                                      
 fed.corp.dl.date             8 DATE     L                 :KF[yr]C[gn]|4                                              
 fed.corp.dl.user            10 FREE     L  MIS.USER       :KF[yr]C[gn]|5                                          
 fed.corp.forms.date          8 DATE     L                 :KF[yr]C[gn]|2                                              
 fed.corp.forms.user         10 FREE     L  MIS.USER       :KF[yr]C[gn]|3                                          
 fed.corp.tape.date           8 DATE     L                 :KF[yr]C[gn]|0                                              
 fed.corp.tape.user          10 FREE     L  MIS.USER       :KF[yr]C[gn]|1                                          
 Ì        2
ap.fed.1099.vendor.amounts    (vendors) 
[fed.year,fed.corporation, fed.vendor]
:KF[yr]C[gn]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                 :KF[yr]C[gn]V[gr]|2                                         
 fed.amount                  11 SMONEY   R                 :KF[yr]C[gn]V[gr]|3                                         
 fed.exp.err.flag             3 FREE     L                 :KF[yr]C[gn]V[gr]|4                                         
 fed.payments                11 SMONEY   R                 :KF[yr]C[gn]V[gr]|1                                         
 fed.vendor.deleted           1 YN       L                 :KF[yr]C[gn]V[gr]|0                                         
 Ì        2
ap.fed.1099.expenses    (fed.expenses) 
[fed.year,fed.corporation,fed.vendor, fed.exp.type]
:KF[yr]C[gn]V[gr]E[get]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 fed.exp.type                15 FREE     L  MIS.EXP.TYPE   get                                                     
 fed.exp.adjust              11 SMONEY   R                 :KF[yr]C[gn]V[gr]E[get]|1                                   
 fed.exp.amount              11 SMONEY   R                 VAL=@fed.exp.payments+@fed.exp.adjust                       
 fed.exp.payments            11 SMONEY   R                 :KF[yr]C[gn]V[gr]E[get]|0