Thank you very much ... View more

Please bear with me. I have a dataset with variables like div size lev roa etc which I want to winsorize. I have gvkey as the main identifier. I have tried using the code below but to no avail. I'm sure I'm not filling out the code well. Please note that this is a sample code I'm trying to use. Your help is very much appreciated! The macro is : %macro winsor(dsetin=, dsetout=, byvar=none, vars=, type=winsor, pctl=1 99); %if &dsetout = %then %let dsetout = &dsetin; %let varL=; %let varH=; %let xn=1; %do %until ( %scan(&vars,&xn)= ); %let token = %scan(&vars,&xn); %let varL = &varL &token.L; %let varH = &varH &token.H; %let xn=%EVAL(&xn + 1); %end; %let xn=%eval(&xn-1); data xtemp; set &dsetin; run; %if &byvar = none %then %do; data xtemp; set xtemp; xbyvar = 1; run; %let byvar = xbyvar; %end; proc sort data = xtemp; by &byvar; run; proc univariate data = xtemp noprint; by &byvar; var &vars; output out = xtemp_pctl PCTLPTS = &pctl PCTLPRE = &vars PCTLNAME = L H; run; data &dsetout; merge xtemp xtemp_pctl; by &byvar; array trimvars{&xn} &vars; array trimvarl{&xn} &varL; array trimvarh{&xn} &varH; do xi = 1 to dim(trimvars); %if &type = winsor %then %do; if not missing(trimvars{xi}) then do; if (trimvars{xi} < trimvarl{xi}) then trimvars{xi} = trimvarl{xi}; if (trimvars{xi} > trimvarh{xi}) then trimvars{xi} = trimvarh{xi}; end; %end; %else %do; if not missing(trimvars{xi}) then do; if (trimvars{xi} < trimvarl{xi}) then delete; if (trimvars{xi} > trimvarh{xi}) then delete; end; %end; end; drop &varL &varH xbyvar xi; run; %mend winsor; Ple  ... View more

Sounds silly but how can I find that ? ... View more

Thank you. Still new at this; will learn. Thank you once again. ... View more

Thank very much for your time and patience. I have attached the datasets. The currencies here are HKD and EURO together with the annual fundamentals. ... View more

@Reeza @novinosrin I'm having difficulties in the currency conversion. The conversion from a local currency to USD is a two-step process: 1. from local currency to GBP and from GBP to USD. So for instance, to convert HKD to USD, WRDS uses this code:   proc sql;     SELECT a.datadate, a.exratd AS hkd_exratd, b.exratd AS usd_exratd, ( 1 / a.exratd ) * b.exratd AS exchange_rate     FROM comp.g_exrt_dly a, comp.g_exrt_dly b     WHERE ( a.tocurd = 'HKD' ) AND ( a.fromcurd = 'GBP' )     AND ( b.tocurd = 'USD' )     AND ( b.fromcurd = 'GBP' )     AND a.datadate = b.datadate     order by datadate desc; quit;   The code above will give you a table that looks like this: datadate         exchange rate daily         exchange rate daily                  exhange_rate 20140222           12.9430                            1.6687                                   0.128926833   So, if I'm not mistaken 'exchange_rate' is the rate between HKD and USD, the rate to use in the conversion. My question is do I have to write a separate code for all the countries separately or I can write one code to incorporate all. And how do I then use this to finally convert  my data from local currencies into USD ?   Thank you.  ... View more

Will try and get back to you with the outcome. Thanks ... View more