Conversión de COBOL a VB.NET

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

 
Namespace CobolApplication
    Public Class DemoId
        Public Sub Main()
              ProcedureDivision()
        End Sub
        Private Sub ProcedureDivision()
            Console.WriteLine(“First Demo”)
        End Sub
    End Class
End Namespace
 

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

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()

MOVE 5 TO MY_NUMBER.

A:

MyNumber = 5

DISPLAY-INFORMATION.
    DISPLAY DISPLAY 'My Number = ' MY_NUMBER.

A:

Private Sub DisplayInformation()
            Console.WriteLine(“My Number =” + MyNumber)
End Sub

IF MY_NUMBER > 5
      MOVE 12 TO MY_NUMBER.

A:

If MyNumber > 5 Then
        MyNumber = 12
 End If

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

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()

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:

• Cuestionario de COBOL a VB.NET (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.