pois quando eu crio este package ele me dá erros e ao usar o comando SHO ERR para visualizar os erros ele ele siz que foi encontrado o select quando outros símbolos eram esperados:
segue o package
Create PACKAGE OURPACK is
TYPE t_testtype IS TABLE OF NUMBER INDEX BY BINARY_INTEGER;
procedure TestProc(p_TestArray t_testtype);
end;
create PACKAGE BODY OURPACK as
procedure TestProc(p_TestArray t_testtype) is
v_variavel_local OurPack.testproc(p_testarray);
QT_REG number(10) := 15;
L_CDEMP CHAR(2) := '01';
L_CDFIL CHAR(4) := '0001';
L_NUSEQMOV CHAR(6) := '000003';
L_NUMERO CHAR(10);
j number(10) := 1;
i number(10) := 0;
begin
while i < (QT_REG - 1) loop
begin
v_variavel_local(i) := (
select nuseqite
from drvicv
where
cdemp = L_CDEMP and
cdfil = L_CDFIL and
nuseqmov = L_NUSECMOV
);
i := (i + 1);
while j <> QT_REG loop
begin
j := (j + 1);
if v_variavel_local(i + 1) <> v_variavel_local(j) then
L_NUMERO := (to_char(v_variavel_local(j)));
end;
end;
end;
falou