CREATE or replace procedure
delete_wonjang(paid_date_arg IN hps004.paid_date%type,
member_no_arg IN hps004.member_no%type,
slip_no_arg IN hps004.slip_no%type,
deal_amt_arg IN hps004.deal_amt%type,
deal_date_arg IN hps004.deal_date%type)
AS
BEGIN
delete from hps004
where
jiso_code = '17139'
and paid_date= paid_date_arg
and member_no= member_no_arg
and slip_no = slip_no_arg
and deal_amt = deal_amt_arg
and deal_date=deal_date_arg
;
dbms_output.put_line(to_char(SQL%ROWCOUNT)||' rows is deleted');
END delete_wonjang;
/

execute delete_wonjang('2002/02/28','840088',268,111000,'2002-02-04')
execute delete_wonjang('2002/02/28','930027',752,118200,'2002-02-26')
execute delete_wonjang('2002/02/28','960052',301,111800,'2002-02-07')
execute delete_wonjang('2002/02/28','960052',301,112000,'2002-02-07')
execute delete_wonjang('2002/02/28','970003',428,289500,'2002-02-23')
execute delete_wonjang('2002/02/28','970003',428,13000,'2002-02-23')
execute delete_wonjang('2002/02/28','980007',281,112000,'2002-02-05')
execute delete_wonjang('2002/02/28','A00053',317,33300,'2002-02-07')
execute delete_wonjang('2002/02/28','A00053',353,277500,'2002-02-08')


execute delete_wonjang('2002-03-31','900033',199,253000,'2002-03-16')

execute delete_wonjang('2002-04-30','980027',77,68100,'2002-04-02')
execute delete_wonjang('2002-04-30','980027',312,68100,'2002-04-30')
execute delete_wonjang('2002-04-30','980027',474,68100,'2002-04-29')

execute delete_wonjang('2002-05-31','870193',545,21560,'2002-05-28')

execute delete_wonjang('2002-06-30','830038',224,67960,'2002-06-22')
execute delete_wonjang('2002-06-30','830038',224,33600,'2002-06-22')
execute delete_wonjang('2002-11-30','890018',380,4277800,'2002-11-05')


~~~~~~~~~~~~~~~~

execute delete_wonjang('2003-02-28','870030',641,1322000,'2003-02-03')

execute delete_wonjang('2003-06-30','870030',612,37240,'2003-06-10')
execute delete_wonjang('2003-06-30','870030',618,72500,'2003-06-26')
execute delete_wonjang('2003-06-30','870030',618,275100,'2003-06-26')

execute delete_wonjang('2003-12-31','860116',542,2397000,'2003-12-17')
execute delete_wonjang('2003-12-31','970081',558,297500,'2003-12-19')

execute delete_wonjang('2004-02-29','910021',47,311700,'2004-02-05')

execute delete_wonjang('2004-03-31','910010',582,201900,'2004-03-30')
execute delete_wonjang('2004-03-31','910010',582,6960,'2004-03-30')
execute delete_wonjang('2004-03-31','910010',582,7830,'2004-03-30')

execute delete_wonjang('2004-04-30','810128',218,178500,'2004-04-13')
execute delete_wonjang('2004-04-30','810169',310,377000,'2004-04-22')
execute delete_wonjang('2004-04-30','910021',329,728800,'2004-04-26')
execute delete_wonjang('2004-04-30','990033',215,2564696,'2004-04-03')
execute delete_wonjang('2004-04-30','990033',217,2757584,'2004-04-06')