En propiedades realice la definición como DropDown pero no me funciona,
El CmCombo1 muestra ok la lista de información que es el código y nombre
Cuando digito un par de letras para reducir la búsqueda, al dar enter me queda en blanco la lista sin lograr el objetivo.
Algo estoy haciendo mal, o me falta
esta es la rutina que tengo, si la pueden revisar
Código COBOL:
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 DATOS.
02 CODIGO PIC 9(3).
02 FILLER PIC X VALUE " ".
02 NOMBRE PIC X(35).
PROCEDURE DIVISION.
INVOKE CMCOMBO1 "CLEARLIST".
OPEN INPUT REGLABOR.
PROCESO.
MOVE LOW-VALUE TO AL1-NOM.
START REGLABOR KEY NOT < AL1-NOM INVALID GO TO FIN.
* MOVE LOW-VALUE TO KEY-LAB
* START REGLABOR KEY NOT < KEY-LAB INVALID GO TO FIN.
LEE. READ REGLABOR NEXT AT END GO FIN.
MOVE REG-CODLAB TO CODIGO.
MOVE REG-NOMLABOR TO NOMBRE.
INVOKE CMCOMBO1 "ADDSTRING" USING DATOS.
GO LEE.
FIN.
CLOSE REGLABOR.
EXIT PROGRAM.