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

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

   Version     : 1.0 (10.05.02)
  
   Subject     : Extracting covariate names for labelling the betas of the result
                 (with FPs)

   Arguments   : namen = string containing all variable names
                 i = covariable, whis the FP covariable
                 m = "degree" of the FP
                 se = output contains also labelling for the SE

   Example     : Covariates: age nodes er pr

                 %let namen=age nodes er pr;

                 * Use of macro exlabb;
                 %exlabb(&namen, 2, 2, 0);

                 * Output 
                 beta1="nodes1" beta2="nodes2"

                 * Use of macro exlabb;
                 %exlabb(&namen, 2, 2, 1);
                 beta1="nodes1" se1="nodes1(SE)" beta2="nodes2" se2="nodes2(SE)"
                     
-----------------------------------------------------------------------------*/

%macro exlabb(namen, i, m, se);

%local j vari exlabb;

%if &m=0 %then %let m=1;
%let exlabb=;
%let vari=%qscan(&namen, &i,%str( ));

%do j=1 %to &m;
   %let exlabb=&exlabb beta&j="&vari._&j";
   %if &se=1 %then %let exlabb=&exlabb se&j="&vari._&j(SE)";
%end;

&exlabb

%mend;