FUNCTION cequipos()
 DEFINE  kequipo SMALLINT, dequipo CHAR(30),
         pequipo ui.ComboBox
 LET pequipo = ui.combobox.forname("formonly.equipos")
 
 DECLARE bequipos CURSOR FOR
   SELECT a.depto,a.nombre FROM seg0008 a
 
 CALL pequipo.clear()
 
 FOREACH bequipos INTO kequipo,dequipo
  CALL pequipo.additem(kequipo,dequipo)
 END FOREACH 
END FUNCTION