Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- data classivar_1;
- set classvar;
- AnaClassVar=scan(scan(F2,1," "),2,".");
- run;
- proc sql;
- select AnaClassVar into : MacClassVar separated by "#" from classivar_1 ;
- select count(*) into: Count_classvar from classivar_1;
- quit;
- %put &MacClassVar.;
- %put &Count_classvar.;
- ods output variables=adsl_var;
- proc contents data=ev.adsl;
- run;
- proc sql;
- select variable into : AllVar separated by "#"
- from adsl_var;
- select count(*) into : Count_Allvar from adsl_var;
- quit;
- %put &Allvar.;
- %put &Count_Allvar.;
- **** set up Macro ClassAna to analyze the classified varialbes;
- %macro ClassAna(datasets= );
- %do i= 1 %to &Count_classvar.;
- %do count=1 %to &Count_Allvar;
- %if %sysfunc(find(%scan(&MacClassVar,&i,#),%scan(&AllVar,&count,#)))
- %then %do;
- %let Class_var&i.=%scan(&AllVar,&count,#);
- %end;
- %end;
- %put &&Class_var&i..;
- %end;
- %Mend;
- %ClassAna(datasets=sashelp.class)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement