SAS CODE TO MERGE LOOK-UP TABLES WITH VIF DATA FILE                             
                                                                                
*****--------------------------------------------*****;                         
*    1.0 Set library names.                          *;                         
*****--------------------------------------------*****;                         
                                                                                
libname in1 'VIF';                                                              
libname in2 'CODEBOOK';                                                         
libname in3 'BRANDS';                                                           
libname in4 'IDCODE';                                                           
                                                                                
*****--------------------------------------------*****;                         
*    2.1 Add USDA Food Descriptions                  *;                         
*****--------------------------------------------*****;                         
                                                                                
PROC SORT  DATA=IN1.VIF OUT=VIFDATA;                                            
           BY DRPICODE;                                                         
                                                                                
                                                                                
PROC SORT DATA=IN2.CODEBOOK OUT=CODEBOOK;                                       
           BY DRPFCODE;                                                         
                                                                                
DATA VIFDATA;                                                                   
           MERGE   VIFDATA(in=a)                                                
                   CODEBOOK(in=b rename=(drpfcode=DRPICODE));                   
           BY DRPICODE; IF A;                                                   
                                                                                
*****--------------------------------------------*****;                         
*    2.2 Add  Brands and Fast Food names             *;                         
*****--------------------------------------------*****;                         
                                                                                
PROC SORT  DATA=VIFDATA;                                                        
           BY DRPCOMM;                                                          
                                                                                
                                                                                
PROC SORT  DATA=IN3.BRANDS OUT=BRANDS;                                          
           BY DRPCOMM;                                                          
                                                                                
DATA VIFDATA;                                                                   
           MERGE  VIFDATA(in=a)                                                 
                  BRANDS(in=b);                                                 
           BY DRPCOMM; IF A;                                                    
                                                                                
*****--------------------------------------------*****;                         
*    2.3 Add NCC Food Descriptions                  *;                          
*****--------------------------------------------*****;                         
                                                                                
PROC SORT  DATA=VIFDATA;                                                        
           BY DRPINGID;                                                         
                                                                                
                                                                                
PROC SORT  DATA=IN4.IDCODE OUT=IDCODE;                                          
           BY DRPFID;                                                           
                                                                                
DATA VIFDATA;                                                                   
           MERGE  VIFDATA(in=a)                                                 
                  IDCODE(in=b rename=(drpfid=drpingid));                        
           BY DRPINGID ; IF A;                                                  
                                                                                
RUN;