data europe;
   length SalesID $ 4 Location $ 3;
   infile 'sales.dat';
   input SalesID $ Location $ @;
      if Location='EUR';
         input SaleDate : date9. Amount : numx8.;
run;

proc print data=europe noobs;
   title' European Sales Figures';
run;