[[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^