用 substr分别提取年月日  然后再用MDY函数转化为日期

please try the following:

data a;
input x;
datalines;
19980216
;
run;
data b;
set a;
dt=input(put(x, 8.)
                 , yymmdd8.);
format dt date9.;
run;