/**********************************************************************/


   /* Example 1: Using the SHAREBUFFERS Option */
        
data _null_;                                       
   infile long sharebuffers;                       
   input @110 x @;                                 
   if mod(x,10)=0 then                             
     do;                                           
        input @120 y;                              
        y+10;                                      
        file long;                                 
        put @120 y 4.;                             
     end;                                          
run;                                               


/**********************************************************************/


   /* Example 2: Without Using the SHAREBUFFERS Option */

data _null_;                                       
   infile long;                                    
   input @110 x @;                                 
   if mod(x,10)=0 then                             
      do;                                          
         input @120 y;                             
         y+10;                                     
         file long;                                
         put _infile_ @120 y 4.;                   
      end;                                         
run;


/**********************************************************************/