PROMPT Updating sequence number on relation selections if null...

DECLARE
   bug_no varchar2(8) := 'CK957137';
   counter number;
BEGIN

  update ck_migration_objects set ci_created = 'N' where ci_stage = 'CKPREMIG' and ci_name = bug_no;
 
  counter:= 10;

  for rec in
  (
    select vwtab.id id
    from  ci_relation_selections@r212 vwtab
    where sequence_number is null
    and   vwtab.application_system_owned_by in ( select ci_appid
	    	  				             from ck_migration_objects
						             where ci_stage = 'APPSEL' )
    order by vwtab.id
  )
  loop
    update ci_relation_selections@r212 
    set sequence_number = counter
    where id = rec.id;
 
    counter:= counter + 10;
   
  end loop;

  update ck_migration_objects set ci_created = 'Y' where ci_stage = 'CKPREMIG' and ci_name = bug_no;
   
  commit;
  
EXCEPTION 
  when others then
     dbms_output.put_line (' ** Exception Raised ** ');
     dbms_output.put_line ('...ERROR: '||substrb(sqlerrm, 1, 200));
     raise;
	 
end;
/
