remove the ';' in:

> > > SET SPECIMENID = :counter;

and add it at the end of:

> where ?????? <==========

ie:
UPDATE PTDEMOG
SET SPECIMENID = :counter
where <condition>;