data readEMdash1;
  infile "c:\temp\dinosaur\EMdash.dat";
  input @1 number1 number2
        @1 char1 $ char2 $ ;
  if number2=. then do;
    char2fixed=translate(char2,"-","97"x,);
    number2fixed=input(char2fixed,8.);
  end;
  else number2fixed=number2;
  format char: $hex16.;
run;
proc print data=readEMdash1;
  var Number1 Number2 Char2 Char2Fixed Number2Fixed;
  title1 "Data containing EM dash character instead of hyphen";
run;