Oracle - problema con sp en oracle

estoy intentando hacer un store procedure que me devuelva un consecutivo y me actualice una tabla, el problema es que soy nuevo en pl/sql oracle y cuando declaro el parametro de salida me sale error, compila pero no ejecuta.

No se como hacer para que me devuelva lo que queda en auxi
mi codigo es:


create or replace
PROCEDURE PA_CONSECUTIVO (TipoConsecutivo in VARCHAR,AUXI OUT number)

AS

BEGIN

SELECT consecutivo + 1 into AUXI
FROM tbl_consecutivo
WHERE UPPER(ltrim(rtrim(Tipo_Consecutivo))) = UPPER(ltrim(rtrim(TipoConsecutivo)));

UPDATE tbl_Consecutivo SET consecutivo = AUXI
WHERE upper(ltrim(rtrim(Tipo_Consecutivo))) = upper(ltrim(rtrim(TipoConsecutivo))) ;

END PA_CONSECUTIVO;

La tabla de la consulta es:

TIPO_CONSECUTIVO VARCHAR2(20 BYTE)
CONSECUTIVO NUMBER(38,0)
FECHAULTIMO DATE

les agradezco la ayuda.

create or replace PROCEDURE PA_CONSECUTIVO (TipoConsecutivo in VARCHAR,AUXI OUT number) AS
BEGIN
SELECT consecutivo + 1 into AUXI
FROM tbl_consecutivo
WHERE UPPER(ltrim(rtrim(Tipo_Consecutivo))) = UPPER(ltrim(rtrim(TipoConsecutivo)));
UPDATE tbl_Consecutivo SET consecutivo = AUXI
WHERE upper(ltrim(rtrim(Tipo_Consecutivo))) = upper(ltrim(rtrim(TipoConsecutivo))) ;
commit;
END PA_CONSECUTIVO;
/

Prueba correr desde SQLPLUS

set serveroutput on

declare
auxi number;
begin
PA_CONSECUTIVO (10,auxi);
dbms_output.put_line ( 'AUXI: '||auxi);
end;
/

Que mensaje de error te sale, si te aparece un mensaje de error ahí está el detalle, puedes decirnos que mensaje de error te sale??

Alvaro, tu problema es el siguiente;

PROCEDURE PA_CONSECUTIVO (TipoConsecutivo in VARCHAR,AUXI OUT number) AS
Declare
vAuxi tbl_consecutivo. Consecutivo%Type;
BEGIN

SELECT consecutivo + 1 into vAuxi
FROM tbl_consecutivo
WHERE UPPER(ltrim(rtrim(Tipo_Consecutivo))) = UPPER(ltrim(rtrim(TipoConsecutivo)))
For Update Nowait;

AUXI := vAuxi;

UPDATE tbl_Consecutivo SET consecutivo = AUXI
WHERE upper(ltrim(rtrim(Tipo_Consecutivo))) = upper(ltrim(rtrim(TipoConsecutivo))) ;

END PA_CONSECUTIVO;


Como se invoca:

Declare
vSecuencia tbl_consecutivo. Consecutivo%Type;
Begin
PA_CONSECUTIVO(‘10’, vSecuencia);
Dbms_Output.Put_Line(‘Nueva Secuencia ’|| vSecuencia);
End;
/

También puedes crear una función en vez de un procedure;

Espero esto ayude con tu caso.