cancel
Turn on suggestions
Auto-suggest helps you quickly narrow down your search results by suggesting possible matches as you type.
Showing results for 
Search instead for 
Did you mean: 
shingMAK
‎07-30-2024
  • 5 Posts
  • 0 Likes Given
  • 1 Solutions
  • 0 Likes Received

Re: macro programming

by Fluorite | Level 6 in SAS Programming
‎07-23-2024 11:23 PM
‎07-23-2024 11:23 PM
Oh yeah, I got that ! Thank you for all your help. This my code finally.   data testdata; input serial col1-col5 ; datalines; 1 1 1 3 2 2 2 2 2 4 5 5 3 10 10 3 7 7 ; %macro prorate(serial,target,varlist); %local i var ; if serial = &serial then do; total=sum(of &varlist); %do i=1 %to %sysfunc(countw(&varlist,%str( ))); %let var=%scan(&varlist,&i); &var = round((&target/total)*&var) ; %end; end; drop total; %mend prorate; options mprint; data temp; set testdata; %prorate(serial=1, target=1000, varlist=col1 col2 col3); %prorate(serial=2, target=10000, varlist=col2 col3 col4); %prorate(serial=3, target=400, varlist=col1 col2 col3 col4 col5); run; /* turn off the mprint */ options nomprint; ... View more

Re: macro programming

by Fluorite | Level 6 in SAS Programming
‎07-23-2024 02:37 AM
‎07-23-2024 02:37 AM
I am sorry, as my computer setting do not allow to copy text out from SAS, I need to input the code separately and screen capture separately. This is the code. The error screen is captured in the word document.   I think the error in this row %do i=1 %to %sysfunc(countw(&varlist,%str( )));   ====   data testdata; input serial col1-col5 ; datalines; 1 1 1 3 2 2 2 2 2 4 5 5 3 10 10 3 7 7 ; %macro prorate(serial,target,varlist); %local i var ; if serial = &serial then do; total=sum(of &varlist); %do i=1 %to %sysfunc(countw(&varlist,%str( ))); %let var=%scan(&varlist,%str( )); &var = (&target/total)*&var ; %end; end; drop total; %mend prorate; options mprint; data temp; set testdata; %prorate(serial=1, target=1000, varlist=col1 col2 col3); %prorate(serial=2, target=10000, varlist=col2 col3 col4); %prorate(serial=3, target=400, varlist=col1 col2 col3 col4 col5); run; /* turn off the mprint */ options nomprint; ... View more

Re: macro programming

by Fluorite | Level 6 in SAS Programming
‎07-23-2024 12:54 AM
‎07-23-2024 12:54 AM
The code is very useful.  I got the idea, but I don't know what is the error about....Is that the problem of the SAS software in my computer?   I try to use the code from you like this the character bold is edited by me. There is a warning for the  %do i=1 to %sysfunc(c...,     so it is updated as %to add some closing bracket added     ERROR: %EVAL Function has no expression to evaluate, or %IF statement has no condition. ERROR: Argument 2 to macro function %SCAN is not a number ERROR: The macro stop     %macro prorate(serial,target,varlist); %local i var ;        if serial = &serial then do;                 total=sum(of &varlist);                 %do i=1 %to %sysfunc(countw(&varlist,%str( )));                              %let var=%scan(&varlist,%str( ));                               &var = (&target/total)*&var ;                 %end;          end; drop total; %mend prorate; ... View more

Re: macro programming

by Fluorite | Level 6 in SAS Programming
‎07-22-2024 10:51 PM
‎07-22-2024 10:51 PM
Thank you for your reply.   The original code of data step is given below. It is simple and direct but is too long, and doing similar work with different parameter only, so that I would like to simply it by creating something like function/macro.   While I understand in SAS, I cannot create a function to do so, but....is that any other way to simply the code?     =================== Data abcde; set abcde;   if serial = 1 then do; ***  protatra  col1, col2, col3  to 200 end;   if serial = 2 then do; ***  protatra  col3, col6, col8  to 155 end;   if serial = 3 then do; ***  protatra  col7, col10, col15  to 4779 end;   if serial = 888 then do; ***  protatra  col12, col2, col5  to 177777 end;   ... View more

macro programming

by Fluorite | Level 6 in SAS Programming
‎07-22-2024 09:00 PM
‎07-22-2024 09:00 PM
Hi all,   I have background on VBA programming, however, I got trouble in using macro in SAS. It seems macro is not totally like to create a function.  Can anyone help me, please?   There are many fields in my dataset and I would like to pro-rata adjust the value of them with a total value.  So, I would like to prepare a function/subroutine/macro.   Problem 1.  I wounder why the value of dummy will be changed when the value of n1 changed. >>>%let dummy=sum(&n1,&n2,&n3); >>>&n1=&n1/&dummy*&c; >>>&n2=&n2/&dummy*&c;   *<<<  the value of dummy is changed, due to the n1 changed in last row;   Problem 2. I tried to add the function %EVAL but failed, the error is when the co1 pass to the macro, the compiler convert the col1 to string the EVAL only can handle numeric number     ==================================   Here is the example code.     data testdata;   input col1 col2 col3 col4 col5;   datalines;  1 1 3 2 2  2 2 4 5 5  10 10 3 7 7   ; run;   %MACRO prorata3(c,n1,n2,n3); %let dummy=sum(&n1,&n2,&n3); &n1=&n1/&dummy*&c; &n2=&n2/&dummy*&c;   *<<<  the value of dummy is changed, due to the n1 changed in last row; &n3=&n3/&dummy*&c;   %MEND prorata3;         data temp; set testdata; %prorata3(1000,col1,col2,col3); /*  if there exists any other condition later %prorata4(10000,col2,col3,col4);  %prorata5(400,col1,col2,col3,col4,col5); */ run; =============================================== The expected output should be 200 200 600 2 2 250 250 500 5 5 435 435 130 7 7   But the output is    200 5 14 2 2 250 8 15 5 5 435 22 7 7 7     ... View more
Contact Me
Online Status
Offline
Date Last Visited
‎07-30-2024 06:47 AM
Quick links