Como se hace un Procedimiento en Interbase

[juliopag1]

Casi no he utilizado interbase, y necesito hacer un procedimiento, hice una prueba (abajo), pero no me sale, Que esta mal??
Gracias

CREATE PROCEDURE PRUEBA()
RETURNS(GCL_CODIGO NUMERIC(8,0))
AS
BEGIN
  SELECT GCL_CODIGO FROM G_CLIENTE
  SUSPEND;
END
 ^

[[maeyanes]]

Tienes que asignar el valor que quieres devolver:

Código SQL [-]
CREATE PROCEDURE PRUEBA
RETURNS(GCL_CODIGO NUMERIC(8,0))
AS
BEGIN
  SELECT GCL_CODIGO FROM G_CLIENTE
  INTO :GCL_CODIGO; /* Aquí asignas el valor del campo GCL_CODIGO al parámetro
                         de salida GCL_CODIGO */
  SUSPEND;
END^