declare
  cod_cidade pro_cidade.cod_cidade%type;

begin
  if cod_cidades is null then
    dbms_output.put_line('é nulo');
  
  elseif cod_cidades = 0 then
    dbms_output.put_line('valor 0');
  
  else
    dbms_output.put_line('não é nulo');
  end if;

end;

exception
  dbms_output.put_line('não é nulo');





declare
  cursor aula is
    select cod_fornecedor,
	nome
     from fornecedor;

begin
  for a in aula
  loop
    dbms_output.put_line(a.cod_fornecedor);
    dbms_output.put_line(a.nome);
  end loop;
end;





declare
  cursor aula is
    select cod_fornecedor,
  	   nome
     from fornecedor;

  v_cod_fornecedor fornecedor.cod_fornecedor%type;
  v_nome varchar2(50);
  v_QTD number;

begin
  select cod_fornecedor,
	 nome
   into v_cod_fornecedor,
        v_nome
   from fornecedor;

end;




declare

  v_QTD number;

begin
  select count(*)
   into v_qtd
   from fornecedor;

   dbms_output.put_line(v_QTD);

end;





declare
  cursor aula is
    select cod_fornecedor,
       nome
     from fornecedor;

  v_cod_fornecedor fornecedor.cod_fornecedor%type;
  v_nome varchar2(50);
  v_QTD number;

begin
  begin
    select cod_fornecedor,
     nome
     into v_cod_fornecedor,
          v_nome
     from fornecedor
     where cod_fornecedor = 20;
  exception
   when no_data_found then dbms_output.put_line(sqlerrm||' - '||'Error - No data found');
   when others then dbms_output.put_line(SQLERRm||' - '||'Error - Others 1');
 
  end;
  
   begin
      select count(*)
      into v_qtd
      from fornecedor;

      dbms_output.put_line(v_QTD);

   end;
   
   begin
   
   insert into fornecedor
      values (8,'proway','rua 7',33210000,33210000);
      
   exception
      when others then dbms_output.put_line(SQLERRm||' - '||'Error - Others 2');
   end;
   
end;


declare

v_sal number(7,2) := 60000;
v_com number(7,2) := v_sal*0.2;
v_mensagem varchar2(255) := ' de qualidade.';

begin
	declare
	v_sal number(7,2) := 50000;
	v_com number(7,2) := 0;
	v_total number(7,2) := v_sal + v_com;
	
	begin
	v_mensagem := 'Operário ' || v_mensagem;
	end;

v_mensagem := 'Secretario ' || v_mensagem;
end;



declare

v_sal number(7,2) := 60000;
v_com number(7,2) := v_sal*0.2;
v_mensagem varchar2(255) := ' de qualidade.';

begin
  declare
  v_sal number(7,2) := 50000;
  v_com number(7,2) := 0;
  v_total number(7,2) := v_sal + v_com;
  
  begin
  v_mensagem := 'Operário ' || v_mensagem;
  dbms_output.put_line(v_mensagem);
  dbms_output.put_line(v_sal);
  dbms_output.put_line(v_com);
  dbms_output.put_line(v_total);
  end;

v_mensagem := 'Secretario ' || v_mensagem;
dbms_output.put_line(v_mensagem);
dbms_output.put_line(v_sal);
dbms_output.put_line(v_com);
end;


declare

v_sal number(7,2) := 60000;
v_com number(7,2) := v_sal*0.2;
v_mensagem varchar2(255) := ' de qualidade.';

begin
  declare
  v_total number(7,2) := v_sal + v_com;
  
  begin
  v_sal := 50000;
  v_com := 0;

  v_mensagem := 'Operário ' || v_mensagem;
  dbms_output.put_line(v_mensagem);
  dbms_output.put_line(v_sal);
  dbms_output.put_line(v_com);
  dbms_output.put_line(v_total);
  end;

v_mensagem := 'Secretario ' || v_mensagem;
dbms_output.put_line('');
dbms_output.put_line(v_mensagem);
dbms_output.put_line(v_sal);
dbms_output.put_line(v_com);
end;




declare
  v_cidade pro_cidade.cdcidade%type:=1;
  contador number(2):=1;
  begin
    while contador <= 10
    loop
      insert into cliente (codcidade,counter)
      values (v_cidade, contador);
      contador:= contador+1;
    end loop;
  end;



declare
  v_cidade pro_cidade.cdcidade%type:=1;
  contador number(2):=1;
  begin
    while v_cidade <= 3
    loop
      for contador in 4..10
        loop
          insert into cliente (codcidade,counter)
          values (v_cidade, contador);
        end loop;
    v_cidade:= v_cidade+1;
    end loop;
  end;



create or replace trigger TG_FORNEC_INSERT
  before insert on fornecedor  
  for each row
declare
  -- local variables here
begin
  SELECT FORNECEDOR_SEQ.NEXTVAL
   INTO :NEW.COD_FORNECEDOR
   FROM DUAL;
end TG_FORNEC_INSERT;



-- Created on 30/11/2014 by ADMINISTRADOR 
declare 
  -- Local variables here
  v_Seq number:=0;
  v_SMax number:=0;
  
begin
  -- Test statements here
  SELECT MAX(fornecedor.cod_fornecedor) 
  into v_SMax
  from fornecedor;
  
  while v_Seq <> v_SMax
  loop
    SELECT FORNECEDOR_SEQ.NEXTVAL
     INTO v_Seq
    FROM DUAL;
  end loop;

dbms_output.put_line(v_SMax||' '||v_Seq);

end;