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.