|
可以的data a;input group $ number point;cards;A 1 85A 2 66B 1 69C 3 55D 4 33;run;%macro test;*打开存放参数的数据集;%let dsid=%sysfunc(open(work.a,i));%put &dsid; *%put是在日志输出改宏变量的值;*fetch是为了判断是否读取完数据集记录,若已读完,则返回-1,否则返回0,赋给宏变量rc;%let rc=%sysfunc(fetch(&dsid)); %do%while(&rc=0); *trim是去掉字符右边的空格,left是去掉字符左边的空格,getvarc(&dsid,1)是读取数据集的第一列,读取第二列则为getvarc(&dsid,2),getvarc是针对字符,若该列是数值型的则为getvarn(&dsid,2); %letgroup=%sysfunc(trim(%sysfunc(left(%sysfunc(getvarc(&dsid,1)))))); %letnumber=%sysfunc(trim(%sysfunc(left(%sysfunc(getvarn(&dsid,2)))))); %letpoint=%sysfunc(trim(%sysfunc(left(%sysfunc(getvarn(&dsid,3)))))); %put&group; %put &number; %put &point; %letrc=%sysfunc(fetch(&dsid)); *同上fetch; %put&rc; %end; %letrc=%sysfunc(close(&dsid)); *关闭数据集; %put&rc;%mend;%test;这里使用do while读取每条,你也可以使用记录数去循环读取每条 |
|
共 1 个关于本帖的回复 最后回复于 2013-8-16 17:17