 %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;
