%MACRO SCOREVAR( PVAR=, RLIST=, CPREF=); %********************************************************************** *********************************************************************** 1 MACRO NAME: SCOREVAR 2 PURPOSE: calculate SCORE variable 3 PARAMETERS: PVAR - SCORE variable name RLIST - regression variables list CPREF - coefficients Prefix: coefficients name are the same as corresponding variable name with thei prefix ***********************************************************************; %LOCAL I; %LET I=1; &PVAR=0; %DO %UNTIL(%SCAN(&RLIST,&I)=); &PVAR = &PVAR + %SCAN(&RLIST,&I)*&CPREF%SCAN(&RLIST,&I); %LET I=%EVAL(&I+1); %END; %MEND SCOREVAR;