Cobol - Visual Cobol

 
Vista:
Imágen de perfil de Carlos

Visual Cobol

Publicado por Carlos (1 intervención) el 21/10/2016 13:30:01
Buenas! Soy nuevo en el foro y quisiera saber si alguien tiene idea de como insertar filas en un JTable utilizando Visual Cobol. Este es un lenguaje que sirve de intermediario entre Cobol y Java, en el cual se pueden llamar a clases y métodos de Java, pero no reconoce DefaultTableModel. Alguna idea o lugar donde puedo recurrir?

Desde ya 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

Inserción de filas en un JTable en Visual COBOL

Publicado por Alejandro (300 intervenciones) el 11/09/2023 20:34:38
Insertar filas en un `JTable` en Visual COBOL, que es un lenguaje que combina COBOL y Java, puede requerir algunas adaptaciones ya que Visual COBOL utiliza un enfoque diferente para interactuar con las clases de Java en comparación con el uso directo de Java. Para agregar filas a un `JTable`, puedes utilizar las capacidades de Java a través de Visual COBOL. A continuación, te proporciono un ejemplo de cómo hacerlo:

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
46
47
48
49
IDENTIFICATION DIVISION.
PROGRAM-ID. Insertar-Filas-JTable.
 
DATA DIVISION.
WORKING-STORAGE SECTION.
 
01 JavaUtilPackage       OBJECT REFERENCE.
01 DefaultTableModel    OBJECT REFERENCE.
01 JTable               OBJECT REFERENCE.
01 NuevoDato            OBJECT REFERENCE.
 
PROCEDURE DIVISION.
    TRY
        * Inicializar el paquete de utilidades de Java
        CREATE JavaUtilPackage
 
        * Crear un modelo de tabla (DefaultTableModel) y una tabla (JTable)
        CREATE DefaultTableModel
        CREATE JTable
        SET DefaultTableModel TO JTable::getModel()
 
        * Crear un nuevo dato para insertar en la tabla
        CREATE String "Nuevo Dato" IN NuevoDato
 
        * Insertar una fila con el nuevo dato en la tabla
        INVOKE DefaultTableModel::addRow USING NEW String[] (NuevoDato)
 
        * Actualizar la tabla
        INVOKE JTable::updateUI()
 
    CATCH Exception AS e
        DISPLAY "Error: " & e:GetMessage()
    FINALLY
        * Liberar recursos
        IF DefaultTableModel NOT EQUAL TO NULL
            INVOKE DefaultTableModel::close()
        END-IF
        IF JTable NOT EQUAL TO NULL
            INVOKE JTable::close()
        END-IF
        IF NuevoDato NOT EQUAL TO NULL
            INVOKE NuevoDato::close()
        END-IF
        IF JavaUtilPackage NOT EQUAL TO NULL
            INVOKE JavaUtilPackage::close()
        END-IF
    END-TRY.
 
    STOP RUN.

Este código utiliza las capacidades de Java a través de Visual COBOL para crear un modelo de tabla (`DefaultTableModel`) y una tabla (`JTable`). Luego, crea un nuevo dato ("Nuevo Dato") y lo inserta en el modelo de tabla. Finalmente, actualiza la tabla para reflejar los cambios.

Ten en cuenta que el manejo de excepciones es importante en esta implementación, ya que cualquier error durante la interacción con Java puede generar una excepción. Asegúrate de ajustar este código según tus necesidades específicas y la estructura de tu aplicación en Visual COBOL.

Además, ten en cuenta que la sintaxis exacta y las clases disponibles pueden variar según la versión de Visual COBOL que estés utilizando, por lo que es importante consultar la documentación específica de tu entorno para obtener detalles precisos.
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