Don't pay much attention to this. I'm trying to learn indexes, that's all
data a;
input id;
cards;
1
2
2
3
3
3
;
data b;
input id;
cards;
3
;
proc sql;
create index id on a (id);
quit;
data a;
set b;
do until (_iorc_=%sysrc(_dsenom));
modify a key=id;
select (_iorc_);
when(%sysrc(_sok)) do; /* A match was found, update master */
remove;
end;
when (%sysrc(_dsenom)) do; /* No match was found */
_error_ = 0;
end;
otherwise do;
length errormessage $200.;
errormessage = iorcmsg();
put "ATTENTION: unknown error condition: " errormessage;
end;
end;
end;
run;