CREATE OR REPLACE PROCEDURE proc_all is
TYPE proc_array IS TABLE OF VARCHAR2(50)
INDEX BY BINARY_INTEGER;
ProcedureName proc_array;
proc_sql varchar2(50);
begin
ProcedureName(1) := 'P_T';
ProcedureName(2) := 'P_T2';
ProcedureName(3) := 'P_T3';
ProcedureName(4) := 'P_T4';
FOR i IN 1..ProcedureName.count LOOP
begin
proc_sql:='begin '||ProcedureName(i)||'; end;';
execute immediate (proc_sql);
end;
END LOOP;
end proc_all;
TYPE proc_array IS TABLE OF VARCHAR2(50)
INDEX BY BINARY_INTEGER;
ProcedureName proc_array;
proc_sql varchar2(50);
begin
ProcedureName(1) := 'P_T';
ProcedureName(2) := 'P_T2';
ProcedureName(3) := 'P_T3';
ProcedureName(4) := 'P_T4';
FOR i IN 1..ProcedureName.count LOOP
begin
proc_sql:='begin '||ProcedureName(i)||'; end;';
execute immediate (proc_sql);
end;
END LOOP;
end proc_all;