Historical table query

CREATE OR REPLACE PROCEDURE AS
  v_x INTEGER;
  v_y INTEGER;
  v_email VARCHAR2(100);
BEGIN
  INSERT INTO TABLEA_HIST SELECT t.*, TRUNC(SYSDATE)-14 AS DATE_HIST FROM TABLEA t;
  --
  SELECT COUNT(*) INTO v_x FROM TABLE_HIST WHERE DATE_HIST = TRUNC(SYSDATE)-14 AND ID = t.ID;
  SELECT COUNT(*) INTO v_y FROM TABLEA;
  IF v_x = v_y THEN
    DELETE FROM TABLEA;
  ELSE
    SENDMAIL(v_email,v_email,'Alert','No matching');
  END IF;
END;
/
 
create or replace procedure sendmail(sender varchar2,recipient varchar2,subject varchar2, text varchar2) 
IS 
mailhost    VARCHAR2(64) := '192.168.1.32'; 
port constant number(2):=25; 
timeout number :=180; 
mail_conn  utl_smtp.connection; 
BEGIN 
mail_conn := utl_smtp.open_connection(mailhost, port,timeout); 
utl_smtp.helo(mail_conn, mailhost); 
utl_smtp.mail(mail_conn, sender); 
utl_smtp.rcpt(mail_conn, recipient); 
utl_smtp.open_data(mail_conn); 
utl_smtp.write_data(mail_conn,'From'||':'|| Sender || UTL_TCP.CRLF); 
utl_smtp.write_data(mail_conn,'To'||':'|| recipient || UTL_TCP.CRLF); 
utl_smtp.write_data(mail_conn,'Subject' ||':'|| subject || UTL_TCP.CRLF); 
utl_smtp.write_data(mail_conn, text); 
utl_smtp.close_data(mail_conn); 
utl_smtp.quit(mail_conn); 
EXCEPTION 
WHEN UTL_SMTP.PERMANENT_ERROR THEN 
  BEGIN 
    utl_smtp.quit(mail_conn); 
  END; 
RAISE_APPLICATION_ERROR(-20101,'This id has Permanent Error'); 
WHEN UTL_SMTP.TRANSIENT_ERROR THEN 
  BEGIN 
    utl_smtp.quit(mail_conn); 
  END; 
RAISE_APPLICATION_ERROR(-20102,'SMTP transient error:'); 
WHEN UTL_SMTP.INVALID_OPERATION THEN 
  BEGIN 
    utl_smtp.quit(mail_conn); 
  END; 
RAISE_APPLICATION_ERROR(-20103,'Invalid Operation in Mail using UTL_SMTP.'); 
WHEN OTHERS THEN 
RAISE_APPLICATION_ERROR(-20104,'Some other Error ...!'); 
end; 
/ 

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:

CREATE OR REPLACE PROCEDURE MYPROC AS
  v_x INTEGER;
  v_y INTEGER;
  v_email VARCHAR2(100) := 'me@mycompany.com';
  v_team VARCHAR2(100) := 'myteam@mycompany.com';
BEGIN
  INSERT INTO TABLEA_HIST SELECT t.*, TRUNC(SYSDATE)-14 AS DATE_HIST FROM TABLEA t;
  --
  SELECT COUNT(*) INTO v_x FROM TABLE_HIST WHERE DATE_HIST = TRUNC(SYSDATE)-14 AND ID = t.ID;
  SELECT COUNT(*) INTO v_y FROM TABLEA;
  IF v_x = v_y THEN
    DELETE FROM TABLEA;
  ELSE
    SENDMAIL(v_email,v_email,'Alert','No matching');
  END IF;
EXCEPTION
  WHEN OTHERS THEN
    SENDMAIL(v_team,v_team,'Alert','Error encountered in the procedure MyProc');
END;
/
                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20: