تكرار التسلسل في حاله تكرار السجل

اريد عمل تسلسل للسجلات بحيث اذا تكرر السجل يعطيه نفس التسلسل

يعني في حاله تكرار الحقل cont# يعطيه نفس التسلسل(X) السابق

declare
		cursor c1 is SELECT * FROM trans_file where v_name='PROSPER EMC' and t#='801W' order by bill#,indx;
  	c trans_file%rowtype;	
x number;
in_file    TEXT_IO.FILE_TYPE;

Begin
	x:=1;
	
	 in_file := TEXT_IO.FOPEN('e:\test.txt', 'w');
	open c1;
  	loop 
  	fetch c1 into c;
  	exit when c1%notfound;
	
	
	
TEXT_IO.PUT_line(in_file,c.cont#);
   TEXT_IO.PUT_line(in_file,x);
    x:=x+1;
  	end loop;
  	close c1;
  TEXT_IO.FCLOSE(in_file);
  
  
  END;