求大神帮忙看一下，我想截取变量的某一位有效数字，这是我写的程序，不知道为什么
跑完结果实在是不理想，请大神指点迷津，谢谢啦，附数据

PROC IMPORT OUT= RAWDATA.raw
DATAFILE= "C:\Documents and Settings\gt\桌面\论文发表准备\Ra
wdata\论文原始数据.xls"
DBMS=EXCEL REPLACE;
SHEET="转置后原始数据汇总$";
GETNAMES=YES;
MIXED=NO;
SCANTEXT=YES;
USEDATE=YES;
SCANTIME=YES;
RUN;

/*数据处理获取某一位或某几位有效数组 并统计频率 */

data STEP_1(KEEP=X1 X2 X3 X4 X5 X6 X7 y1);
set RAWDATA.raw;
x1=put(M1,$6.);
x2=put(M2,$6.);
x3=put(M3,$6.);
x4=put(M4,$12.);
x5=put(M5,$12.);
x6=put(M6,$12.);
x7=put(M7,$12.);
run;

%MACRO BEN_NUM(OUTDATA,i,j);
data &OUTDATA;
set RAWDATA.raw;
y1=substr(M1,&i,&j);
y2=substr(M2,&i,&j);
y3=substr(M3,&i,&j);
y4=substr(M4,&i,&j);
y5=substr(M5,&i,&j);
y6=substr(M6,&i,&j);
y7=substr(M7,&i,&j);
drop M1 M2 M3 M4 M5 M6 M7;
run;
%MEND BEN_NUM ;