The code you have is correct for what you are describing.  Try giving an example of what you have as input and what you want as output. ... View more

I just tested it and this is working. (I think)  The format says general but I think this is the output you are looking for.  The format line I put before did not work but ods I am using does, I guess it's the ExcelXP : data test; format datetime datetime21.; datetime = today(); run; ods _all_ close;    ods tagsets.ExcelXP path='/export/home/pp78499/sasuser.v92' file='datetime.xml'    style=printer;    ods tagsets.ExcelXP options(sheet_name='datetime' AUTOFILTER = 'ALL');     proc print data=test noobs;        /*var datetime / style(data)={tagattr='type:DateTime format:YYYY-MM-DD'};run;quit;    */ var _all_;run;quit;    ods tagsets.ExcelXP options(sheet_name='datetime' AUTOFILTER = 'ALL');    ods tagsets.ExcelXP close; Hope this helps ... View more

I'm unable to test this now but try adding a format. var datetime / style(data)={tagattr='type:DateTime format:YYYY-MM-DD'}; Mark ... View more

I changed the last part, I think this makes more sense: data want; merge have(keep=id) tran2; by id; run; ... View more

Here's a solution without array: Data Have; input ID A B C D E; cards; 101 1 1 . . 1 102 . . 1 . . 103 1 1 . . . ; Run; proc transpose data=have out=tran(where=(not missing(col1)));by id; proc transpose data=tran out=tran2(drop=_NAME_ _LABEL_) prefix=col_ ;by id;var _name_; data want; merge have tran2; by id; run; ... View more

I did this: data have; infile cards dsd; input Client$    Results$; cards; A1,12 A1,14 A1,11 A1,15 B1,10 B1,13 B1,14 C1,16 C1,14 C1,12 C1,11 ; run; proc transpose data=have out=tran (drop=_NAME_);by client;var results; data want(keep=client final); set tran; Final = catx(':',col1,col2,col3,col4); run; Then stepped away and like your solution much better.  Can you put into words with this line is doing?  if first.client then final=put(results,2.); ... View more

data have; infile cards; input date; format date best12.; cards; 20060306 20040727 20040407 20010423 ; run; data want; format  date2 yymmddn8.; set have; date2 = input(put(date,8.),yymmdd8.); run; ... View more

Tom, that is true and a good point.  It's a personal preference for me.  The way the code and log will be documented I like to see the applicable month for each libname.  Here's the final code in case it helps anyone in the future.  Do people search here first?  data _null_; date9 = today()-15; /* add -15 after today() if testing before the 15th business day*/ call symput('num_month',strip(put(month(today())-2,z2.))); /*-1 should be changed to -2 if testing before the 15th business day*/ run; %macro cib; %do i= &num_month %to 01 %by -1; data _null_;     date9 = today()-15; /* add -15 after today() if testing before the 15th business day*/     call symput('num_month',strip(put(month(today())-&i-1,z2.))); /*-1 should be changed to -2 if testing before the 15th business day*/     call symputx('year',strip(year(today())),'g');     call symputx('date9',put(date9,date9.),'g');     call symputx('gooddate9',put(intnx('month',date9,-&i,'e'),date9.),'g');     call symputx('date9_2',put(intnx('month',date9,-&i,'e'),date9.),'g');     call symputx('lastmon',substr(put(intnx('month',date9,-&i,'e'),date9.),3,3),'g');     call symputx('mon',put(intnx('month',date9,-&i,'e'),date9.),'g');     call symputx('_mon',put(intnx('month',date9,-&i-1,'e'),date9.),'g');     call symputx('_lastmon',substr(put(intnx('month',date9,-&i-1,'e'),date9.),3,3),'g');     call symputx('monyear',substr(put(intnx('month',date9,-&i,'e'),mmddyy10.),1,2)||substr(put(intnx('month',date9,-&i,'e'),date9.),6,4),'g');     call symputx('_monyear',substr(put(intnx('month',date9,-&i,'e'),mmddyy10.),1,2)||substr(put(intnx('month',date9,-&i,'e'),date9.),6,4),'g');     call symputx('mmddyy10',put(intnx('month',date9,-&i,'e'),mmddyy10.),'g');     call symputx('_mmddyy10',put(intnx('month',date9,-&i,'e'),mmddyy10.),'g'); run; data _null_;     call symputx('propdate',cats(propcase(substr("&mon",3,3)),substr("&mon",6,4)),'g');     call symputx('_propdate',cats(propcase(substr("&_mon",3,3)),substr("&_mon",6,4)),'g'); run; data test_&monyear;     test = "&lastmon"; run; ; %end; %mend; %cib; ... View more

That did fix that aspect of the problem, thanks.  I'll probably be back before I finish this step. ... View more

The other variables come from this step: data _null_; date9 = today()-15; /* add -15 after today() if testing before the 15th business day*/ call symput('num_month',strip(put(month(today())-2,z2.))); /*-1 should be changed to -2 if testing before the 15th business day*/ call symputx('lastmon',substr(put(intnx('month',date9,-1,'e'),date9.),3,3),'g'); call symputx('monyear',substr(put(intnx('month',date9,-1,'e'),mmddyy10.),1,2)||substr(put(intnx('month',date9,-1,'e'),date9.),6,4),'g'); run; ... View more