Creacion De Procedimiento Almacenado Con If Y Select

[jfernandezt]

Hola a todos, soy nuevo en Firebird y tengo problemas para crear un procedimiento almacenado, el cual me retorna un select de acuerdo a un parámetro de entrada, por favor necesito me ayuden a ver donde esta mi error de sintaxis, ya que no puedo ejecutarlo:

Código SQL [-]
create or alter procedure usp_cargar_cbo_1p
(
pc_tipo_tabla varchar(20)
)
returns
(
pn_codigo numeric(10,0),
pc_nombre varchar(200)
)
as
begin

if (c_tipo_tabla = 'categoria') then
begin

for select
cod_categoria,
nom_categoria
from categoria
into n_codigo,
c_nombre
do;

end

if (c_tipo_tabla = 'cliente') then
begin

for select
cod_cliente,
nom_cliente
from cliente
into n_codigo,
c_nombre
do;

end

suspend;

end;

Muchas gracias por su ayuda,

José Fernandez