研发埠

标题: fetchobs抓取数据集成功了，有啥用啊，能不能把抓取的那个观测给输出啊 [打印本页]

作者: 陈西 时间: 2013-8-16 17:07
标题: fetchobs抓取数据集成功了，有啥用啊，能不能把抓取的那个观测给输出啊

作者: 淡写轻描 时间: 2013-8-16 17:17
可以的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读取每条，你也可以使用记录数去循环读取每条

欢迎光临研发埠 (http://bbs.yanfabu.com/)