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

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 ;