Transfering old data from a table to a history table for records purposes

Question

Hi,
I need to write a program that automatically writes old records to another table before updating or deleting itself.
Can this be automated to be done every 28th of every month.
See my tables below:
CREATE TABLE PAY(
PAYMENTID NUMBER(8) NOT NULL,
EMPID NUMBER NOT NULL,
NAME VARCHAR(30) NOT NULL,
MONTHLY_NORMALHRS NUMBER(2),
OTHRS_FOR_MONTH NUMBER(2),
MONTHLY_WAGES NUMBER(7,2),
OTAMOUNT_FOR_MONTH NUMBER(7,2),
--ALLOWANCES
--DEDUCTIONS
GROSS_MONTHLY NUMBER (7,2),
MONTHLY_TAX NUMBER(7,2),
MONTHLY_NET NUMBER(7,2),
PAYMENTDATE DATE NOT NULL,
CONSTRAINT PK_PAY PRIMARY KEY (PAYMENTID));
INSERT INTO PAY VALUES(100,200,'JOHN BULL',140,20,'','','','','','28-MARCH-2006');
UPDATE PAY SET MONTHLY_WAGES= ((35000.00/52)*4), OTAMOUNT_FOR_MONTH=(20*1.5), GROSS_MONTHLY=((35000.00/12)+(20*1.5)), MONTHLY_TAX=((35000.00/52)*4)+((20*1.5)*.20),MONTHLY_NET=(((35000.00/12)+(20*1.5)))-(((35000.00/52)*4)+((20*1.5)*.20)) WHERE PAYMENTID = 100;
CREATE TABLE PAYMENT_HISTORY(
PAYMENTID NUMBER(8),
EMPID NUMBER NOT NULL,
NAME VARCHAR(30) NOT NULL,
MONTHLY_NORMALHRS NUMBER(2),
OTHRS_FOR_MONTH NUMBER(2),--
MONTHLY_WAGES NUMBER(7,2),-- ((CLASSIFICATION.YEARLY_PAY/52)*4) OR CLASSIFICATION.YEARLY_PAY/12
OTAMOUNT_FOR_MONTH NUMBER(7,2),
--ALLOWANCES
--DEDUCTIONS
GROSS_MONTHLY NUMBER (7,2),--(MONTHLY_WAGES +(MONTHLY_OTHRS*1.5))
MONTHLY_TAX NUMBER(7,2),
MONTHLY_NET NUMBER(7,2),
PAYMENTDATE DATE NOT NULL,
CONSTRAINT UQ_PAY_PAYM_HIST UNIQUE (PAYMENTID,PAYMENTDATE));
Now I need to be able transfer the update record on table PAY to table PAYMENT_HISTORY on a regularly date say the 28th of every month.
How do I do this, a trigger or a procedure or both?
SOS
Cube60

Answer 1

Example ;-
create table test67(no number(2) primary key, name varchar2(10));
create table test67h(no number(2), name varchar2(10),flag char);
create or replace trigger t67 before insert or update or delete on test67 for each row
begin
if inserting then
insert into test67h values(:new.no,:new.name,'N');
end if;
if updating then
insert into test67h values(:new.no,:new.name,'U');
end if;
if deleting then
insert into test67h values(:old.no,:old.name,'D');
end if;
end;
SQL> insert into test67 values(1,'Lijesh');
1 row created.
SQL> update test67 set name='Vishnu' where no=1;
1 row updated.
SQL> delete from test67;
1 row deleted.
SQL> select * from test67h;
NO NAME F
1 Lijesh N
1 Vishnu U
1 Vishnu D
SQL> select * from test67;
no rows selected