try: %MACRO Test(ST);      %IF &ST. = "OR" %THEN %DO;            %PUT State is Oregon.;      %END;      %ELSE %DO;            %PUT State is not Oregon.;      %END; %MEND; %Test("PA"); ... View more

proc sort data=your_data;   by id trans_date; run; data new_data;   set your_data by id trans_date; if first.trans_date and last.trans_date then delete; run; ... View more

try the code below: proc contents data=old out=temp(keep=name varnum); proc sort data=temp; by varnum;run; proc sql noprint; select name into :order separated by ' '    from temp; quit; data new;   retain ℴ   set old;    ...; run; ... View more

borrowed Anca's data: data wide; input Year    Firm1_price    Firm1_volume    Year    Firm2_price    Firm2_volume    Year    Firm3_price    Firm3_volume; cards; 1970    2    11    1970    8    7    1970    1    84 1971    3    2    1971    3    8    1971    0    3 1972    4    3    1972    3    6    1972    1    43 1973    2    44    1973    2    1    1973    0    12 1974    1    4    1974    8    5    1974    0    86 1975    23    99    1975    8    4    1975    1    58 1976    39    33    1976    8    8    1976    1    63 ; data long;   set wide;   array _price(*)  firm1_price firm2_price firm3_price;   array _volume(*)  firm1_volume firm2_volume firm3_volume;   do _n_=1 to dim(_price);   price=_price(_n_);   volume=_volume(_n_);   firm=scan(vname(_price(_n_)),1,'_');   output;   end;   keep year firm price volume;   proc print;run;                    Obs    Year    price    volume    firm                         1    1970       2       11      Firm1                         2    1970       8        7      Firm2                         3    1970       1       84      Firm3                         4    1971       3        2      Firm1                         5    1971       3        8      Firm2                         6    1971       0        3      Firm3                         7    1972       4        3      Firm1                         8    1972       3        6      Firm2                         9    1972       1       43      Firm3                        10    1973       2       44      Firm1                        11    1973       2        1      Firm2                        12    1973       0       12      Firm3                        13    1974       1        4      Firm1                        14    1974       8        5      Firm2                        15    1974       0       86      Firm3                        16    1975      23       99      Firm1                        17    1975       8        4      Firm2                        18    1975       1       58      Firm3                        19    1976      39       33      Firm1                        20    1976       8        8      Firm2                        21    1976       1       63      Firm3 ... View more

Hi I did similar work a few days ago. below is the code I used. you need to modify the RED parts: filename indata pipe 'dir N:\"External Investigators Projects"\Libon\"DS Calculator Pilot IDs" /b '; /* put all the .xlsx file names in dataset file_list */ data file_list; length fname $90 in_name out_name $32; infile indata truncover; input fname $ 90.; in_name=translate(scan(fname,1,'.'),'_','-'); out_name=cats('_',in_name); if upcase(scan(fname,-1,'.'))='XLSX';                                                                                                          run; data _null_;   set file_list end=last;   call symputx(cats('dsn',_n_),in_name);   call symputx(cats('outdsn',_n_),out_name);   if last then call symputx('n',_n_); run; %macro test;    %do i=1 %to &n;    PROC IMPORT OUT= work.&&outdsn&i.             DATAFILE= "N:\External Investigators Projects\Libon\DS Calculator Pilot IDs\&&dsn&i...xlsx"             DBMS=EXCEL REPLACE;      RANGE="Sheet1$E17:E21";      GETNAMES=NO;      MIXED=NO;      SCANTEXT=YES;      USEDATE=YES;      SCANTIME=YES; RUN; %end; %mend; %test data final;   set _:; run; ... View more