STORE PROCEDURE "RETURNS".

[barman]

La verdad me ha costado bastante, hasta que lo he sacado.
Bueno es bastante basico, un procedimiento que devuelve valores.

si lo hacemos asi

$stmt = " execute PROCEDURE PR1";
$qu = ibase_query($idbase,$stmt);
Realiza lo que hay dentro del procedimiento, pero no devuelve valores,
ademas ibase_errmsg(); devuelve message length error (encountered 0, expected 8 "depende del valor que debe devolver")

la forma que creo que es la correcta es la siguiente:

$qu= ibase_query($idbase,'select * from PR2');
$row= ibase_fetch_row($qu);
echo $row["0"], $row["1"];


El procedimiento de pruebas.

SET TERM @
CREATE PROCEDURE PR1
RETURNS (DES CHAR(20) ,COD INTEGER)
AS
BEGIN
DES = "HOLA";
COD = 2;
insert into uno (codigo,descripcion)
values (:COD,ES);
SUSPEND; ->es obligatorio

END @

Tabla

create table uno
(
codigo integer,
descripcion char(25)
);


SI se le quiere pasar algun valor

$stmt = " select * from PR2 ('MAMA') ";
$qu = ibase_query($idbase,$stmt);

El procedimiento

SET TERM @
CREATE PROCEDURE PR2 (descrip char (25))
RETURNS (DES CHAR(20) ,COD INTEGER)
AS
BEGIN
DES = "HOLA";
COD = 2;
insert into uno (codigo,descripcion)
values (:COD,:descrip);
SUSPEND;

END @







Pues nada eso es todo, agradeceria cualquier comentario sobre el codigo.