serialno auto genetate in oracle forms

 declare 
      a number;
  begin
      a:=1;
  while :empno is not null loop
     :sno:=a;
        a:=a+1;
          next_record;
   end loop;
end;