请将把这些oracle的sql语句写成oracle的存储过程

insert into  tab_cgdsh(CLSBDH,HPZL,CLPP,CLLX,SYR,YXQZ,QZBFQZ,CCDJRQ,LXDH,XMBH)
(
select CLSBDH,HPZL,CLPP,CLLX,SYR,YXQZ,QZBFQZ,CCDJRQ,LXDH,'C04' from test_cgdsh t where t.cllx='H51' OR t.cllx='H52' OR t.cllx='H53' OR t.cllx='H54'
and t.ccdjrq>=trunc(add_months(sysdate,-110),'month')
and t.ccdjrq <= last_day(add_months(sysdate,-110))
and t.clsbdh not in(select cgsh.clsbdh from tab_cgsh cgsh where cgsh.xmbh='C04')
)

CREATE OR REPLACe PROCEDURE P1()

AS

BEGIN

insert into  tab_cgdsh(CLSBDH,HPZL,CLPP,CLLX,SYR,YXQZ,QZBFQZ,CCDJRQ,LXDH,XMBH)
(
select CLSBDH,HPZL,CLPP,CLLX,SYR,YXQZ,QZBFQZ,CCDJRQ,LXDH,'C04' from test_cgdsh t where t.cllx='H51' OR t.cllx='H52' OR t.cllx='H53' OR t.cllx='H54'
and t.ccdjrq>=trunc(add_months(sysdate,-110),'month')
and t.ccdjrq <= last_day(add_months(sysdate,-110))
and t.clsbdh not in(select cgsh.clsbdh from tab_cgsh cgsh where cgsh.xmbh='C04')
)

END P1;

/

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息