Power Builder - Ayuda para depurar este script

Alguien sabe donde puede estar algo malo? saludos

DECLARE puntero CURSOR FOR SELECT area, id_area FROM area1;

OPEN puntero;

fetch puntero into :area, :id_area;
DO WHILE sqlca.sqlcode = 0

ddlb_3.AddItem(area, id_area)
ll_i++
Fetch puntero Into :area, :id_area;
Loop

If Sqlca.Sqlcode = -1 Then

Return

Else

Close puntero;
Return

End If

La función additem solo permite enviar un parametro, bien puede ser area o id_area y si quieres que se muestren los dos datos
envialo concatenados area + ' ' + id_area
ddlb_1.additem( cadena )
Nota en el caso que sea un ddplb este control si recibe uno como dos parametros el primero la cadena y el segundo numero de que icono se mostrará en el item.

no se en que afecte pero las variables no deven tener el mismo nombre de un campo como en tu caso
tienes area como campo y a la ves está como variable
fectch into :area (area deve ser un nombre diferente del campo para evitar confuciones).