DBMS_hw_2.sql

drop sequence log_id_seq;

create sequence log_id_seq
    start with 0
    increment by 1;

create table debug_log (
    id number constraint log_id primary key,
    lod_time date constraint log_time_nl not null,
    message varchar(2000) constraint message_not_null not null,
    msg_source varchar(2000) constraint source_not_null not null
);

create or replace procedure get_oldest_and_youngest_workers
is
begin
    declare
        oldest EMP.hiredate%TYPE;
        youngest EMP.hiredate%TYPE;
    begin
        select hiredate into oldest from EMP order by hiredate asc offset 0 rows fetch next 1 rows only;
        select hiredate into youngest from EMP order by hiredate desc offset 0 rows fetch next 1 rows only;
        insert into debug_log values(log_id_seq.nextval, sysdate, 'oldest = ' || oldest || ' youngest = ' || youngest, 'get_oldest_and_youngest_workers');
    end;
end;
/

begin 
    get_oldest_and_youngest_workers;
    get_oldest_and_youngest_workers;
end;
/

select * from debug_log;