Help with update in procedure

Question

Hello,
i have 2 tables called EMWP and DPT EMWP holds distinct data, and the other holds all those distinct values a 1 row in DPT table.
I wrote a procedure to get all the data from emwp to dpt table. when i add new row
here is EMWP TABLE
EMWP data
code rlevel tid ind emp_rule upd_logon timestamp
GU00 1 1 S 100 501 sysdate
GU00 1 1 S 101 501 sysdate
GU00 1 1 S 102 501 sysdate
GU00 1 1 S 105 608 sysdate
DR00 2 3 R 100 701 sysdate
DR00 2 3 R 101 701 sysdate
DR00 2 3 R 102 701 sysdate
DR00 2 3 R 104 701 sysdate
DPT data
ccode rlevel tid ind DPTRULENUM upd logon timestamp
GU00 1 1 S 100,101,102 501 sysdate
DR00 2 3 R 151,152,153,154 701 sysdate
WHEN I add a new emp rule row into EMWP table as for example:
GU00 1 1 S 155 608 sysdate
when i run the following procedure it basically replaces the data wholesale from EMWP to DPT table.
when execute this procedure this new emp rule should be added to DPT table as
GU00 1 1 S 100,101,102,105 608 sysdate
basically it should replace the row in DPT which has updlogon 501 data and add this new emprule as 100, 101, 102 and 105 as shown in the above example.
how can interpret in procedure please.
here i am sending the code that i wrote.
CREATE OR REPLACE PROCEDURE GET_dpt
IS
BEGIN
DELETE get_dpt;
FOR c IN (select a.cCODE ,
a.RLEVEL,
a.TID,
a.IND,
rtrim (xmlagg (xmlelement (e, a.emp_rule || ',' )order by a.emp_rule).extract ('//text()'), ',') RULENUM,
a.UPDLOGON,
b.CCODE coc ,
b.RLEVEL level,
b.TID typeid,
b.IND indic
from EMWP a full outer join DPT b on
a.ccode = b.ccode
AND a.rlevel = b.level
AND a.tid = b.tid
AND a.ind = b.ind
Group by a.ccode, a.rlevel, a.tid, a.ind, a.UPDLOGON, b.CCODE,b.RLEVEL, b.TID, b.INDic
order by a.ccode, a.rlevel)
LOOP
BEGIN
IF (c.CCODE = c.COC
AND C.RLEVEL = C.RLEVEL
AND C.tid = C.TID
AND C.IND = C.IND) THEN
insert into dpt (CCODE, RLEVEL, TID, IND, dptrulenum, UPDLOGON, TIMESTAMP)
values (C.CCODE, C.RLEVEL, C.TID, C.IND, C.RULENUM, C.UPDLOGON, SYSDATE);
ELSE
END IF;
EXCEPTION
WHEN OTHERS THEN
END;
end loop;
commit;
END;
/

Answer 1

here is the sample data that need to be replaced with new updlogon...
code rlevel tid ind emp_rule upd_logon timestamp
GU00 1 1 S 100 501 sysdate
GU00 1 2 S 101 501 sysdate
GU00 1 3 S 102 501 sysdate
GU00 1 0 S 105 608 sysdate
say for example i add this new to EMWP table
GU00 1 0 S 105 608 sysdate
i have to keep the above sample rows where updlogon = 501 plus 608 in EMWP table, but when inserting or updatingto DPT table i have to make sure to replace the above 3 rows with 501 and 608 rows as one string value with new updlogon in DPT table..
GU00     1 1     S     100,101,102,105 608     sysdate
CREATE OR REPLACE PROCEDURE GET_dpt
IS
BEGIN
DELETE get_dpt;
FOR c IN (select a.cCODE ,
a.RLEVEL,
a.TID,
a.IND,
rtrim (xmlagg (xmlelement (e, a.emp_rule || ',' )order by a.emp_rule).extract ('//text()'), ',') RULENUM,
a.UPDLOGON,
b.CCODE coc ,
b.RLEVEL level,
b.TID typeid,
b.IND indic
from EMWP a full outer join DPT b on
a.ccode = b.ccode
AND a.rlevel = b.level
AND a.tid = b.tid
AND a.ind = b.ind
Group by a.ccode, a.rlevel, a.tid, a.ind, a.UPDLOGON, b.CCODE,b.RLEVEL, b.TID, b.INDic
order by a.ccode, a.rlevel)
LOOP
BEGIN
IF (c.CCODE = c.COC
AND C.RLEVEL = C.RLEVEL
AND C.tid = C.TID
AND C.IND = C.IND) THEN
insert into dpt (CCODE, RLEVEL, TID, IND, dptrulenum, UPDLOGON, TIMESTAMP)
values (C.CCODE, C.RLEVEL, C.TID, C.IND, C.RULENUM, C.UPDLOGON, SYSDATE);
ELSE
END IF;
EXCEPTION
WHEN OTHERS THEN
END;
end loop;
commit;
END;
thank you.