Procedimientos almacenados Estructura

Estructura del procedimiento con out
create or replace procedure miProcedimiento(ptexto out varchar2) is
begin
  ptexto := 'Este es mi mensaje del procedimiento';
end miProcedimiento;

Llamando al procedimiento


declare
  vtexto varchar2(50) := 'Hola a todos';
begin
  miProcedimiento(vtexto);
  dbms_output.put_line('Mi mensaje : '||vtexto);
end;

Procedimiento con in y out


create or replace procedure miProcedimiento(ptexto in out varchar2) is
begin
  dbms_output.put_line('Mi mensaje : '||ptexto);
  ptexto := 'Este es mi mensaje del procedimiento';
end miProcedimiento;

set serveroutput on
declare
  vtexto varchar2(50) := 'Hola a todos';
begin
  miProcedimiento(vtexto);
  dbms_output.put_line('Mi mensaje : '||vtexto);
end;

Procedimiento con solo salida


create or replace procedure miProcedimiento(ptexto out varchar2) is
begin
  dbms_output.put_line('Mi mensaje : '||ptexto);
  ptexto := 'Este es mi mensaje del procedimiento';
end miProcedimiento;

set serveroutput on
declare
  vtexto varchar2(50) := 'Hola a todos';
begin
  miProcedimiento(vtexto);
  dbms_output.put_line('Mi mensaje : '||vtexto);
end;

Procedimiento concatenado


create or replace procedure Concatenar(ptexto1 varchar2,ptexto2 varchar2) is
begin
  dbms_output.put_line(ptexto1||' '||ptexto2);
end Concatenar;

set serveroutput on
declare
  vtexto varchar2(50) := 'Hola a todos';
begin
  Concatenar('Buenos','Dias');
  Concatenar(ptexto2=>'Buenos',ptexto1=>'Dias');
end;