TEXT
PROCEDURE verificar_validade_alimentos IS
CURSOR cur_vencidos IS
   SELECT nome FROM ALIMENTO
   WHERE data_validade < SYSDATE;
   alimento_vencido VARCHAR(30);

BEGIN
   OPEN cur_vencidos;
   LOOP
      FETCH cur_vencidos INTO alimento_vencido;
      EXIT WHEN cur_vencidos%NOTFOUND;
      --ENVIAR EMAIL AQUI
      DBMS_OUTPUT.PUT_LINE('ATENÇÃO: O ' || TO_CHAR(alimento_vencido) || ' está fora do prazo de validade!');
   END LOOP;
   CLOSE cur_vencidos;
END verificar_validade_alimentos;