Procedimientos Almacenados

-- Procedimiento Almacenado OUT

create or replace procedure primerProcedure (ptexto out varchar2) is
begin
ptexto := 'Este valor fue modificado en mi procAlmacenado!!';
end primerProcedure;

set serveroutput on
declare
vTexto varchar2(60) := 'Hola po CTM';
begin
primerProcedure(vTexto);
dbms_output.put_line('Mi Mensaje: '||vTexto);
end;

-- Procedimiento Almacenado IN OUT

create or replace procedure segundoProcedure (ptexto in out varchar2) is
begin
dbms_output.put_line('Mensaje de Inicio: '||pTexto);
ptexto := 'Este valor fue modificado en mi procAlmacenado!!';
end segundoProcedure;

set serveroutput on
declare
vTexto varchar2(60) := 'Hola po CTM';
begin
segundoProcedure(vTexto);
dbms_output.put_line('Mi Mensaje: '||vTexto);
end;

-- Procedimiento Almacenado CONCATENAR

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

show err procedure Concatenar;

set serveroutput on
declare
vTexto varchar2(60) := 'Hola po CTM';
begin
Concatenar('Buenas', 'Cachitas');
Concatenar(ptexto2=>'Buenas', ptexto1=>'Cachitas');
end;

-- Funciones

create or replace function funcParImpar(pNumero integer) is
msg varchar2(5) := 'Impar'
begin
if mod(pNumero,2) = 0 then
msg := 'Par';
end if;
return msg;
end;

create or replace function funcConcatenar(ptexto1 varchar(2), ptexto2 varchar(2)) is
begin
return ptexto1||' '||ptexto2;
end;

select funcConcatenar('7')