example: data class;   set sashelp.class end=last;   if last then call symputx('n',_n_);   max_obs=&n;   run; proc print; title there are &n obs. in dataset &syslast;run; Linlin ... View more

Hi Art, When you talk about me please use she or her.  Thank you! ... View more

Thank you Art and Data _null_!  ... View more

Hi Data _null_, Why did you use ';;;;' instead of ';'? Thank you! ... View more

Here is a similar version: data have; infile cards; input ME $  ZP   YR    PL; cards; m1 7501 2001 85 m1 7502 2001 22 m1 7503 2001 45 m1 7504 2001 85 m1 7505 2001 11 m1 7505 2001 65 m2 7501 2001 70 m2 7502 2001 55 m2 7503 2001 09 m2 7504 2001 19 m2 7505 2001 33 m2 7505 2001 72 m3 7501 2001 70 m3 7502 2001 55 m3 7503 2001 09 m3 7504 2001 19 m3 7505 2001 33 m3 7505 2001 72 ; proc sql noprint ;    select distinct me into :mes separated by ' 'from have; quit; data _null_;   declare hash lin(ordered:'a');   lin.definekey('_n_');   lin.definedata('me','zp', 'yr', 'pl');   lin.definedone();   do _n_=1 by 1 until (last.me);     set have;           by me;           lin.add();   end;   lin.output(dataset:me); run; %macro test(); data want(drop=me);    merge    %do i=1 %to %sysfunc(countw(&mes));     %scan(&mes,&i)(rename=(pl=%scan(&mes,&i)))    %end;;    by zp yr;   run; %mend; %test() proc print;run; ... View more

Hi Art, Would you please help me to fiqure out why my code only produces 19 observations?  there should be 20. I read in James' excel correctly                             1    20AUG09:18:35:00    24.6                             2    20AUG09:18:36:00    24.8                             3    20AUG09:18:37:00    24.8                             4    20AUG09:18:38:00    24.9                             5    20AUG09:18:39:00    24.9                             6    20AUG09:18:40:00    24.9                             7    20AUG09:18:46:00    25.4                             8    20AUG09:18:47:00    25.4                             9    20AUG09:18:48:00    25.4                            10    20AUG09:18:49:00    25.4                            11    20AUG09:18:50:00    25.6                            12    20AUG09:18:51:00    25.6                            13    20AUG09:18:52:00    25.7                            14    20AUG09:18:53:00    25.7                            15    20AUG09:18:54:00    25.8 after I ran proc expand, the variable "temp" of second observation (time=20AUG09:18:36) is missing, and the last observation (time= 20AUG09:18:54:00) is not in the final dataset.                                 Obs             time    temp                              1    20AUG09:18:35    24.6                              2    20AUG09:18:36     0.0                              3    20AUG09:18:37    24.8                              4    20AUG09:18:38    24.8                              5    20AUG09:18:39    24.9                              6    20AUG09:18:40    24.9                              7    20AUG09:18:41    24.9                              8    20AUG09:18:42     0.0                              9    20AUG09:18:43     0.0                             10    20AUG09:18:44     0.0                             11    20AUG09:18:45     0.0                             12    20AUG09:18:46     0.0                             13    20AUG09:18:47    25.4                             14    20AUG09:18:48    25.4                             15    20AUG09:18:49    25.4                             16    20AUG09:18:50    25.4                             17    20AUG09:18:51    25.6                             18    20AUG09:18:52    25.6                             19    20AUG09:18:53    25.7 Thanks!  Linlin libname test 'c:\temp\test.xls'      mixed=yes      stringDates=yes      scanTime=yes; run; data have;     set test.'sheet1$'n(dbSasType=( time=dateTime )); format time datetime.; run; proc print data=have;   title from dataset have; run; proc contents data=have; run; proc expand data=have out=new to=minute method=none;       id time;        /* why the last observation is not in the final dataset want? */        /* why the temp of second observation is missing?  */ run; data want;    set new;    if temp=. then temp=0; run; proc print data=&syslast;   title from dataset want; run; libname test clear; title; ... View more

Is this helpful? data have(keep=x y);   input dt_n_tm $20. y;   TheDate = input(scan(dt_n_tm,1,' '),mmddyy10.);   TheTime = input(scan(dt_n_tm,2,' '),time8.);   x = input(put(TheDate,date8.)||' '||scan(dt_n_tm,2,''),datetime.);   cards; 01/03/2011 10:32:00 50 01/04/2011 10:35:00 55 01/05/2011 11:45:00 60 ; run; proc expand data=have out=temp to=minute method=none;       id x;    run; data want;    set temp;    if y=. then y=0; run; proc print;run; ... View more

Hi Data _null_; I just finished you and Mike's paper http://support.sas.com/resources/papers/proceedings10/102-2010.pdf. It is a very good paper. Thank you! Linlin ... View more

The modified code takes care of the "out of range" problem. data have; informat fsdt mmddyy10.; format fsdt mmddyy10.; input contract  :FSDT : DxDEN : HCC $8.; cards; 1001        01/01/2010            43002  HCC-108 1001        01/01/2010            43004  HCC-109 1001        03/01/2010            43004  HCC-109 1002        03/01/2010            43002  HCC-108 1003        04/01/2010            43004  HCC-109 1003        04/01/2010            43006  HCC-90 1003        04/01/2010            43002  HCC-108 1003        05/01/2010            43002  HCC-108 1003        05/01/2010            43002  HCC-108 1003        05/01/2010            43002  HCC-108 1003        05/01/2010            43002  HCC-108 1004        05/01/2010            43008 ; proc sql noprint;   select max(groups) into: maxgroup     from (select count(*) as groups from have group by contract,fsdt); quit; %let maxgroup=&maxgroup; data have; set have; order=input(substr(hcc,anyalpha(hcc,-10)+2),3.); run; proc sort data=have; by contract fsdt order; run; data want (drop=hcc dxden order rename=dx=DxDen);   do _n_=1 by 1 until (last.fsdt);       set have;       by contract fsdt order;       array h $ hcc1-hcc&maxgroup;       if first.fsdt then dx=dxden;       h(_n_)=hcc;   end;   output; run; proc print;run; ... View more

I don't have any problem to run your code with the new dataset: data have; informat fsdt mmddyy10.; format fsdt mmddyy10.; input contract  :FSDT : DxDEN : HCC $8.; cards; 1001        01/01/2010            43002  HCC-108 1001        01/01/2010            43004  HCC-109 1001        03/01/2010            43004  HCC-109 1002        03/01/2010            43002  HCC-108 1003        04/01/2010            43004  HCC-109 1003        04/01/2010            43006  HCC-90 1003        04/01/2010            43002  HCC-108 1003        05/01/2010            43002  HCC-108 1004        05/01/2010            43008 ; data have; set have; order=input(substr(hcc,anyalpha(hcc,-10)+2),3.); run; proc sort data=have; by contract fsdt order; run; data want (drop=hcc dxden order rename=dx=DxDen);   do _n_=1 by 1 until (last.fsdt);       set have;       by contract fsdt order;       array h $ hcc1-hcc3;       if first.fsdt then dx=dxden;       h(_n_)=hcc;   end;   output; run; proc print;run; Obs         fsdt   contract    hcc1      hcc2      hcc3     DxDen 1    01/01/2010     1001     HCC-108   HCC-109             43002 2    03/01/2010     1001     HCC-109                       43004 3    03/01/2010     1002     HCC-108                       43002 4    04/01/2010     1003     HCC-90    HCC-108   HCC-109   43006 5    05/01/2010     1003     HCC-108                       43002 6    05/01/2010     1004                                   43008 ... View more