Power Builder - RE:Crear un Stored Procedure y llamar desde PB (2)

* EJECUTAR UN SP DESDE PB:
Cargaremos los registros en tres controles ListBox (uno por cada columna). Cargarlo a un DW, creo será fácil. Almacenaremos los datos en variables utilizando FETCH:

String ls_id, ls_nombre, ls_ciudad
Integer li_Num

String ls_parametro_ciudad='Sucre'

//Limpiamos los ListBox
lb_1.Reset()
lb_2.Reset()
lb_3.Reset()

DECLARE mostrar PROCEDURE FOR sp_miprocedure
@ciudad = :ls_parametro_ciudad
USING SQLCA;

EXECUTE mostrar;

FETCH mostrar INTO:ls_Id,:ls_nombre,:ls_ciudad;

//Llenar los ListBox con los registros resultado del select
//Cuando no hay registros por leer, la variable SQLCode toma el valor 100
DO WHILE Sqlca.SQLCode<>100
li_Num=li_num+1
lb_1.AddItem(ls_Id)
lb_2.AddItem(ls_Nombre)
lb_3.AddItem(ls_ciudad)
FETCH mostrar INTO :ls_Id, :ls_nombre, :ls_ciudad;
LOOP
//-------------------Fin------------------------

Nota: No sé si el ejemplo es elegante; pero es sabido que no existen muchos ejemplos de SP en PB. Y por lo menos, éste funciona...