Your list==control data set does not contain values that are matched as parameter pairs GAFI bolivie SANCTION bélarus in other words for list processing the values in row.1 are the parameters to a macro call the values in row.2 are the parameters to a macro call ... the values in row.N are the parameters to a macro call if you create two control data sets MyGafi and MySantion(s) then you can modify my macros above to the following: %is_in(category=refus       ,data=MyGafi       ) %CallText(data = &Data    ,MacroText =    or index(lowcase(strip(objet)),"&Gafi")    ) Here is the page with the Macro CallText: http://www.sascommunity.org/wiki/Macro_CallText Ron Fehd  list processing maven ... View more

I believe this will do what you want: %macro is_in(category=             ,list=             ,two_words=             ,testing=0             ); %let testing = %eval(&Testing or %sysfunc(getoption(mprint)) eq MPRINT); %local I; if 0    %do I = 1 %to %sysfunc(countw(&List,%str( )));        %let item = %scan(&List,&I,%str( ));        %if &Testing %then %put note: item:&Item;        or index(lowcase(strip(objet)),"&Item")        %end;    %if %length(&Two_Words) %then %do;        or index(lowcase(strip(objet)),"&Two_Words")        %end;         then do;    if index(lowcase(strip(objet)),"&Category") then do;       count_sanction_&Category=count_sanction_&Category+1;       switch = "y";       end;    end;  %mend;  %is_in(category=acc       ,list= bolivie  chypre    cyprus    équateur equateur éthiopie ethiopie indo     kenya    nigeria  nigéria  pakistan sao      tanzanie thai     tailand  turquie  viet     yemen    yémen ,two_words=srilanka ) %is_in(category=refus       ,list=       ) This technique of scanning a list for each item is shown in http://www.sascommunity.org/wiki/List_Processing_Basics_Creating_and_Using_Lists_of_Macro_Variables Ron Fehd  list processing maven ... View more

Your code can be made more readable by consolidating the multiple function calls: if ( index(lowcase(strip(objet)),'bolivie')  or index(lowcase(strip(objet)),'chypre')  or index(lowcase(strip(objet)),'cyprus')   or index(lowcase(strip(objet)),'équateur') or index(lowcase(strip(objet)),'equateur') or index(lowcase(strip(objet)),'éthiopie') or index(lowcase(strip(objet)),'ethiopie') or index(lowcase(strip(objet)),'indo') or index(lowcase(strip(objet)),'kenya')    or index(lowcase(strip(objet)),'nigeria')  or index(lowcase(strip(objet)),'nigéria')  or index(lowcase(strip(objet)),'pakistan') or index(lowcase(strip(objet)),'sao') or index(lowcase(strip(objet)),'sri lanka') or index(lowcase(strip(objet)),'tanzanie') or index(lowcase(strip(objet)),'thai') or index(lowcase(strip(objet)),'tailand')  or index(lowcase(strip(objet)),'turquie')  or index(lowcase(strip(objet)),'viet') or index(lowcase(strip(objet)),'yemen')    or index(lowcase(strip(objet)),'yémen')       ) then do;    if index(lowcase(strip(objet)),'acc') then do;   count_gafi_acc=count_gafi_acc+1;   switch = "y";   end;    else    if index(lowcase(strip(objet)),'refus') then do;   count_gafi_refus=count_gafi_refus+1;   switch = "y";   end;      end; Ron Fehd  logical simplicity: know redundancy maven ... View more

in order to fill in the range of values which asterisks represent you have to provide that list: %Let ItemNmbrs = 120 150 250; %macro fluff(prefix=,infix=,suffix=); %local I J K dim_I dim_J dim_K value; %let I = 1; %let J = 1; %let K = 1; %let dim_I = %sysfunc(countw(&prefix,%str( ))); %let dim_J = %sysfunc(countw(&infix ,%str( ))); %let dim_K = %sysfunc(countw(&suffix,%str( ))); %let value =; %Loop: %let Pfx = %scan(&Prefix,&I); %let Nfx = %scan(&Infix ,&J); %let Sfx = %scan(&Suffix,&K); %let value = &Value. &Pfx.&Nfx.&Sfx.; %if     &I eq &Dim_I     and &J eq &Dim_J     and &K eq &Dim_K %then %do;     &value     %*goto %exit;     %return;     %end; %if &I lt &Dim_I %then %let I = %eval(&I+1); %if &J lt &Dim_J %then %let J = %eval(&J+1); %if &K lt &Dim_K %then %let K = %eval(&K+1); %goto Loop; %exit: %mend; %Let Item = %fluff(prefix=A,infix=&ItemNmbrs,suffix=XXX); %put Item:&Item; Ron Fehd  loop maven http://www.sascommunity.org/wiki/Do_which_loop_until_or_while ... View more

I have had many discussions with other SAS-L peers over the years about this idea of %including user-written macros before they are called. summary: keep the log short: do not %include SAS does the %include for you via the option sasautos. commentary: isn't mprint enough for you to see the code generated? Ron Fehd  SASautos maven http://www.sascommunity.org/wiki/SASautos_Companion_Reusing_Macros ... View more