oracle利用数组循环调用多个存储过程

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;