Hi Yura2301, the modified code retrieves file name, size, and date of last modification. %macro test(mydir);                                                                                                                    data want(drop=fid ff filrfb rc);                                                                                              %let bb=%sysfunc(filename(filrf,&mydir));                                                                                              %let did=%sysfunc(dopen(&filrf));                                                                                                      %let flname=;                                                                                                                          %let memcount=%sysfunc(dnum(&did));                                                                                                    %if &memcount > 0 %then %do;                                                                                                              %do i=1 %to &memcount;                                                                                                                %let flname&i=%qsysfunc(dread(&did,&i));                                                                                                filrfb='temp';                                                                                                                        ff=filename(filrfb,"&mydir\&&flname&i");                                                                                              fid=fopen(filrfb);                                                                                                                    dte=finfo(fid,'Last Modified');                                                                                                        size=finfo(fid,'File Size (bytes)');                                                                                                    file=symget("flname&i");                                                                                                                output;                                                                                                                              rc=fclose(fid);                                                                                                                          %end; %end;                                                                                                                          %let rc=%sysfunc(dclose(&did));                                                                                                        run;                                                                                                                                    %mend;                                                                                                                                  %test(c:\temp) Linlin ... View more

Hi, I use the macro below to get all the file names in a directory. you may be able to modify it to get all the information you need. %macro test(mydir);; data want; %let bb=%sysfunc(filename(filrf,&mydir)); %let did=%sysfunc(dopen(&filrf)); %let flname=; %let memcount=%sysfunc(dnum(&did)); %if &memcount > 0 %then %do;    %do i=1 %to &memcount;   %let flname&i=%qsysfunc(dread(&did,&i));   file=symget("flname&i");   output;   %end; %end; %let rc=%sysfunc(dclose(&did)); run; %mend; Linlin ... View more

assuming you want to transform all variables except  variable 'aa': data have; input x y z aa; cards; 1 2 2 20 3 4 3 30 ; %let trans_factor=2; proc sql noprint;   select catt(name,',',name,'**',&trans_factor, ' as',catt(' trans_',name)) into: names separated by ','   from dictionary.columns     where libname='WORK' and memname='HAVE'  and upcase(name) ne 'AA'; quit; %put &names; proc sql;   create table want as select &names     from have; quit; proc print;run;              Obs    x    trans_x    y    trans_y    z    trans_z                  1     1       1       2        4      2       4                  2     3       9       4       16      3       9 Linlin ... View more

anothe approach: example: data have; input naics4 $ taxable1-taxable5; cards; 1 20 30 40 50 60 1 25 35 45 55 65 1 30 40 50 60 70 2 20 30 40 50 60 2 25 35 45 55 65 3 30 40 50 60 70 ; run; proc sql noprint; select catt('sum','(',name,')',' as ',catt(' sum',name))into : names separated by ','   from dictionary.columns     where libname='WORK' and memname='HAVE' and upcase(name) like 'TAXABLE%' ; quit; %put &names; proc sql;   create table want as select naics4,&names     from have        group by naics4; quit; Linlin ... View more

Hi Art, I just noticed that if we use the same variable name, the variable converted by datastep is a char. variable, by SQL is a numeric variable. Thank you! data have; infile cards; informat cpn_dt $80.; input cpn_dt ; cards; 05/21/2010 07/01/2010 03/01/2011 ; data want;   set have;   cpn_dt = input(substr(strip(cpn_dt),1,10),MMDDYY10.); run; proc contents data=want;run; proc sql;   create table want1 as select input(substr(strip(cpn_dt),1,10),MMDDYY10.)      as cpn_dt format mmddyy10.         from have; quit; proc contents data=want1;run; ... View more

do you want something like this? data have; infile cards missover; format date1 mmddyy10.        date2 mmddyy10.        date3 mmddyy10.; input id $ (date1-date3) (: mmddyy10.); cards; 1201    11/29/2007    11/1/2007    11/1/2007 1220    6/1/2002       1230    4/1/2000    1/1/1998    4/1/2000 1237    7/1/2003    7/1/2003    7/1/2003 ; data want(keep=id date);   set have;   date=smallest(1,of date1-date3);   format date mmddyy10.;   run;   proc print;run;                              Obs     id           date                                 1     1201    11/01/2007                                 2     1220    06/01/2002                                 3     1230    01/01/1998                                 4     1237    07/01/2003 Linlin ... View more

Hi, I tried Tom's code. It works great! I was able to create a sub_directory "test" under the newly created "01 -jan 2012 "folder. data _null_;   rootdir='c:\temp\';   today=today();   lastmonth=intnx('month',today,-1);   dir1=catx(' ',put(month(lastmonth),z2.),'-',put(lastmonth,monname3.),year(lastmonth));   dir2=catx(' ',put(month(today),z2.),'-',put(today,monname3.),year(today));   dir3='test'; /* Iadded */   newdir1=dcreate(dir1,rootdir);   newdir3=dcreate(dir3,newdir1); /* i added*/   newdir2=dcreate(dir2,rootdir);   put (rootdir dir1 newdir1 dir2 newdir2 dir3 newdir3) (=/); run; from log file: rootdir=c:\temp\ dir1=01 - Jan 2012 newdir1=c:\temp\01 - Jan 2012 dir2=02 - Feb 2012 newdir2=c:\temp\02 - Feb 2012 dir3=test newdir3=c:\temp\01 - Jan 2012\test NOTE: DATA statement used (Total process time):       real time           0.03 seconds       cpu time            0.01 seconds Message was edited by: Linlin ... View more