Here is my code. I hope this could help you. %macro rename_files(path=); data a; r=filename("fir","&path."); d=dopen("fir"); if d>0 then do; n=dnum(d); do i=1 to n; fname=dread(d,i); if find(fname,".txt")>0 then do; output; end; end; end; c=dclose(d); keep fname; run; proc sql noprint; select count(*) into :n from a ; select fname into: fnames separated by "*" from a ; quit; %do i=1 %to &n.; %let fname=%scan(&fnames.,&i.,*); %let new_fname=%scan(&fname,1,_); %put &fname.; data _null_; rc=rename("&path.\&fname.","&path.\&new_fname..txt", 'file'); run; %end; %mend rename_files; ... View more

The rule for ID#5 as well as ID#1 row2, so is the line of ID#5  line 3？I am not sure that I understood what you said. Here is my code. proc sort data=a ; by id lostart; run; data a1; set a; by id lostart; lostart1=lag(loend)+1; if first.id then lostart1=lostart; format lagstdat mmddyy10.; run; proc sql; create table b1 as select b.id,b.order ,case when not missing(a.line) then a.line else 0 end as line from b left join a1 as a on b.id=a.id and b.order between a.lostart1 and a.loend order by b.id,b.order ; quit;   ... View more