creating id per group

data adsl;
  set adsl;
  by trt01pn;

  if first.trt01pn then trtord+1;
run;