I have a question regarding your approach to complex project / long SAS code files. One problem that I frequently encountre with long SAS projects, is that the code becomes so long that it becomes difficult to come back at a later stage and just jumt into a specific pasrt and debug it or change it... Commenting the code is something that I always use, but still, this becomes impractical when the code is very long...   I wish that SAS could add the option of  Bookmarks into the code so that it would easier to find the part I want to go to and debug from there.   HOWEVER, my approach now is to split the code, so I have one file that prepares the main dataset, and then several other .sas files with code that basically built from the main dataset to give a specific part of the solution.   This is not a straight forward solution as you can imaging, my question to you is: Is there a code/way to excute the code in a .sas file from another .sas file What I am trying to do is something somilar to %include but that would excute standard sas code rather than a Macro code. So here is what I want to do   some code to excuse data.sas which prepares the main dataset . . . . code here to process the data generates .. . . I am also interested to hear what you do or if you have a different approach to long/ complex sas code files Thnak you ... View more

Hi everyone I recently posted a question on filling cells with values from cells above  https://communities.sas.com/t5/General-SAS-Programming/Filling-a-cell-with-the-value-above-by-group/m-p/391108#M49407 this was kindly answered by both @Tom and @Jagadishkatam   I am reposting the question with a change...   I have a dataset with a column containing missing values. I am trying to fill these missing values from the cells above provided that the two rows belong to the same group.   Here is the dataset:   data a; input N Group Var; datalines; 1 1 3 2 1 6 3 1 2 4 1 . 5 2 . 6 2 6 7 3 3 8 3 . 9 3 5 10 4 . 11 3 . ; run; The solusion suggested is  data want ; set a ; by group ; if first.group then want=var; else want=coalesce(var,want); retain want; run; The problem is that this solution assumes that you can sort the database by group so that you can use the Data...Set...By and then first.group. i can not sort the data by group because it will mess the order of the rows, and the whole idea of filling the cells with valuse above is based on the current order. So, is there any other way of achieving the same thing, ie filling an empty cell with the value above it provided that they both belong to the same group Thanks ... View more

Hi everyone I have a dataset with a column containing missing values. I am trying to fill these missing values from the cells above provided that the two rows belong to the same group.   Here is the dataset: data a; input N Group Var; datalines; 1 1 3 2 1 6 3 1 2 4 1 . 5 2 . 6 2 6 7 3 3 8 3 . 9 3 5 10 4 . ; run; so for N=4 the var column should fill with the value above (2) since both rows belong to group 1. However, for N=5, this should be left empty as it is a new group. i tried the following code, but it is filling the cells with the value above regardless the group:   DATA want (DROP = X) ; SET have ; by group; RETAIN X ; IF NOT MISSING(var) THEN X = var ; var = X ; if missing(var) then delete; RUN ; So the output dataset should look like the following  N Group Var 1 1 3 2 1 6 3 1 2 4 1 2 5 2 . 6 2 6 7 3 3 8 3 3 9 3 5 10 4 . Any help is appreciated kind regards   ... View more

Hi everyone   @Ksharp gave a great solusion to the probelm of extracting a sentence with keyword from a text:   data want; set have; pid=prxparse('/([^\.]|\.(?=\d))+\./o'); start=1;stop=length(string); call prxnext(pid,start,stop,string,p,l); do while(p>0); found=substr(string,p,l); if find(found,'keyword','i') then output; call prxnext(pid,start,stop,string,p,l); end; run; Out of interest, anyinw can suggest modification to this code to also extract the sentence before the one that containes the keyword? Thanks ... View more

Hi everyone i am trying to convert the following code into macro, it basically breakes a text into sentences and then picks a sentence that has  keyword_1, and then extracts a number of words (5) before and after that keyword and check if any of these words match  keyword_2 so if you start with : text text text text text text text text text text .text text text text text text text text text .text text text text text text text text text .text text text text text .  GOOD SENTENCE HERE THAT SHOULD BE EXTRACTED. text text text text text text text text text text text text text text text text text text text  if you use keywords "sentence" and "should", The first part of the code picks up:  text text .  GOOD SENTENCE HERE THAT SHOULD BE EXTRACTED second part of the code will find the keyword "should" and return that keyword_2='present'     Here is the working code:  data want_1; set have; prxid=prxparse('/([^\.]|\.(?=\d))+\./o'); start=1;stop=length(textstring); call prxnext(prxid,start,stop,textstring,position,length); do while(position>0); hh=substr(textstring,position,length); if find(hh,'keyword_1','i') then output; call prxnext(prxid,start,stop,textstring,position,length); end; drop start stop position length prxid; run; data want_2; set want_1; do i=1 to countw(hh," "); if scan(hh,i," ")="keyword_1" then do; beforei=scan(hh,i-1," "); beforei2=scan(hh,i-2," "); beforei3=scan(hh,i-3," "); beforei4=scan(hh,i-4," "); beforei5=scan(hh,i-5," "); afteri=scan(hh,i+1," "); afteri2=scan(hh,i+2," "); afteri3=scan(hh,i+3," "); afteri4=scan(hh,i+4," "); afteri5=scan(hh,i+5," "); j=trim(left(beforei5)) ||' '||trim(left(beforei4)) ||' '||trim(left(beforei3)) ||' '|| trim(left(beforei2)) ||' '|| trim(left(beforei)) ||' '|| 'keyword_1' ||' '|| trim(left(afteri)) ||' '|| trim(left(afteri2)) ||' '|| trim(left(afteri3)) ||' '|| trim(left(afteri4)) ||' '|| trim(left(afteri5)); end; end; keyword_2='absent'; if prxmatch( '/\s(keyword_2)\s/i', j) then keyword_2='Present'; run; Here is an attempt at converting it to macro: %MACRO PRTMAC(string, match_a, match_b, wn); %local start stop position position; %local RegexID found; %local i x st en; %global string_temp_1 string_temp_2 string_temp_3 retuen_variable; %let RegexID=%sysfunc(prxparse('/([^\.]|\.(?=\d))+\./o')); %let start=1; %let position=0; %let length=0; %let stop=%length(&string); %syscall prxnext(RegexID,start,stop,string,position,length); %do %while(&position>0); %let string_temp_1=substr(&string,&position,&length); %if %sysfunc(find(&string_temp_1,match_a)) %then %let string_temp_2=&string_temp_1; %syscall prxnext(RegexID,start,stop,string,position,length); %end; %do i=1 %to %sysfunc(countw(&string_temp_2," ")); %if %sysfunc(scan(&string_temp_2,i," "))=&match_a %then %do; %if &wn > &i %then %let st=1; %else %let st=&i-&wn; %if &wn+&i > countw(&string_temp_2," ") %then %let en=countw(&string_temp_2," "); %else %let en=&wn; %do x=&st %to &en; %let string_temp3=&string_temp3 ||' '|| %sysfunc(scan(string_temp_2,i-x," ")); %end; %end; %end; %if %sysfunc(prxmatch( '/\s(match_b)\s/i', string_temp3)) %then %let retuen_variable='Present'; %else %let retuen_variable='Absent'; data d; set analyse; String_1=&string_temp_1; String_2=&string_temp_2; String_3=&string_temp_3; Return=&retuen_variable; run; %mend; data want; set have; %PRTMAC(result, "keyword", "test", 3); run; I am not getting this to work, any suggestion on any changes pease? Kind regards   ... View more