quarta-feira, 27 de novembro de 2013

Excluir pedidos de execução EMS505BPORO8P930BAS.PED_EXEC_PARAM


declare
cursor c1 is
SELECT rowid,NUM_PED_EXEC FROM EMS505BPORO8P930BAS.PED_EXEC_PARAM
       WHERE 0 = 0 ;
v number;
begin
v:= 0;
       for r1 in c1 loop
         v := v + 1;
         dbms_output.enable(null); --infinito
         dbms_output.enable();     --deixa no valor default 20000
         dbms_output.put_line(r1.rowid||'-'||r1.NUM_PED_EXEC);

         delete EMS505BPORO8P930BAS.PED_EXEC_PARAM where rowid = r1.rowid;
         if v >= 1500 then
           commit;
           v := 0;
         end if;
       end loop;
    end;

Nenhum comentário:

Postar um comentário