DEFINE pbanco ui.ComboBox
FUNCTION bancos()
 
 DEFINE  kbanco SMALLINT, dbanco CHAR(50)
 
 LET pbanco = ui.combobox.forname("formonly.cuenta_no")
 
 DECLARE bbancos CURSOR FOR
   SELECT a.cuenta_no,a.nombre_bco FROM cgtb00012 a
   WHERE a.status_t IS NULL
   CALL pbanco.clear()
 
 FOREACH bbancos INTO kbanco,dbanco
  CALL pbanco.additem(kbanco,dbanco)
 END FOREACH
 
END FUNCTION