You have got your answers from the others, you should attempt a little to make the discussion interesting. Anyway, here you go: data want(drop = i); set have; array wras[*] WRA1-WRA90; if upcase(model_type)='BUSINESS' then do; do i = 1 to dim(wras); if wras[i] = . then wras[i] = 0; end; end; run; ... View more

Why are you doing this? If you are in a migration from SAS, don't expect too much help here. Hire the muscle instead to do this for you. ... View more

Hi.   Unless there is the need of repeatabilty, no need of macro coding there.   All it's doing is conditionally setting a START_DT macro variable, based on some other macro variables.   But it's really bad macro coding, and it could be done with much simpler/cleaner data step code:   data _null_; * set 1; if symget('ENRLMNTDY') eq '1' then START_DT=1; * add 14 days; else if symget('ENRLMNTDY') eq '15' then START_DT=intnx('day',"&START_DT1"d,14); * add -12*&PERIODS-&ROUNOUT to &RUNDATE and adjust at month's end; else if upcase(symget('ENRLMNTDY')) eq 'LAST' then START_DT=intnx('month',&RUN_DATE,-12*&PERIODS-&ROUNOUT,'end'); call symput('START_DT',put(START_DT,date9.)); * format and set macro var; quit; Daniel Santos @ www.cgd.pt ... View more

First, write the code in a nicely formatted manner.  This will help you, and others read your code and understand more easily:   proc sql; create table TMP as /* Selection phase. Details what columns to have in the output table */ select MBR_ID, /* If condition is true then take B.ICD9, otherwise take missing - which is nonsense */ case when QUALIFIER='2' then coalesce(B.ICD9,' ') else A.DX end as DX /* Source sections. Details what tables to take data from */ from INP_1 A left join TESTTABLE B on A.DX=B.ICD10 /* This section filters so only data where B.SMM is 0 or missing */ where coalesce(B.SMM,0)=0 /* Group/order - this section is irrelevant as no data grouping or aggregation is done in selection */ group by MBR_ID, CALCULATED DX; quit; So to re-write the query:   proc sql; create table TMP as select MBR_ID, case when QUALIFIER='2' then B.ICD9 else A.DX end as DX from INP_1 A left join (select * from TESTTABLE where SMM > 0) B on A.DX=B.ICD10; quit; ... View more

I don't understand the question.  If you have a program file then just run the program. %macro run(list); .... %mend run;; %run(alpha); %run(beta); If you want to maintain the macro defintion and the program that use it as two different source files then just add a %INCLUDE to include the macro definition when needed.   %include 'run.sas' ; %run(apha); %run(beta); ... .more code ... %run(beta alpha); Note that once the macro is compiled you do not need to re-run the definition unless you restart SAS or delete the compiled version somehow.     You could also look into creating your own autocall library. With AUTOCALL SAS will load the macro definition the first time you try to run it so you don't have to add %include statements for every macro you want to call.     ... View more

Make them have the same name in your macro don't fix it after.  ... View more

   You can use a script to determine all the files in the folder (Assuming Windows); http://support.sas.com/kb/45/805.html   Once those are in a dataset you can call the import macro using call execute.   %macro import_text_file(path, out); proc import data=&out datafile="&path" dbms=dlm; delimiter='|'; getnames=yes; run; %mend;   ... View more

data have; array x{12} m1-m12 (12*1); run; %let start=01jan2015; proc transpose data=have(obs=0) out=temp; var m:; run; data temp; set temp; retain n -1; n+1; name=put(intnx('month',"&start"d,n),monyy7.); run; data _null_; set temp end=last; if _n_=1 then call execute('proc datasets library=work nolist nodetails; modify have; rename'); call execute(catx('=',_name_,name)); if last then call execute(';quit;'); run; ... View more