Usando el control ctlist del DBI
tal vez te sirva
Código COBOL:
01 DATOS.
02 COD PIC 9(6).
02 FILLER PIC X ";".
02 NOMBRE PIC X(50).
02 FILLER PIC X VALUE ";".
02 PRECIO PIC ZZ,ZZZ.ZZ.
01 IT PIC 99999.
PROCEDURE DIVISION.
MOVE LISTindex of ctlist1 TO it.
MOVE LISTtext( it ) of ctlist1 TO DATOS.
MOVE COD TO .....
Para selecciona un item en el ctlist.
Código COBOL:
INVOKE CTLIST1 "RemoveSelected".
para eliminar una linea
Código COBOL:
MOVE DATOS TO LISTTEXT( IT ) OF CTLIST1.
para reemplazar una linea
Código COBOL:
INVOKE CTLIST "ADDITEM" USING DATOS.
para adicionar datos.
Código COBOL:
MOVE IT TO MAX
COMPUTE MAX = MAX - 1.
INVOKE CTLIST1 "INSERTITEM" USING DATOS ,MAX.
para insertar una linea
