You could use more rigorous version of scan() with 'kd' option:
data _null_;
length t1 t2 x $ 40;
x='111'||'09'x||'222'||'0A'x||'333';
t1=scan(x,1,,'s');
t2=scan(x,1,,'kd');
put t1= t2=;
t1=scan(x,2,,'s');
t2=scan(x,2,,'kd');
put t1= t2=;
t1=scan(x,3,,'s');
t2=scan(x,3,,'kd');
put t1= t2=;
run;
... View more