Oracle存储过程包括数组，变量引用select返回值

CREATE OR REPLACE PROCEDURE "PRO_TEST"
/**
*
*/
(p_code OUT VARCHAR2 )
as

--声明b变量为数值类型

b number;

--定义数组a_type 为varchar2(50) 的数组类型

type a_type is table of VARCHAR2(50) INDEX BY BINARY_INTEGER;

--定义变量a的类型为数组

a a_type;

begin

begin

--此处将select 结果值赋给b变量

select count(*) into b from temp_nu_jf_constant;

end;

--为数组赋值

begin
a(1) :='NATCD';
a(2) :='MRTL';
a(3) :='ABFSH';
a(4) :='ABREL';
a(5) :='MPTYP';
a(6) :='MRTL';
a(7) :='MRTL';
a(8) :='MRTL';
a(9) :='MRTL';
a(10) :='MRTL';
end;


begin
      if b>0 then
        for i in 1 .. 5 Loop
          delete from NU_JF_CONSTANT where COLUMN_NAME=a(i) and STATUS='0';
          update NU_JF_CONSTANT set Status='0' where COLUMN_NAME=a(i); 
          insert into NU_JF_CONSTANT select COLUMN_NAME,VALUE,DESLINE,VALUE AS ORDERNO,CTYPE,DSC,FLAG,ORG_CODE,STATUS from TEMP_NU_JF_CONSTANT where COLUMN_NAME =a(i);
        end Loop;
      end if;
end;

commit;
p_code :='0000';
EXCEPTION
WHEN OTHERS THEN
    p_code := SQLERRM;
    dbms_output.put_line('SQLERRM:' || SQLERRM);
    ROLLBACK;
    RETURN;
end PRO_TEST;