%MACRO BMI(WEIGH,HIGH);
DATA BMI;
SET sashelp.class;
BMI=ROUND(&WEIGH/(&HIGH*&HIGH/(100*100)),0.01);
IF 100<BMI<500 THEN OUT="体重为&WEIGH.,身高为&HIGH.";
KEEP Name Sex &HIGH &WEIGH BMI out;
RUN;
PROC SORT ;BY BMI;RUN;
%MEND;
%BMI(WEIGH=Weight ,HIGH=Height);RUN;