topic Need help on macro debugging in SAS Programming

Need help on macro debugging

kingCobra — Fri, 09 Jan 2015 16:31:28 GMT

Hi,

Here is my macro KCM.

options mlogic mprint;

%macro kcm;

%let __tmpmv_i = 1;

%do %while(%scan(%nrbquote(&__tmpmv_lab_param),&__tmpmv_i,%str( )) ne );

%let abcd = %scan(%nrbquote(&__tmpmv_lab_param),&__tmpmv_i,%str( ));

%if %qupcase(&abcd) = "HGB" %then %do;

%put ^^hemo;

%let __tmpmv_i = %eval(&__tmpmv_i + 1);

%end;

%else %do;

%let __tmpmv_i = %eval(&__tmpmv_i + 1);

%put ^^&abcd;

%end;

%mend;

%kcm;

The part in red is not working as expected. Here is the log

MLOGIC(KCM): %DO %WHILE(%scan(%nrbquote(&__tmpmv_lab_param),&__tmpmv_i, ) ne) condition is TRUE; loop will iterate again.

MLOGIC(KCM): %LET (variable name is ABCD)

MLOGIC(KCM): %IF condition %qupcase(&abcd) = "HGB" is FALSE

MLOGIC(KCM): %LET (variable name is __TMPMV_I)

MLOGIC(KCM): %PUT ^^&abcd

^^HGB

Clearly it can't recognize the value "HGB". &__tmpmv_lab_param contains 32 parameters including HGB. For the other parameter the green loop is working okay. Any idea why?

Any help is appreciated.

Kind regards,

Dhruba

Re: Need help on macro debugging

kaade — Fri, 09 Jan 2015 16:49:49 GMT

Hi. You don't need the double quotes around HGB. If you remove those, your code should work. %qupcase does not add quotes to a value.

Re: Need help on macro debugging

data_null__ — Fri, 09 Jan 2015 17:00:22 GMT

Are you sure you need this macro? Seems awfully complicated. What is it suppose to do? Maybe a nice data step would be better. :smileygrin:

Re: Need help on macro debugging

kingCobra — Fri, 09 Jan 2015 18:34:19 GMT

@kaade : I have tried single quotes too, didn't work.

@data _null_ : I need to develop a similar macro but with more complex calculations. I am just testing few steps with this one. A data step won't work because I have to call few other building block macros within the main macro. Long story short, I need to make the red step work.

Re: Need help on macro debugging

kaade — Fri, 09 Jan 2015 18:47:38 GMT

you don't need any quotes at all. The %if statement should look like:

%if %qupcase(&abcd) = HGB %then %do;

Re: Need help on macro debugging

Tom — Fri, 09 Jan 2015 20:06:28 GMT

It looks like you are trying to process lab test codes.

Cleaning text data is better done in a DATA step or SQL coding.

You can always store the values back into macro variables if you need to later.

Re: Need help on macro debugging

kingCobra — Tue, 20 Jan 2015 12:11:04 GMT

Thanks, it does the trick.

Re: Need help on macro debugging

RW9 — Tue, 20 Jan 2015 13:30:14 GMT

I totally agree with Tom/data_null_. You can use other macros in datastep language, no need to default to macro language. If you are writing a standard macro for others to use then simplifying you code would be beneficial.

Re: Need help on macro debugging

BurntDirt — Tue, 20 Jan 2015 18:57:28 GMT

It looks like you are trying to parse a macro variable that contains a string of lab parameters separated by a space.

Then when you find HGB, you want to do something, otherwise do something else.

If your macro variable that contains the string of lab parameters separated does not have any quotes or special characters, you can simplify this code to look something like this -

%macro kcm;

     %let nparm_=0;
     %if %length(&__tmpmv_lab_param) > 0 %then
          %do;
          %let nparm_=%sysfunc(countw(&__tmpmv_lab_param));

%do __tmpmv_i = 1 %to &nparm_;

%let abcd = %scan(&__tmpmv_lab_param,&__tmpmv_i);

               %if %upcase(&abcd) = HGB %then %do;
                    %put ^^hemo;
               %end;
               %else %do;
                    %put ^^&abcd;
               %end;

%end;
%end;

%mend;

%kcm;

It will make it easier to debug.

Otherwise, you can ignore me.

Good luck!