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

proc print data=sales noobs;
   title 'Sales for US and Europe';
run;