老是说编译错误:
PLS-00103: 出现符号"ALTER"在需要下列之一时:
begindeclareexitforgotoif..........
但是把这两句alter trigger删除了就没报错了
CREATE OR REPLACE TRIGGER A_Package_Charge
before insert on suhistor
for each row
declare
lrealdate number;
lmonth number;
begin
alter trigger A_Pack_prodsubs disable;
if :new.sheventnr =171 and :new.SHPRODUCTNR=4
   and :new.SHREASON=35 and :new.SHPREVPSSTATUS='D' and :new.SHNEWPSSTATUS='A' then
then
     update prodsubs
     set PSCONTRACTENDDATE =to_number(to_char(add_months(last_day(to_date(1721425+:new.SHREALDATE,'J')),11),'J'))-1721425
     where PSNR= :new.SHPSNR;
 end if;
alter trigger A_Pack_prodsubs enable;
end A_Package_Charge;