SAS ARRAY 获取 数组 变量名 VNAME

DATA AA;
　　SET SASHELP.CLASS;
　　LENGTH STR $1000;
　　ARRAY _N _NUMERIC_;
　　DO OVER _N;
　　N=_N_;
　　VNAME=VNAME(_N);
　　V=_N;
　　OUTPUT;
　　**STR=CATX(" ",STR,CATX("=",VNAME(_N),_N));
　　END;

RUN;

PROC PRINT ;
RUN;