 ***********************************************************************;
 *macro to calculate score variable
 ***********************************************************************;
    %MACRO SCORECAL( PVAR=, RLIST=, CLIST=, N=);

         ***************************************************;
         *parameters:
                PVAR    - predicted expenditure variable
                RLIST   - regression vars list
                CLIST   - coefficients list
                N       - number of variables/coefficients;
         ***************************************************;

        *create predicted expenditures for model&nmodel;
        &PVAR=0;
        DO _I=1 TO &N;
           &PVAR = &PVAR + &RLIST(_I) * &CLIST(_I);
        END;

   %MEND SCORECAL;
