将PL/SQL块更改为过程

我有一个PL/SQL块，每次运行它时都会创建一个视图。 我想将其更改为名为“VIEW\u PROC”的存储过程，这样每次创建视图时只需运行该过程。 我该怎么做

set serveroutput on
declare 
  compte number;

  DQEntity varchar2(50);
  DynSQL varchar2(4000);
  finale varchar2(4000);
  v1 varchar2(40):='''DD-MM-YY''';
  createview varchar2(4000) :=  'CREATE OR REPLACE FORCE EDITIONABLE VIEW "DV2_OBIDMT"."F_GENERAL_DATA_QLTY3" ("SRC_SYS_ID", "SOFT_RULE_NAME", "ENTITY_NAME", "DATE_", "PASSES", "FAILS") AS ('; 

begin 

  select COUNT(*) into compte
      from DV2_OBIADM.IM_LUT_ENTITY_SOFT_RULES;

  for ins in (select ENTITY_NAME as Q1
                  from DV2_OBIADM.IM_LUT_ENTITY_SOFT_RULES  

              ) 
  loop

    DQEntity:= ins.Q1;

    DynSQL := DynSQL || 'select 
                                SRC.SRC_SYS_ID,
                                EN.SOFT_RULE_NAME,
                                EN.ENTITY_NAME,
                                (to_date(to_char(SRC.LDTS,'||v1||'))) as date_,
                                sum(case when SRC.QLTY_TEST= '||'''Pass'''||' then 1 else 0 end) as Passes, 
                                sum(case when SRC.QLTY_TEST= '||'''Fail'''||' then 1 else 0 end) as Fails
                                from "DV2_OBIADM".IM_LUT_ENTITY_SOFT_RULES EN, ' ||DQEntity|| '  SRC
                                WHERE EN.ENTITY_NAME = ''' || DQEntity || '''
                                GROUP BY SRC.SRC_SYS_ID, EN.ENTITY_NAME, EN.SOFT_RULE_NAME,(to_date(to_char(SRC.LDTS,'||v1||'))) ' ;
    compte := compte -1; 

    if compte >= 1 then 

      DynSQL := DynSQL ||chr(13)||chr(10)|| '  UNION ALL ';
    end if; 

  end loop;
  finale := createview || DynSQL;
  finale := finale|| ')';

  execute immediate finale;
end;

---

谢谢你的帮助

这是创建存储过程的代码：

create or replace procedure VIEW_PROC is

compte number;

DQEntity varchar2(50);
DynSQL varchar2(4000);
finale varchar2(4000);
v1 varchar2(40):='''DD-MM-YY''';
createview varchar2(4000) :=  'CREATE OR REPLACE FORCE EDITIONABLE VIEW "DV2_OBIDMT"."F_GENERAL_DATA_QLTY3" ("SRC_SYS_ID", "SOFT_RULE_NAME", "ENTITY_NAME", "DATE_", "PASSES", "FAILS") AS 

  ('; 


begin 

select COUNT(*) into compte
    from DV2_OBIADM.IM_LUT_ENTITY_SOFT_RULES;

for ins in (
select ENTITY_NAME as Q1
    from DV2_OBIADM.IM_LUT_ENTITY_SOFT_RULES  

) loop

DQEntity:= ins.Q1;

DynSQL := DynSQL || 'select 
                            SRC.SRC_SYS_ID,
                            EN.SOFT_RULE_NAME,
                            EN.ENTITY_NAME,
                            (to_date(to_char(SRC.LDTS,'||v1||'))) as date_,
                            sum(case when SRC.QLTY_TEST= '||'''Pass'''||' then 1 else 0 end) as Passes, 
                            sum(case when SRC.QLTY_TEST= '||'''Fail'''||' then 1 else 0 end) as Fails
                            from "DV2_OBIADM".IM_LUT_ENTITY_SOFT_RULES EN, ' ||DQEntity|| '  SRC
                            WHERE EN.ENTITY_NAME = ''' || DQEntity || '''
                            GROUP BY SRC.SRC_SYS_ID, EN.ENTITY_NAME, EN.SOFT_RULE_NAME,(to_date(to_char(SRC.LDTS,'||v1||'))) ' ;
compte := compte -1; 

     if compte >= 1 then 

        DynSQL := DynSQL ||chr(13)||chr(10)|| '  UNION ALL ';
   end if; 

end loop;
finale := createview || DynSQL;
finale := finale|| ')';

execute immediate finale;

end VIEW_PROC;

---

开始时，您必须添加

create或replace procedure VIEW\u PROC is

，删除

declare

，并在末尾的

END

关键字后添加过程名称

VIEW\u PROC

。

将

declare

关键字替换为

create或replace procedure VIEW\u PROC is