data want;
set have;
if lowcase(strip(form)) eq 'exam' then do;
num= countc(days, ',');
do i=1 to num+1;
temp= input(scan(days, i, ','), best.);
if temp eq 3 then do;
count= countc(days_missing, ',');
do k=1 to count+1;
if input(scan(days_missing, k, ','), best.) eq 0 then days_missing= tranwrd(days_missing,scan(days_missing, k, ','), '');
end;
end;
else if temp eq 1 then do;
count= countc(days_missing, ',');
do k=1 to count+1;
if input(scan(days_missing, k, ','), best.) eq 4 then days_missing= tranwrd(days_missing,scan(days_missing, k, ','), '');
end;
end;
end;
end;
else if lowcase(strip(form)) eq 'lab' then do;
num= countc(days, ',');
do i=1 to num+1;
temp= input(scan(days, i, ','), best.);
if temp eq 1 then do;
count= countc(days_missing, ',');
do k=1 to count+1;
if input(scan(days_missing, k, ','), best.) eq 0 then days_missing= tranwrd(days_missing,scan(days_missing, k, ','), '');
end;
end;
end;
end;
if substr(strip(days_missing), 1, 1) eq ',' then days_missing=substrn(strip(days_missing), 2);
drop num temp count i k;
run;
... View more
