Ispirer MnMTK es capaz de convertir las aplicaciones COBOL a aplicaciones VB.NET.
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
Migra la base de datos de aplicación COBOL a base de datos MSSQLServer
Convierte los programas COBOL a clases VB.NET
Namespace CobolApplication Public Class DemoId Public Sub Main() ProcedureDivision() End Sub Private Sub ProcedureDivision() Console.WriteLine(“First Demo”) End Sub End Class End Namespace
Convierte los nombres de los identificadores a CamelCase
Convierte WORKING-STORAGE SECTION con las variables de la declaración a las variables de clase
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.
A:
Private MyString1 As String Private MyString2 As String Private MyNumber As Integer = 1
Convierte los registros COBOL a tipos definidos por el usuario de VB.NET
01 MY_DATA_RECORD. 03 MY_NAME PIC X(20) VALUE “John Smit”. 03 MY_ADDRESS PIC X(40) VALUE “Walt Street”. 03 MY_ID PIC 9(2) VALUE 123.
A:
Public Class MyDataRecord Public MyName As String = “John Smit” Public MyAddress As String = “Walt Street” Public MyId As Integer = 123 End Class Private _myDataRecord As MyDataRecord = New MyDataRecord()
Convierte sentencias COBOL MOVE TO/COMPUTE a las sentencias de asignación VB.NET
MOVE 5 TO MY_NUMBER.
A:
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.
DISPLAY-INFORMATION. DISPLAY DISPLAY 'My Number = ' MY_NUMBER.
A:
Private Sub DisplayInformation() Console.WriteLine(“My Number =” + MyNumber) End Sub
Convierte las estructuras de control de COBOL a sentencias de control de VB.NET
IF MY_NUMBER > 5 MOVE 12 TO MY_NUMBER.
A:
If MyNumber > 5 Then MyNumber = 12 End If
Y
PERFORM UNTIL WS-NUMBER-1 > 100 AND WS-NUMBER-1 < 1000 DISPLAY "Still between 100 and 1000" END-PERFORM
A:
While MyNumber > 100 And MyNumber < 1000 Console.WriteLine(“Still between 100 and 1000”) 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
EXEC SQL SELECT COUNT(*) INTO :MY_NUMBER FROM MY_TABL WHERE CTR_ID = :MY_STRING_1 AND MOD_CD = 'ONE' WITH UR END-EXEC.
A:
MyNumber = Aggregate MyTabl In db.MyTabls Where MyTabl.CtrId = MyString1 And MyTabl.ModCd = "ONE" Into Count()
Y
EXEC SQL DECLARE MY_CUR CURSOR FOR SELECT LOC_NO, EFF_DT, XPIR_DT, DET_AMT FROM MY_TABL WHERE CTR_ID = :MY_STRING_1 AND MOD_CD = 'TWO' AND TRN_ID IS NULL ORDER BY LOC_NO WITH UR END-EXEC. EXEC SQL OPEN MY_CUR END-EXEC. EXEC SQL FETCH MY_CUR INTO :MY-LOC-NO, :MY-EFF-DT, :MY-XPIR-DT, :MY-ARO-AMT END-EXEC EXEC SQL CLOSE MY_CUR END-EXEC.
A:
Dim MyCur = From MyTabl In db.MyTabls Where MyTabl.CtrId = MyString1 And MyTabl.ModCd = "TWO" And MyTabl.TrnId IS Nothing ORDER BY LocNo Descending For Each MyTabl In MyCur MyLocNo = MyCur.LocNo MyEffDt = MyCur.EffDt MyXpirDt = MyCur.XpirDt MyAroAmt = MyCur.DetAmt Next 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.
Solución de Migración de Ispirer
COBOL a VB.NET Solicitar
Si Usted tiene algunas preguntas o desea obtener más información, siempre puede ponerse en contacto con nosotros.
|