Power Builder - como grabar dos a mas tablas a la misma ves en DW

//***********************************************************************************************************************

Tengo este problema, solo me llena el primer valor y me sale error en if SQLCA.sqlcode <> 0 then, a que se debe

// *********** declara curso para Servicios Públicos Energia electrica************
declare cur_servicio cursor for select codServicio, nomServicio, CodClasificacionServicio
from dbo.Servicio
where codclasificacionservicio = 1;

OPEN cur_Servicio ;
if SQLCA.sqlcode < 0 then
MessageBox("Open Cursor",SQLCA.sqlerrtext)
end if
DO WHILE SQLCA.sqlcode = 0
FETCH cur_Servicio INTO :CodigoServicio, :NameServicio, :clasificacionServicio ;
if SQLCA.sqlcode < 0 then
MessageBox("Fetch Error",SQLCA.sqlerrtext)
elseif SQLCA.sqlcode = 0 then
// ************************* Captura y muestra el nombre de la energía electrica ***************************
String NombreServicio
SELECT NomServicio into :NombreServicio
FROM dbo.Servicio;
ddlb_energiaelectrica.additem(NombreServicio)
if SQLCA.sqlcode <> 0 then
MessageBox("Singleton Select", SQLCA.sqlerrtext)
end if
end if
LOOP
CLOSE cur_Servicio;
if SQLCA.sqlcode <> 0 then
MessageBox("Close Cursor", SQLCA.sqlerrtext)
end if

//*************************************************************************************
Atte: Aldo castillo
[email protected]