Below is my macro: %macro try(dsns=); %let dsnnum=%sysfunc(countw("&dsns.", ' ,;:')); %put &dsnnum.; %do k=1 %to &dsnnum. %let dsn=%scan(&dsns., &k., %str( ,)); %put &dsn.; %end; %mend ; %try(dsns=%str(aaa, bbb, ccc))   For the first loop, I want it &dsn=aaa, second loop &dsn=bbb, third loop &dsn=ccc;   when I run above code, it produces some errors:   WARNING: Apparent symbolic reference K not resolved. WARNING: Apparent symbolic reference K not resolved. ERROR: A character operand was found in the %EVAL function or %IF condition where a numeric operand is required. The condition was: &k. ERROR: Argument 2 to macro function %SCAN is not a number.     Someone can help me out?   Thanks George ... View more

I want to built a function to remove the duplicates in a string. In data step, the logic works well, however when I transfer it into function, it did not work. Does someone help me to figure out? thanks   Below is the data step: ******************************************************************* data a; string = "spanner,span,spaniel,span,abc,span,bcc"; string2=string; length word $100; i = 2; do while(scan(string2, i, ',') ^= ''); word = scan(string2, i, ','); do j = 1 to i - 1; if word = scan(string2, j, ',') then do; start = findw(string2, word, ',', findw(string2, word, ',', 't') + 1, 't'); string2 = cats(substr(string2, 1, start - 2), substr(string2, start + length(word))); end; end; i = i + 1; end; keep string string2; run; **************************************************************************   Below is the function I want to built: *************************************************** proc fcmp outlib=work.funcs.rem_dup; function rem_dup(string $) $; string2=string; length word $100; i = 2; do while(scan(string2, i, ',') ^= ''); word = scan(string2, i, ','); do j = 1 to i - 1; if word = scan(string2, j, ',') then do; start = findw(string2, word, ',', findw(string2, word, ',', 't') + 1, 't'); string2 = cats(substr(string2, 1, start - 2), substr(string2, start + length(word))); end; end; i = i + 1; end; return(string2); endsub; run;  **************************************************   Call the function:   ************************************** options cmplib=(work work.funcs); data B; string = "spanner,span,spaniel,span,abc,span,bcc"; string2=rem_dup(string); run; ... View more

Below is my code and output. data a; input gr $ TRT $ Visno $ Param $ value; datalines; Gr1 TRT1 v1 A 8 Gr1 TRT1 v1 B 6 Gr1 TRT1 v1 C 5 Gr1 TRT1 v2 A 6 Gr1 TRT1 v2 B 7 Gr1 TRT1 v3 C 8 Gr1 TRT2 v1 A 3 Gr1 TRT2 v1 B 7 Gr1 TRT2 v1 C 5 Gr1 TRT2 v2 A 10 Gr1 TRT2 v2 B 6 Gr1 TRT2 v3 C 10 Gr2 TRT3 v1 A 10 Gr2 TRT3 v1 B 16 Gr2 TRT3 v1 C 18 Gr2 TRT3 v2 A 14 Gr2 TRT3 v2 B 11 Gr2 TRT3 v3 C 15 ; proc report data=a nocompletecols; column gr trt visno, (param, value); define gr / group ; define trt / group; define visno / across; define param / across; run;   In  output, the gr column has a blank and it should be filled with 'Gr1'.  How can I fill the blank with gr value? please advice thanks.   Below is the output, with blank in gr column     Below is what I want,  Filled with Gr1        ... View more