/*-----------------------------------------------------------------------------

   Macro brename

   Author      : Carolina Meier-Hirmer (cmh@fdm.uni-freiburg.de)

   Version     : 1.0 (17.05.02)

   Subject     : Renaming the last estimates

   Arguments   : mvx = string containing the used transformations
                 se = output contains also labelling for the SE

   Example     : %let mvx=;

                 * Use of macro brename;
                 %brename(&mvx, 1);

                 * Output

                 %let mvx=X1_11;

                 * Use of macro brename;
                 %brename(&mvx, 1);

                 * Output
                 beta1= X1_11 se1= SEX1_11

-----------------------------------------------------------------------------*/

%macro brename(mvx, se);

%local j vari brename;

%let brename=;
%let j=1;

%let vari=%qscan(&mvx, &j, %str( ));
%do %while (%length(&vari)>0);
   %let brename=&brename beta&j=&vari;
   %if &se=1 %then %let brename=&brename se&j=%trim(SE&vari);
   %let j=%eval(&j+1);
   %let vari=%qscan(&mvx, &j, %str( ));
%end;

&brename

%mend;