create or replace PROCEDURE INCX(NUMPAGO OUT NUMBER) IS
begin
   Select INCPAGO.nextval into NUMPAGO
   from dual;
end;
/

create or replace procedure INCY(x in number, y out number) is
begin
   y:=nvl(x,0)+3;
end;
/