Dear Paul. If your data is sorted by ID and Month, somthing like this should do the trick. Untested code.

data want; set inputdata (where=(prod>.)); by ID month; if last.ID then output; run;

Regard Mogens A. Krogh DVM, PhD-student www.kvl.dk