One Way :     data Test; format Episodedate mmddyy10.; input ClientID IncidentID Episodedate mmddyy10.; cards; 4750 3119 03/05/2018 1021 3110 11/06/2018 1021 3111 01/07/2019 4765 3576 03/28/2019 4767 3821 10/25/2019 4770 3332 10/08/2018 4770 3631 05/23/2019 4770 3798 10/09/2019 run; data want; array edt[99] _temporary_; do i=1 by 1 until(last.ClientID); set Test; by ClientID notsorted; edt[i]=Episodedate; end; do j=1 by 1 until(last.ClientID); set Test; by ClientID notsorted; if j = 2 then repeat_inf_day=Episodedate-edt[j-1]; if j = 3 then repeat_inf_day2=Episodedate-edt[j-1]; if j = 4 then repeat_inf_day3=Episodedate-edt[j-1]; output; call missing(of repeat_inf_day:); end; drop i j; run; bs Episodedate ClientID IncidentID repeat_inf_day repeat_inf_day2 repeat_inf_day3 1 03/05/2018 4750 3119 . . . 2 11/06/2018 1021 3110 . . . 3 01/07/2019 1021 3111 62 . . 4 03/28/2019 4765 3576 . . . 5 10/25/2019 4767 3821 . . . 6 10/08/2018 4770 3332 . . . 7 05/23/2019 4770 3631 227 . . 8 10/09/2019 4770 3798 . 139 .     ... View more

data want; set test4; if Sex='M' then flag=ifc(ifc(first(Name)eq first(ID) ,1,0) eq 1 and prxmatch("m/[a-zA-Z]\d{11}/oi",ID),'Valid','Invalid'); run; Obs Name Sex ID flag 1 Alice M A10294354554 Valid 2 Barbara M C02943545549 Invalid 3 Carol F C02943545543 4 Henry M H02943545540 Valid 5 James M K02943545545 Invalid ... View more

data example; input employee_id $ startdate :DATE8. enddate :DATE8.; format startdate enddate DATE8.; datalines; 12345 21JUN20 24JUN20 12345 28JUN20 18JUL20 12345 29JUL20 14AUG20 12345 09NOV20 20NOV20 67890 24APR20 07JUN20 67890 24JUN20 08JUL20 67890 21JUL20 26AUG20 97531 30APR17 05MAY17 97531 01MAY17 05MAY17 ; run; data want; array enddt[999] _temporary_ ; array stdt[999] _temporary_ ; do i=1 by 1 until(last.employee_id); set example; by employee_id; enddt[i]=enddate; stdt[i]=startdate; end; do j=1 by 1 until(last.employee_id); set example; by employee_id; if enddt[j+1]=enddate then do; if (startdate - enddate) < (stdt[j+1] -enddate) then drop='yes'; end; else drop='no'; output; call missing(drop); end; drop i j; run; employee_ Obs id startdate enddate drop 1 12345 21JUN20 24JUN20 no 2 12345 28JUN20 18JUL20 no 3 12345 29JUL20 14AUG20 no 4 12345 09NOV20 20NOV20 no 5 67890 24APR20 07JUN20 no 6 67890 24JUN20 08JUL20 no 7 67890 21JUL20 26AUG20 no 8 97531 30APR17 05MAY17 yes 9 97531 01MAY17 05MAY17 no ... View more

data have; input ID $ Transaction Age Death Parameter $; infile cards4 truncover; cards; 6 1 . . A 6 2 . . B 6 3 . . C 6 . 3 3.45 ; run; data want; do _n_=1 by 1 until(last.id | death ne .); set have; by id; v=death; end; do _n_=1 to _n_; set have; if Parameter eq 'B' then value=v; else call missing(value); output; end; drop v; run; ... View more

Looks like you are missing a '.' to separator.     proc copy in=LIB03 out=WORK; select FILE_&l2numshortdate..dbf; run;       ... View more

