Conversión de COBOL a IBM DB2

Ispirer MnMTK es capaz de convertir las aplicaciones COBOL a DB2.

Estructura del Programa COBOL

 
IDENTIFICATION DIVISION.
PROGRAM-ID. DemoId.
ENVIRONMENT DIVISION.
DATA DIVISION.
PROCEDURE DIVISION.
FIRST-PARAGRAPH.
    DISPLAY "First DEMO".
 

Hay las cuatro divisiones:

• DIVISIÓN DE IDENTIFICACIÓN: Aquí es donde debe introducir el nombre del programa.
• DIVISIÓN DE MEDIO AMBIENTE: Aquí es donde se definen los archivos que el programa necesita.
• DIVISIÓN DE DATOS: Aquí es donde se declaran las variables, registros, archivos, etc.
• DIVISIÓN DE PROCEDIMIENTO: Aquí es donde se escribe el programa. En el ejemplo anterior esto es todo en un solo párrafo. Un párrafo es una serie de sentencias nombrados por una etiqueta. No hay ninguna marca específica para el final de un párrafo.

Características de la conversión

DB2:

 
CREATE OR REPLACE PROCEDURE DemoId()
LANGUAGE SQL
BEGIN
   CALL DBMS_OUTPUT.PUT_LINE ('FIRST DEMO');
END
 

COBOL:

 
WORKING-STORAGE SECTION.
01 MY_STRING_1    PIC X(20).
01 MY_STRING_2    PIC X(30).
01 MY_NUMBER    PIC 9(2) VALUE 1.
 

DB2:

 
  DECLARE MY_STRING_1 VARCHAR(20);
  DECLARE MY_STRING_2 VARCHAR(30);
  DECLARE MY_NUMBER INTEGER; 
  SET MY_NUMBER = 1;
 

COBOL:

 
01 MY_DATA_RECORD.
    03 MY_NAME        PIC X(20).
    03 MY_ADDRESS  PIC X(40).
    03 MY_ID               PIC 9(2).
 

DB2:

 
DECLARE SWV_MY_DATA_RECORD_MY_NAME VARCHAR(20);
     DECLARE SWV_MY_DATA_RECORD_MY_ADDRESS VARCHAR(40);
     DECLARE SWV_MY_DATA_RECORD_MY_ID DOUBLE;
 

COBOL:

 
MOVE 5 TO MY_NUMBER.
 

DB2:

 
SET MY_NUMBER=5;
 

COBOL:

 
IF/ELSE/END IF
 

DB2:

 
IF/ELSE/END IF;
 

COBOL:

 
PERFORN UNTIL/END-PERFORM
 

DB2:

 
WHILE <condition> LOOP
 
            <loop_body>
 
      END LOOP;
 

COBOL:

 
EXEC SQL
    SELECT cur_date 
    FROM val_date
    WHERE cur_date < CURRENT
 END-EXEC.
 

DB2:

 
SELECT cur_date 
FROM val_date
WHERE cur_date < CURRENT TIMESTAMP
 

Por qué Ispirer MnMTK

Ispirer MnMTK automatiza el proceso de migración de su aplicación COBOL a DB2. Además, con Ispirer MnMTK usted elimina la mayoría de los riesgos asociados y reduce considerablemente los esfuerzos internos. Todos estos beneficios están disponibles a costos muy razonables y competitivos, lo que hace Ispirer MnMTK aún más atractivo instrumento para este tipo de proyecto.

Nuestra tecnología de conversión asegura:

• Código legible y mantenible
Generación de código legible y mantenible con calidad de conversión manual

• Transformación y Refactorización de código
Implementamos las mejores prácticas de DB2 en lugar de emular la vieja tecnología en la nueva plataforma

• Código DB2 puro
No hay biblioteca o IP de Ispirer utilizados después de la conversión

Ispirer MnMTK es eficaz para convertir grandes scripts que contienen miles o millones de líneas de código:

• Resuelve Dependencias Automáticamente
Puede extraer información de los archivos dependientes, bases de datos, etc. para resolver automáticamente dependencias y conflictos

• Configuraciones
Puede leer información de varias archivos de configuración y archivos de proyecto (archivos de configuración de Ispirer MnMTK, archivos .xml)

• Personalización Rápida y Poderosa
Capas abstractas, modelos de conversión reutilizables, lenguaje de conversión interno y herramientas permiten personalización rápida y transformaciones de código complejas.

Nuestro Enfoque

Por favor, complete el cuestionario para iniciar las discusiones de colaboración para su proyecto o recibir algunas estimaciones aproximadas:

• Cuestionario de COBOL a DB2 (Excel)

Para empresas ISV Ispirer ofrece Modelo de Cooperación integral para convertir aplicaciones con millones de líneas de código.

Si Usted tiene algunas preguntas o desea obtener más información, siempre puede ponerse en contacto con nosotros.