Cobol - CTLISTBAR DBITECH

 
Vista:

CTLISTBAR DBITECH

Publicado por Daniel Palavecino (1 intervención) el 18/08/2015 02:51:22
Hola amigos, necesitaría un ejemplo de como utilizar CTLISTBAR de DBI tech , utilizo FUJITSU POWER COBOL. desde ya muchas gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Alejandro

Uso de CTLISTBAR de DBI Tech con Fujitsu Power COBOL

Publicado por Alejandro (300 intervenciones) el 11/09/2023 19:18:39
Para utilizar CTLISTBAR de DBI Tech con Fujitsu Power COBOL, a continuación, te proporciono un ejemplo básico de cómo crear una lista de elementos utilizando CTLISTBAR y agregarlos dinámicamente en un programa COBOL:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
IDENTIFICATION DIVISION.
       PROGRAM-ID. CTLISTBAR-EXAMPLE.
 
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 LISTBAR-HANDLE      POINTER.
       01 ITEM-HANDLE         POINTER.
       01 ITEM-TEXT           PIC X(50).
 
       PROCEDURE DIVISION.
           DISPLAY "Iniciando CTLISTBAR Example".
 
           * Inicializar la biblioteca CTLISTBAR
           CALL 'CTLISTBAR.DLL'.
 
           * Crear una nueva lista CTLISTBAR
           CALL 'CTListBar_Create' USING BY VALUE 0, RETURNING LISTBAR-HANDLE.
 
           * Agregar elementos a la lista
           MOVE "Elemento 1" TO ITEM-TEXT
           CALL 'CTListBar_InsertItem' USING BY VALUE LISTBAR-HANDLE,
                                             BY VALUE -1,  /* Insertar al final */
                                             BY VALUE ITEM-TEXT,
                                             RETURNING ITEM-HANDLE.
 
           MOVE "Elemento 2" TO ITEM-TEXT
           CALL 'CTListBar_InsertItem' USING BY VALUE LISTBAR-HANDLE,
                                             BY VALUE -1,  /* Insertar al final */
                                             BY VALUE ITEM-TEXT,
                                             RETURNING ITEM-HANDLE.
 
           * Mostrar la lista CTLISTBAR
           CALL 'CTListBar_Show' USING BY VALUE LISTBAR-HANDLE.
 
           * Esperar la interacción del usuario
           DISPLAY "Presiona ENTER para continuar..."
           ACCEPT ITEM-TEXT.
 
           * Liberar recursos al finalizar
           CALL 'CTListBar_Destroy' USING BY VALUE LISTBAR-HANDLE.
 
           DISPLAY "Ejemplo de CTLISTBAR finalizado."
 
           STOP RUN.

Asegúrate de reemplazar "CTLISTBAR.DLL" con el nombre real de la biblioteca CTLISTBAR que estás utilizando. Este ejemplo crea una lista CTLISTBAR simple con dos elementos y la muestra en una ventana. Puedes personalizar este código según tus necesidades y la integración específica de CTLISTBAR en tu aplicación COBOL con Fujitsu Power COBOL.

Recuerda que los detalles específicos pueden variar según la versión de CTLISTBAR que estés utilizando y la configuración de tu entorno. Consulta la documentación de DBI Tech y Fujitsu Power COBOL para obtener información detallada sobre la integración y el uso de CTLISTBAR en tu aplicación.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar