Conversione di un'applicazione COBOL verso VB.NET

Ispirer MnMTK esegue la conversione da COBOL a VB.NET di varia complessità.

Perchè Ispirer MnMTK

Ispirer MnMTK può aiutarvi a convertire la vostra applicazione COBOL automaticamente. Scegliendo Ispirer MnMTK potete anche eliminare i rischi di conversione e ridurre notevolmente la quantità di sforzi interni necessari per la migrazione.

I nostri vantaggi principali:

• ll team esperto e qualificato: i tecnici d’Ispirer hanno grande esperienza in realizzazione di progetti di migrazione di varia complessità.
• Approccio orientato al cliente e Personalizzazione rapida: personalizziamo il nostro strumento di migrazione in modo che permetta di soddisfare pienamente le esigenze di business dei nostri clienti; aggiustamenti gratuiti durante 1-2 giorni lavorativi;
• Collaborazione pre-vendita: dimostriamo la conversione completa durante la fase di valutazione prima che prenderete la decisione finale.
• Buon prezzo: offriamo la politica di prezzatura flessibile;
• Conversione ottimizzata: il codice facilmente gestito senza il middleware di Ispirer usato dopo la conversione.

Valutazione

Valutazione ci aiuta ad estimare gli sforzi e i costi di migrazione. Per iniziare i discorsi di collaborazione e fare la valutazione approssimativa, si prega di riempire:

• Questionario per Migrazione da COBOL a VB.NET

Ispirer offre il processo di collaborazione onnicomprensivo per il vostro progetto di conversione di un'applicazione. Per saperne di più per favore andate alla pagina Modello di collaborazione per migrazione di applicazioni.

Struttura di un programma COBOL

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

Ci sono quattro divisioni::

• IDENTIFICATION DIVISION: Qui si dà il nome del programma.
• ENVIRONMENT DIVISION: Qui si definiscono i file necessari per compilare ed eseguire il programma.
• DATA DIVISION: Qui si definiscono variabili, record, file, ecc.
• PROCEDURE DIVISION: Qui si scrive il programma. Nell'esempio sopra c'è solo uno paragrafo. Un paragrafo è una sequenza di istruzioni nominate con un label. Non c'è un segno speciale per marcare la fine di un paragrafo.

Caratteristiche di conversione

• Migra un database di applicazione COBOL a un database MSSQLServer
• Converte programmi COBOL vesro classe 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
 

• Converte i nomi di identifier verso il caso "cammello"
• Converte una sezione WORKING-STORAGE con dichiarazioni di variabili verso variabili di classe

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



• Converte i record COBOL verso i tipi VB.NET definiti dall'utente

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



• Converte istruzioni di COBOL MOVE TO/COMPUTE verso istruzioni assignment VB.NET

MOVE 5 TO MY_NUMBER.

A:

MyNumber = 5



• Converte sezioni COBOL (gruppi di paragrafi o istruzioni) verso sub VB.NET. SECTION può essere chiamata usando un'istruzione PERFORM. PERFORM è convertita verso una chiamata di sub VB.NET.

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

A:

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

• Converte strutture di controlli COBOL verso istruzioni di controllo VB.NET

IF MY_NUMBER > 5
      MOVE 12 TO MY_NUMBER.

A:

If MyNumber > 5 Then
        MyNumber = 12
 End If

E

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



• Converte Screen output (istruzione DISPLAY) verso un metodo “Console.WriteLine”
• Converte istruzioni EXEC SQL/ END-EXEC (istruzioni select, insert, update, delete, CURSOR) verso le query 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()

E

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

Per ulteriori informazioni si prega di contattarci.