50以上の列名を入力せずに同じテーブルの行をコピーする（2つの列を変更する場合）

それほど冗長ではないかもしれませんが、このPL / SQLはオプションです：

begin
  for r in (select *
              from table_name
             where pk_id = 'original_primary_key')
  loop
    r.pk := pk_seq.nextval;
    r.fk := 'foreign-key';
    insert into table_name values r;
  end loop;
end;