/*打开数据集lg.origin_num_ var*/
%let dsid=%sysfunc(open(lg.origin_num_var));
/*打开数据集无误(&dsid>0表示无误)*/
%if &dsid gt 0 %then %do;
/*取数据集lg.origin_num_var的行数*/
%let nobs=%sysfunc(attrn(&dsid,nobs));
/*循环从第一行开始读到最后一行*/
%do i=1 %to &nobs;
/*打开第&i行*/
%let rc=%sysfunc(fetchobs(&dsid,&i));
/*返回变量name在数据集lg.origin_num_var的位置*/
%let varnume=%sysfunc(varnum(&dsid,name));
/*返回变量name的第&i行的值(如果name是字符型,则用getvarc,数值型用getvarn*/
%let variable=%sysfunc(getvarc(&dsid,&varnume));


雷达卡




京公网安备 11010802022788号







