SAS Code to Merge Look-up Tables with IFF Data File                             
                                                                                
*****--------------------------------------------*****;                         
*    1.0 Set library names.                          *;                         
*****--------------------------------------------*****;                         
                                                                                
libname in1 'iff';                                                              
libname in2 'codebook';                                                         
libname in3 'brands';                                                           
libname in4 'prepd';                                                            
libname in5 'idcode';                                                           
                                                                                
*****--------------------------------------------*****;                         
*    2.1 Add USDA Food Descriptions                *;                           
*****--------------------------------------------*****;                         
                                                                                
PROC SORT  DATA=IN1.IFF OUT=IFFDATA;                                            
           BY DRPFCODE;                                                         
                                                                                
PROC SORT  DATA=IN2.CODEBOOK OUT=CODEBOOK;                                      
           BY DRPFCODE;                                                         
                                                                                
DATA IFFDATA;                                                                   
           MERGE   IFFDATA(in=a)                                                
                   CODEBOOK(in=b);                                              
           BY DRPFCODE;                                                         
           IF A;                                                                
                                                                                
*****--------------------------------------------*****;                         
*    2.2 Add  Brands and Fast Food names          *;                            
*****--------------------------------------------*****;                         
                                                                                
PROC SORT  DATA=IFFDATA;                                                        
           BY DRPCOMM;                                                          
                                                                                
PROC SORT  DATA=IN3.BRANDS OUT=BRANDS;                                          
           BY DRPCOMM;                                                          
                                                                                
DATA IFFDATA;                                                                   
           MERGE   IFFDATA(in=a)                                                
                   BRANDS(in=b);                                                
     BY DRPCOMM;                                                                
     IF A;                                                                      
                                                                                
*****--------------------------------------------*****;                         
*    2.3 Add Preparation Descriptions                *;                         
*****--------------------------------------------*****;                         
                                                                                
PROC SORT DATA=IFFDATA;                                                         
           BY DRPPPDC;                                                          
                                                                                
PROC SORT  DATA=IN4.PREPD OUT=PREPD;                                            
           BY DRPPPDC;                                                          
                                                                                
DATA IFFDATA;                                                                   
           MERGE   IFFDATA(in=a)                                                
                   PREPD(in=b);                                                 
     BY DRPPPDC;                                                                
     IF A;                                                                      
                                                                               
*****--------------------------------------------*****;                         
*    2.4 Add NCC Food Descriptions                  *;                          
*****--------------------------------------------*****;                         
                                                                                
PROC SORT  DATA=IFFDATA;                                                        
           BY DRPFID;                                                           
                                                                                
PROC SORT  DATA=IN5.IDCODE OUT=IDCODE;                                          
           BY DRPFID;                                                           
                                                                                
DATA IFFDATA;                                                                   
           MERGE   IFFDATA(in=a)                                                
                   IDCODE(in=b);                                                
     BY DRPFID ;                                                                
     IF A;                                                                      
RUN;