STE SITIO WEB UTILIZA COOKIES: si continúa navegando en este sitio, está dando su consentimiento para la aceptación de las cookies.
Para obtener más información, por favor, lea nuestra Política de privacidad y Política de cookies.

Migración y Modernización
Automatizada y Personalizada
de Bases de Datos y Aplicaciones


Conversión de COBOL a VB.NET

Ispirer MnMTK es capaz de convertir las aplicaciones COBOL a aplicaciones VB.NET.


Estructura del Programa COBOL

.NET
  1. IDENTIFICATION DIVISION.
  2. PROGRAM-ID. DemoId.
  3. ENVIRONMENT DIVISION.
  4. DATA DIVISION.
  5. PROCEDURE DIVISION.
  6. FIRST-PARAGRAPH.
  7. 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

  • Migra la base de datos de aplicación COBOL a base de datos MSSQLServer
  • Convierte los programas COBOL a clases VB.NET
    1.  
    2. Namespace CobolApplication
    3. Public Class DemoId
    4. Public Sub Main()
    5. ProcedureDivision()
    6. End Sub
    7. Private Sub ProcedureDivision()
    8. Console.WriteLine(“First Demo”)
    9. End Sub
    10. End Class
    11. End Namespace
    12.  
  • Convierte los nombres de los identificadores a CamelCase
  • Convierte WORKING-STORAGE SECTION con las variables de la declaración a las variables de clase
    1. WORKING-STORAGE SECTION.
    2. 01 MY_STRING_1 PIC X(20).
    3. 01 MY_STRING_2 PIC X(30).
    4. 01 MY_NUMBER PIC 9(2) VALUE 1.

    A:

    1. Private MyString1 As String
    2. Private MyString2 As String
    3. Private MyNumber As Integer = 1
  • Convierte los registros COBOL a tipos definidos por el usuario de VB.NET
    1. 01 MY_DATA_RECORD.
    2. 03 MY_NAME PIC X(20) VALUE “John Smit”.
    3. 03 MY_ADDRESS PIC X(40) VALUE “Walt Street”.
    4. 03 MY_ID PIC 9(2) VALUE 123.

    A:

    1. Public Class MyDataRecord
    2. Public MyName As String = “John Smit”
    3. Public MyAddress As String = “Walt Street”
    4. Public MyId As Integer = 123
    5. End Class
    6. Private _myDataRecord As MyDataRecord = New MyDataRecord()
  • Convierte sentencias COBOL MOVE TO/COMPUTE a las sentencias de asignación VB.NET
    1. MOVE 5 TO MY_NUMBER.

    A:

    1. MyNumber = 5
  • Convierte las secciones COBOL (grupo de párrafos o sentencias) a VB.NET subs. La SECTION puede ser llamada usando sentencia PERFORM. PERFORM se convierte a la llamada de VB.NET sub.
    1. DISPLAY-INFORMATION.
    2. DISPLAY DISPLAY 'My Number = ' MY_NUMBER.

    A:

    1. Private Sub DisplayInformation()
    2. Console.WriteLine(“My Number =+ MyNumber)
    3. End Sub
  • Convierte las estructuras de control de COBOL a sentencias de control de VB.NET
    1. IF MY_NUMBER > 5
    2. MOVE 12 TO MY_NUMBER.

    A:

    1. If MyNumber > 5 Then
    2. MyNumber = 12
    3. End If
    Y
    1. PERFORM UNTIL WS-NUMBER-1 > 100 AND WS-NUMBER-1 < 1000
    2. DISPLAY "Still between 100 and 1000"
    3. END-PERFORM

    A:

    1. While MyNumber > 100 And MyNumber < 1000
    2. Console.WriteLine(“Still between 100 and 1000)
    3. End While
  • Convierte la salida de pantalla (sentencia DISPLAY) a método “Console.WriteLine”
  • Convierte EXEC SQL/END EXEC (sentencias SELECT, INSERT, UPDATE, DELETE, CURSOR) a las consultas de VB.NET LINQ
    1. EXEC SQL
    2. SELECT COUNT(*)
    3. INTO :MY_NUMBER
    4. FROM MY_TABL
    5. WHERE CTR_ID = :MY_STRING_1 AND
    6. MOD_CD = 'ONE'
    7. WITH UR
    8. END-EXEC.

    A:

    1. MyNumber = Aggregate MyTabl In db.MyTabls
    2. Where MyTabl.CtrId = MyString1
    3. And MyTabl.ModCd = "ONE"
    4. Into Count()
    Y
    1. EXEC SQL
    2. DECLARE MY_CUR CURSOR FOR
    3. SELECT LOC_NO,
    4. EFF_DT,
    5. XPIR_DT,
    6. DET_AMT
    7. FROM MY_TABL
    8. WHERE CTR_ID = :MY_STRING_1
    9. AND MOD_CD = 'TWO'
    10. AND TRN_ID IS NULL
    11. ORDER BY LOC_NO
    12. WITH UR
    13. END-EXEC.
    14.  
    15. EXEC SQL
    16. OPEN MY_CUR
    17. END-EXEC.
    18.  
    19. EXEC SQL
    20. FETCH MY_CUR
    21. INTO :MY-LOC-NO,
    22. :MY-EFF-DT,
    23. :MY-XPIR-DT,
    24. :MY-ARO-AMT
    25. END-EXEC
    26.  
    27. EXEC SQL CLOSE MY_CUR END-EXEC.

    A:

    1. Dim MyCur = From MyTabl In db.MyTabls
    2. Where MyTabl.CtrId = MyString1
    3. And MyTabl.ModCd = "TWO"
    4. And MyTabl.TrnId IS Nothing
    5. ORDER BY LocNo Descending
    6.  
    7. For Each MyTabl In MyCur
    8. MyLocNo = MyCur.LocNo
    9. MyEffDt = MyCur.EffDt
    10. MyXpirDt = MyCur.XpirDt
    11. MyAroAmt = MyCur.DetAmt
    12. Next
    13. db.SaveChanges()

    Por qué Ispirer MnMTK

    Ispirer MnMTK automatiza el proceso de migración de su aplicación COBOL a VB.NET. 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
    • Últimas tecnologías
    • El uso de las ventajas últimas de .NET
    • Código .NET 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:

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

    Presentación en Vivo

    Solución de Migración de Ispirer

    COBOL a VB.NET

    Solicitar

    Solicitar un Presupuesto

    Solución de Migración de Ispirer

    COBOL a VB.NET

    Servicio Herramienta

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

     
    Testimonios
    Septiembre 11, 2017Cardtek, Turquía
    Microsoft SQL Server a Oracle

    "Cardtek es la empresa más valiosa en el sector financiero y bancario en Turquía. Entre otros numerosos proyectos, estamos operando un sistema de recolección de...

    ...

    Septiembre 11, 2017Caxton & CTP Publishers and Printers Ltd, Sudáfrica
    Sybase ASE a MySQL

    "Estimada Vera,

    Donde estamos es el siguiente:

    1. Hemos habilitado todo nuestro software para operar en una 'Agnostic Manner' en que ya no es hardware y tipo de base...

    ...

    Estudios de Caso
    Septiembre 14, 2017Oracle Forms a Java, Estados Unidos
    ¡La viabilidad de la migración automática de Oracle Forms a Java con Ispirer MnMTK se ha probado!


    A principios de 2017, Ispirer Systems fue contactado por una de las compañías global de...

    ...

    Junio 5, 2017Oracle a PostgreSQL, Rusia
    Servicios profesionales de migración de paquetes y procedimientos almacenados de Oracle a PostgreSQL.


    A finales de 2016, Ispirer Systems realizó servicios de migración para uno de los...

    ...