Using an array would be much better. let us know if you need help with coding. ... View more

First you need to understand that joining (commonly known as merging) and stacking tables are 2 different operations. 1) If you are joining them (meaning side by side) then as previously mentioned you need to have one or more id variables to join by and you need to rename varibles that have same name in more than one dataset. 2) If you are stacking them (meaning one after other) then you do not need one or more id variables and you do not need to rename variables that have same name and are of same type.   If you do not want to type out variables again and again you can put them in a macro variable eg: %let vartokeep= var1 var2 ...;   then if you are stacking them together you can use a simple data step:   data want;  set have1(keep=&vartokeep.) have2(keep=&vartokeep) ...; run; ... View more

Last record for 12/03 is not within 30 days of 09/24. Slightly lengthy version will give you all the rest: proc sort data=have out=have1; by id date; where cmiss(id,disease)<=0; run; data have1; set have1; by id date; retain ord; if first.id then ord=0; ord=ord+1; run; proc transpose data=have1 out=have1t prefix=datex; by id; var date; id ord; run; data want; merge have(in=a) have1t(in=b); by id; if a and b; format date date10.; run; data want(drop=i datex: _:); set want; array temp{*} datex:; do i =1 to dim(temp); if nmiss(temp[i])=0 then do; if temp[i]-30<=date<=temp[i]+30 then output; end; end; run; proc sort data=want nodupkey; by id date disease; run; ... View more

1) Remove ';' from format values 1 and 2 2) remove last ',' before ')' from below: if _n_ in (1, 3, 5, 7, 9, 11, 13, 15, 17, 19, 21, 23, 25, ) then gender = 'Male'; 3) I believe you want to use format for variable level instead of learningtype   ... View more

I don't know about SAS/OR but if you can create a dataset of pairs you can do this in base SAS data pair; input pair $; datalines; 01-02 01-03 02-03 04-05 04-06 05-06 ; run; data new(drop=pair1 pair2); set pair; retain unique pair1 pair2; if _n_=1 then do; unique=1; pair1=scan(pair,1,"-"); pair2=scan(pair,2,"-"); end; else if indexw(translate(pair," ","-"),pair1)<=0 and indexw(translate(pair," ","-"),pair2)<=0 then do; unique=unique+1; pair1=scan(pair,1,"-"); pair2=scan(pair,2,"-"); end; run; ... View more

This will create pairs of values that are same data test1; set test; length x $100; x=""; array test{*} var1-var10; do i=1 to dim(test)-1; do j=1 to dim(test)-i; if test{i}=test{i+j} then x=strip(x)||" "||strip(put(i,best.))||"-"||strip(put(i+j,best.)); end; end; drop i j; run; ... View more

To create a file for each company you can use macro: %macro test(); proc sql noprint; select distinct(company) into: _comlst separated by "#" from indata; select count(distinct(company)) into: _comnum from indata; quit;   %do i=1 %to &_comnum; %let currcomp=%scan(&_complst.,&i,#); data _null_; set indata; where company="&currcomp."; file "&currcomp..txt"; ... ... ... run; %end; %mend; ... View more