从COBOL到C#.NET转换

Ispirer致力于在各种各样的应用程序之间提供世界级的现代化和迁移解决方案。Ispirer MnMTK将帮助您自动地转换从COBOL应用到C#.NET应用。

为什么选择Ispirer MnMTK为COBOL转换到C#.NET?

Ispirer MnMTK自动您的现在的COBOL应用的整一迁移过程到C#.NET。此外，您对Ispirer MnMTK减少大多数的风险及低需要的努力的总量。所有这些好处是可用的最合理的与竞争成本，可以Ispirer MnMTK更佳生动工具为此项目类型。

我们主要好处:

• 高素质和经验丰富的技术支持: 我们的技术团队拥有在复杂程度不同的迁移项目的工作经验。我将帮助您从COBOL迅速且简单的迁移到C#。
• 高度定制化:根据您对迁移项目的需求定制工具。
• 最大化节省时间和精力:自动迁移总是比手动迁移更快，更有效。Ispirer将帮助您避免在代码中的任何错误，并明显地加快迁移的过程。如果您对转换的结果不满意，您可以随时更改转换规则和快速再次转换您的COBOL代码。
• 灵活的定价策略: 我们为您提供广泛的选择，其中您一定会找到最适合您的价格方案。
• 纯代码: 没有Ispirer的文库或转换后使用IP。

这个演示视频展示如何Ispirer MnMTK会转换从COBOL应用到C#.NET应用：

评估过程

知道您项目的主要信息后，我们可以为您提供报价。欢迎您填写我们的应用程序的调查问卷:

• 从COBOL到Microsoft.NET调查问卷

转换特征

COBOL程序结构

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

有四个部门：

• 标识部：您必须键入程序名称。
• 环境不：您的程序需要定义文件。
• 数据部：您声明变量，记录，文件等。
• 过程部：您编写一个程序。这都是在一段上图样本。一段是一系列声明被标签称为。没有特定的标记一个段落的结束。

转换特征

• 迁移从COBOL的应用数据库到MSSQLServer数据库
• 转换从COBOL的程序到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");
  }
  }
  }

• 转换从标识名称到“骆驼” 拼写法
• 转换从工作存储器部和声明变量到变量的类

  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.

  到:

  private string MyString1;
  private string MyString2;
  private int MyNumber = 1;

  
  
• 转换COBOL记录到自定义的C#类别

  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.

  到:

  public class MyDataRecord
  {
  public string MyName = "John Smit";
  public string MyAddress = "Walt street";
  public int MyId = 123;
  }
  public MyDataRecord myDataRecord = new MyDataRecord();

  
  
• 转换从COBOL MOVE TO/COMPUTE语句到C#赋值语句

  MOVE 5 TO MY_NUMBER.

  到:

  MyNumber = 5;

  
  
• 转换从COBOL部（段落或语句组）到C#方法。使用PERFORM语句SECTION可以被称为。转换为 C#方法周用

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

  到:

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

• 转换从COBOL控制结构到C#控制语句

  IF MY_NUMBER > 5
  MOVE 12 TO MY_NUMBER.

  到:

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

  及

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

  到:

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

  
  
• 转换输出屏（DISPLAY语句）到“Console.WriteLine”方法
• 转换从EXEC SQL/ END-EXEC (select, insert, update, delete, CURSOR语句）语句到C# LINQ到机构

  EXEC SQL
  SELECT COUNT(*)
  INTO   :MY_NUMBER
  FROM   MY_TABL
  WHERE  CTR_ID       = :MY_STRING_1AND
  MOD_CD = 'ONE'
  WITH UR
  END-EXEC.

  到:

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

  到:

  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;
  }

  ---

  您可以随时联系我们，我们将很高兴为您服务！