Olá

Para saber dentro de uma procedure quantas linhas um select retornou ou um update atualizou use o sql%rowcount

Exemplo com select:

declare
  -- Local variables here
  i integer;
begin
  Select coluna1, coluna2  From tabela where coluna3 > 1;
  dbms_output.put_line('Linhas retornadas '|| sql%rowcount);
 exception
     when no_data_found then
      dbms_output.put_line('Nenhuma linha encontrada');
end;

Exemplo com update:

declare
  -- Local variables here
begin
  update tab_param t
   set   t.vlr_par = 'S'
   where t.num_par = 1;
  dbms_output.put_line('Qtd linhas atualizadas: ' || sql%rowcount);
end;

Funciona para delete também  😉

Olá

Abaixo um exemplo para gerar números aleatórios de 1 a 100. Se você precisar de números de 4 digitos pode colocar de 1000 a 9999, por exemplo.

declare
  numero number;
begin
  -- Test statements here
  dbms_random.initialize(to_number(to_char(systimestamp, 'HH24missFF4')));
  numero := trunc(dbms_random.value(1,100));
  dbms_random.terminate;
  Dbms_Output.put_line('Numero gerado:'|| numero);
end;