No puedes compartir parámetros entre procedimientos, En ese sentido, PL/SQL es como cualquier otro lenguaje de programación y, ni en C, Pascal o C#, por mencionar algunos, podrías compartir un parámetro entre dos funciones o métodos distintos.
Dicho esto, si que existen mecanismos para almacenar y compartir el estado entre llamadas a distintos procedimientos de un mismo paquete y es que estos tienen soporte para definir variables globales (al paquete).
Estos vendrían siendo análogos a los atributos o miembros de un objeto o de un registro, en otros lenguajes.
Debes tener en cuenta que dichos datos son mantenidos durante la sesión, y no puedes compartir datos entre distintas sesiones.
Así, podrías declarar tu paquete de esta manera:
create or replace package PK1 is
pkg_empleado_id number := null;
procedure SetID(p_id in number);
procedure obtener_nombre;
procedure obtener_rol;
end;
/
create or replace package body PK1 is
procedure SetID(p_id in number) is
begin
pkg_empleado_id := p_id;
end SetID;
procedure obtener_nombre is
xnombre varchar2(250);
begin
select nombre
into xnombre
from empleados
where id = pkg_empleado_id;
end obtener_nombre;
procedure obtener_rol is
xrol varchar2(250);
begin
select rol into xrol
from empleados_org
where id = pkg_empleado_id;
end obtener_rol;
end PK1;
/
Como puedes observar, ahora he declarado ambos procedimientos sin parámetro y he añadido el procedimiento setID()
, que es el que establece el valor del id
del empleado.
Debo aclarar que nada impide que almacenes el valor desde el procedimiento obtener_nombre()
, pero yo en realidad prefiero que la intención de cada procedimiento sea clara y se explique por su nombre y por eso lo he hecho de esta manera.
Así le evito más de un dolor de cabeza a quién esté dándole mantenimiento a este código en 5 años. Incluso a mi mismo, pues fácilmente podría simplemente invertir el orden de las llamadas o quitar la llamada a obtener_nombre()
sin advertir que todo se romperá al hacerlo.