Anonymer PL/SQL-Block, um eine ID aus einer Sequenz zu füllen

Allgemein 12. März 2014 Hinterlasse einen Kommentar

declare

  --

  v_seq_nr NUMBER(18) := 0;

  --

  CURSOR c_xd_id

  IS

    SELECT xds.xd_id

      FROM xml_dokument_satz xds

     WHERE xds.id = 1;

  --

begin

  --

  FOR i IN c_xd_id 

  LOOP

    select seq_xds.nextval 

      into v_seq_nr 

      from dual;

    --

    UPDATE XML_DOKUMENT_SATZ

       SET ID = v_seq_nr

     WHERE xd_id = i.xd_id;

  END LOOP;

  --

  commit;

  --

exception

  when others then

    dbms_output.put_line('sqlerrm : '||sqlerrm);

end;