OBTENER VARIABLE OUT DE STORE PROCEDURE (oracle) a traves de un script PHP

[sandinosaso]

GENTE LA COSA ES ASI:
1) TENGO ESTE STORED PROCEDURE (con 2 variables OUT):

PROCEDURE get_module_trigger (pomodulo OUT VARCHAR2, poaccion OUT VARCHAR2) IS

BEGIN

DBMS_APPLICATION_INFO.READ_MODULE(pomodulo, poaccion);

IF pomodulo like '%SQL%' THEN
-- SQL*Plus
pomodulo := 'S';
END IF;

IF pomodulo like '%httpd%' THEN
-- Sistema Web de Elecciones
pomodulo := 'E';
END IF;

IF pomodulo NOT IN ('M', -- Cargas Masivas
'S', -- SQL*Plus
'E' -- Sistema de Elecciones
) THEN
pomodulo := 'X'; -- Desconocido
END IF;

END;

BEGIN
return;
END;

2) Si hago esto en un script PHP todo funciona bien:

$SQL = "BEGIN elecciones.sesiones.get_module_trigger(:modulo,:ac cion); END;";
$cur = ociparse($conexion,$SQL);
OCIBindByName($cur,":modulo", $mod, 100) or die ('No se pudo realizar el bind');
OCIBindByName($cur,":accion", $acc, 100) or die ('No se pudo realizar el bind');
OCIExecute($cur) or die ('No se pudo ejecutar');

3) SI HAGO echo $mod o echo $acc me devuelve lo que deberia ('E', 'X', o 'M')
PERO INTENTO HACER UN PROCEDIMIENTO QUE ME HAGA ESTO Y QUE RECIBA COMO PARAMETROS a $mod, $acc y no puedo.
Si alquien puede hacer este procedimiento que me avise...salu2

[MarioHeredia]

Hola... estuve viendo tu procedimiento y lo rearme un poco...

Código HTML:

CREATE OR REPLACE PROCEDURE GET_MODULE_TRIGGER (POMODULO OUT VARCHAR2, POACCION OUT VARCHAR2) IS

BEGIN

DBMS_APPLICATION_INFO.READ_MODULE(POMODULO, POACCION);


SELECT CASE WHEN POMODULO LIKE '%SQL%' THEN 'S'
            WHEN POMODULO LIKE '%httpd%' THEN 'E'
            ELSE 'X' END
  INTO POMODULO
  FROM DUAL;

END;
/

Procedure created.

Luego ejecutas en el PL/SQL Developer, por ejemplo el siguiente comando:

Código HTML:

DECLARE

PO VARCHAR2(100);
AC VARCHAR2(100);

BEGIN

GET_MODULE_TRIGGER(PO, AC);

DBMS_OUTPUT.PUT_LINE(PO||' '||AC); 

END;

..... y funciona barbaro.... espero te sirva...

Saludos, Mario.

[kikolice]

no entiendo bien el problema pero segun parece

PROCEDURE get_module_trigger (pomodulo OUT VARCHAR2, poaccion OUT VARCHAR2) IS

PERO INTENTO HACER UN PROCEDIMIENTO QUE ME HAGA ESTO Y QUE RECIBA COMO PARAMETROS a $mod, $acc y no puedo.

no es por que estas definiendo las dos variables como solamente OUT? si quieres que reciban valores declaralos como "IN OUT"