Conversione di un'applicazione COBOL verso C#

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

Questa presentazione demo dimostra come il tool Ispirer MnMTK converte applicazioni COBOL verso applicazioni C#:

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 Microsoft .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.

Caratteristiche di Conversione

Ci sono quattro divisioni:

• IDENTIFICATION DIVISION: Qui si dà il nome del programma.
• ENVIRONMENT DIVISION: Qui si definisce i file necessari per compilare ed eseguire il programma.
• DATA DIVISION: Qui si definisce variabili, record, file, ecc.
• PROCEDURE DIVISION: Qui si scrive il programma. Nell'esempio seguente 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

• Può migrare un database da un'applicazione COBOL verso un'applicazione MSSQLServer
• Converte un programma COBOL verso classi C#

  using System;
  using System.Collections.Generic;
  using System.Linq;
  using System.Text;
  namespace CobolApplication
  {
      class DemoId
      {
          static void Main(string[] args)
          {
              Console.WriteLine("First DEMO");
          }
      }
  }

• Converte i nomi di identifier verso la notazione "a cammello"
• Converte una sezione WORKING-STORAGE con i dichiarazioni di variabili verso i 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 string MyString1;
  private string MyString2;
  private int MyNumber = 1;

  
  
• Converte i record in COBOL verso i tipi C# 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 string MyName = "John Smit";
              public string MyAddress = "Walt street";
              public int MyId = 123;
          }
          public MyDataRecord myDataRecord = new MyDataRecord();

  
  
• Converte istruzioni COBOL MOVE TO/COMPUTE verso istruzioni assignment di C#

  MOVE 5 TO MY_NUMBER.

  A:

  MyNumber = 5;

  
  
• Converte sezioni di COBOL (gruppi di paragrafi o istruzioni) verso metodi C# . SECTION può essere chiamata usando un'istruzione PERFORM. PERFORM è convertata verso una chiamata del metodo C#

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

  To:

  private void DisplayInformation()
          {
              Console.WriteLine("My Number = " + MyNumber);
          }

• Converte strutture di controllo in COBOL verso istruzioni di controllo C#

  IF MY_NUMBER > 5
          MOVE 12 TO MY_NUMBER.

  A:

  if (MyNumber > 5)
              {
                  MyNumber = 12;
              }

  E

  PERFORM UNTIL WS-NUMBER-1 > 100 AND WS-NUMBER-1 < 1000
               DISPLAY " Still between 100 and 1000"
       END-PERFORM

  A:

  while ((MyNumber > 100) && (MyNumber < 1000))
              {
                  Console.WriteLine("Still between 100 and 1000");
              }

  
  
• Converte Screen output (istruzione DISPLAY) verso il metodo “Console.WriteLine”
• Converte istruzioni EXEC SQL/ END-EXEC (istruzioni select, insert, update, delete, CURSOR) a C# LINQ verso Entities

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 = (from MyTabl in db.MyTabls
                           where (MyTabl.CtrId == MyString1)
                                && (MyTabl.ModCd == "ONE")
                           select MyTabl).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, EFF_DT
            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:

foreach (var MyCur in (from MyTabl in db.MyTabls
                        where (MyTabl.CtrId == MyString1) &&
                        (MyTabl.ModCd == "TWO") &&
                        (MyTabl.TrnId == null)
                        orderby MyTabl.LocNo, MyTabl.EffDt
                        descending     
                        select MyTabl))
            {
                MyLocNo = MyCur.LocNo;
                MyEffDt = MyCur.EffDt;
                MyXpirDt = MyCur.XpirDt;
                MyAroAmt = MyCur.DetAmt;
            }

Per ulteriori informazioni si prega di contattarci.