data want; set have; by id; length d_cat $10.; retain d_cat ; array cat[3] $ a_category b_category c_category; if first.id then call missing(d_cat); d_cat=cats(d_cat,D_name); if last.id then do; do _n_=1 to dim(cat); if find(d_cat,scan(vname(cat[_n_]),1,'_')) then cat[_n_]='yes'; else cat[_n_]='no'; end; output; end; drop D_name; run; ... View more

data have; input ID Time $ Group $ Salary_Q1 :dollar12.2 Salary_Q2 :dollar12.2; cards; 1 2020-Q1 GGGGGGG $295.00 $88.00 2 2020-Q1 AA $1,918.00 $2,309.00 3 2020-Q1 BB $0.00 $0.00 4 2020-Q1 CCC $0.00 $0.00 5 2020-Q1 EEE $2,900.00 $2,466.00 6 2020-Q1 DD $0.00 $0.00 7 2020-Q1 FF $0.00 $0.00 8 2020-Q1 EEE $0.00 $0.00 8 2020-Q1 AA $0.00 $0.00 9 2020-Q1 BB $0.00 $0.00 9 2020-Q1 CCC $0.00 $0.00 10 2020-Q1 CCC $0.00 $0.00 10 2020-Q1 AA $0.00 $0.00 11 2020-Q1 BB $3,964.00 $2,886.00 11 2020-Q1 DD $3,964.00 $2,886.00 12 2020-Q1 GGGGGGG $2,351.00 $7,101.00 12 2020-Q1 AA $2,351.00 $7,101.00 13 2020-Q1 GGGGGGG $0.00 $550.00 13 2020-Q1 EEE $0.00 $550.00 13 2020-Q1 AA $0.00 $550.00 14 2020-Q1 GGGGGGG $3,796.00 $6,055.00 14 2020-Q1 AA $3,796.00 $6,055.00 14 2020-Q1 BB $3,796.00 $6,055.00 14 2020-Q1 CCC $3,796.00 $6,055.00 14 2020-Q1 EEE $3,796.00 $6,055.00 14 2020-Q1 DD $3,796.00 $6,055.00 14 2020-Q1 FF $3,796.00 $6,055.00 12 2020-Q2 GGGGGGG $2,351.00 $7,101.00 15 2020-Q2 CCC $0.00 $0.00 15 2020-Q2 AA $0.00 $0.00 13 2020-Q2 BB $0.00 $550.00 13 2020-Q2 CCC $0.00 $550.00 16 2020-Q2 GGGGGGG $2,224.00 $0.00 16 2020-Q2 AA $2,224.00 $0.00 16 2020-Q2 BB $2,224.00 $0.00 16 2020-Q2 CCC $2,224.00 $0.00 16 2020-Q2 EEE $2,224.00 $0.00 16 2020-Q2 DD $2,224.00 $0.00 16 2020-Q2 FF $2,224.00 $0.00 ; run; proc sort data=have; by id Time group; run; data want(rename=(Group_=Group)); length Group_ $50.; No_of_Groups=0; Group_=''; do until(last.Time); set have; by id Time group; No_of_Groups=sum(No_of_Groups,1); Group_=catx('/',Group_,group); end; drop Group; run; ... View more

data have; input (ID Date ) ($) DocIDProcedure1 DocIDProcedure2 DocIDProcedure3; cards; 1 Nov112020 1234 . . 1 Nov112020 . 3456 . 1 Nov112020 . . 7890 2 Dec032020 . . 2465 2 Dec032020 . 1170 . ; run; data want(rename=(DocIDProcedure1_=DocIDProcedure1 DocIDProcedure2_=DocIDProcedure2 DocIDProcedure3_=DocIDProcedure3)); do until(last.id); set have; by id; DocIDProcedure1_=coalesce(DocIDProcedure1_,DocIDProcedure1); DocIDProcedure2_=coalesce(DocIDProcedure2_,DocIDProcedure2); DocIDProcedure3_=coalesce(DocIDProcedure3_,DocIDProcedure3); end; do until(last.id); set have; by id; output; end; drop DocIDProcedure1 DocIDProcedure2 DocIDProcedure3; run; ... View more