%MACRO SCOREVR( PVAR=, RLIST=, CLIST=, N=);
%**********************************************************************
***********************************************************************
  MACRO NAME:     SCOREVR
  PURPOSE:        calculate SCORE variable
  PARAMETERS:
                  PVAR    - SCORE variable name
                  RLIST   - regression variables list
                  CLIST   - coefficients list
                  N       - number of variables/coefficients
***********************************************************************;

  &PVAR=0;
  DO _I=1 TO &N;
     &PVAR = &PVAR + &RLIST(_I) * &CLIST(_I);
  END;

%MEND SCOREVR;