智能和高度自动化的跨平台数据库和应用程序迁移


从 COBOL 到 Visual Basic.NET

.NET

Ispirer一直致力于提高Ispirer MnMTK性能和功能的水平。现在这个应用程序迁移工具可以帮助您转换COBOL成VB.NET ,并满足您对转换项目的需求。

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

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

我们主要好处:

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

评估过程

请填写调查问卷,以开始您项目中的谈判或得到粗略的估计:


现场演示

Ispirer转换解决方案

从 COBOL 到 Visual Basic.NET

请求

请求报价

Ispirer转换解决方案

从 COBOL 到 Visual Basic.NET

服务 工具

Ispirer MnMTK从COBOL到VB.NET应用程序转换的特征


COBOL程序结构

  1. IDENTIFICATION DIVISION.
  2. PROGRAM-ID. DemoId.
  3. ENVIRONMENT DIVISION.
  4. DATA DIVISION.
  5. PROCEDURE DIVISION.
  6. FIRST-PARAGRAPH.
  7. DISPLAY "First DEMO".


共有四个部:

  • IDENTIFICATION DIVISION: 这就是您要输入程序名。
  • ENVIRONMENT DIVISION: 这就是您要定义程序所需要的文件。
  • DATA DIVISION: 这就是您要声明变量、记录、 文件等。
  • PROCEDURE DIVISION: 这就是您要写程序。上面的示例里一切都在同一个段落。段落是一系列语句按标签被称为。段落结尾没有特定的标记。
  • 将COBOL应用的数据库迁移到MSSQLServer数据库
  • 将COBOL程序转换到VB.NET类
    1.  
    2. Namespace CobolApplication
    3. Public Class DemoId
    4. Public Sub Main()
    5. ProcedureDivision()
    6. End Sub
    7. Private Sub ProcedureDivision()
    8. Console.WriteLine(“First Demo”)
    9. End Sub
    10. End Class
    11. End Namespace
    12.  
  • 标识符名转换到CamelCase
  • 有声明变量的WORKING-STORAGE部分转换到类变量
    1. WORKING-STORAGE SECTION.
    2. 01 MY_STRING_1 PIC X(20).
    3. 01 MY_STRING_2 PIC X(30).
    4. 01 MY_NUMBER PIC 9(2) VALUE 1.

    到:

    1. Private MyString1 As String
    2. Private MyString2 As String
    3. Private MyNumber As Integer = 1

  • COBOL记录转换到VB.NET的用户自定义类型
    1. 01 MY_DATA_RECORD.
    2. 03 MY_NAME PIC X(20) VALUE “John Smit”.
    3. 03 MY_ADDRESS PIC X(40) VALUE “Walt Street”.
    4. 03 MY_ID PIC 9(2) VALUE 123.

    到:

    1. Public Class MyDataRecord
    2. Public MyName As String = “John Smit”
    3. Public MyAddress As String = “Walt Street”
    4. Public MyId As Integer = 123
    5. End Class
    6. Private _myDataRecord As MyDataRecord = New MyDataRecord()

  • COBOL MOVE TO/COMPUTE语句转换到VB.NET赋值语句
    1. MOVE 5 TO MY_NUMBER.

    到:

    1. MyNumber = 5

  • COBOL段(段落或语句组)转换到VB.NET Sub过程. 使用PERFORM语句就可以调用SECTION. PERFORM转换到VB.NET sub的调用。
    1. DISPLAY-INFORMATION.
    2. DISPLAY DISPLAY 'My Number = ' MY_NUMBER.

    到:

    1. Private Sub DisplayInformation()
    2. Console.WriteLine(“My Number =+ MyNumber)
    3. End Sub
  • COBOL控制结构转换到VB.NET控制语句
    1. IF MY_NUMBER > 5
    2. MOVE 12 TO MY_NUMBER.

    到:

    1. If MyNumber > 5 Then
    2. MyNumber = 12
    3. End If
    1. PERFORM UNTIL WS-NUMBER-1 > 100 AND WS-NUMBER-1 < 1000
    2. DISPLAY "Still between 100 and 1000"
    3. END-PERFORM

    到:

    1. While MyNumber > 100 And MyNumber < 1000
    2. Console.WriteLine(“Still between 100 and 1000)
    3. End While

  • 屏幕输出(DISPLAY语句)转换到“Console.WriteLine”方法
  • EXEC SQL/ END-EXEC(选择、插入、更新、删除、CURSOR语句)语句转换到VB.NET LINQ查询
    1. EXEC SQL
    2. SELECT COUNT(*)
    3. INTO :MY_NUMBER
    4. FROM MY_TABL
    5. WHERE CTR_ID = :MY_STRING_1 AND
    6. MOD_CD = 'ONE'
    7. WITH UR
    8. END-EXEC.

    到:

    1. MyNumber = Aggregate MyTabl In db.MyTabls
    2. Where MyTabl.CtrId = MyString1
    3. And MyTabl.ModCd = "ONE"
    4. Into Count()
    1. EXEC SQL
    2. DECLARE MY_CUR CURSOR FOR
    3. SELECT LOC_NO,
    4. EFF_DT,
    5. XPIR_DT,
    6. DET_AMT
    7. FROM MY_TABL
    8. WHERE CTR_ID = :MY_STRING_1
    9. AND MOD_CD = 'TWO'
    10. AND TRN_ID IS NULL
    11. ORDER BY LOC_NO
    12. WITH UR
    13. END-EXEC.
    14.  
    15. EXEC SQL
    16. OPEN MY_CUR
    17. END-EXEC.
    18.  
    19. EXEC SQL
    20. FETCH MY_CUR
    21. INTO :MY-LOC-NO,
    22. :MY-EFF-DT,
    23. :MY-XPIR-DT,
    24. :MY-ARO-AMT
    25. END-EXEC
    26.  
    27. EXEC SQL CLOSE MY_CUR END-EXEC.

    到:

    1. Dim MyCur = From MyTabl In db.MyTabls
    2. Where MyTabl.CtrId = MyString1
    3. And MyTabl.ModCd = "TWO"
    4. And MyTabl.TrnId IS Nothing
    5. ORDER BY LocNo Descending
    6.  
    7. For Each MyTabl In MyCur
    8. MyLocNo = MyCur.LocNo
    9. MyEffDt = MyCur.EffDt
    10. MyXpirDt = MyCur.XpirDt
    11. MyAroAmt = MyCur.DetAmt
    12. Next
    13. db.SaveChanges()

有关更多的信息,请随时联系我们

 
客户评价
2018年 5月 15日System Protocol Information, 马来西亚
Informix到Microsoft SQL Server数据库迁移

尊敬的先生们,

我们刚刚完成了到目前为止最大的从Informix到MS SQL Server迁移任务。这项运动是按计划按时完成的。这是成功的,感谢您工具做很大一部分。

...

2018年 5月 11日Bellnet (HAS), 日本
Delphi转成C#

我们的客户BELLNET是一家日本IT公司,它维护用于控制医疗设备的计算机软件。它需要把这样的医疗软件迁移从Delphi到C#,并联系我们要求转换工具。

...

2018年 4月 24日Steek-IT,荷兰
Progress迁移到SQLServer

Steek-IT是一家荷兰ICT公司,具有15年以上的数据迁移经验。除了我们专业的领域MSSQL、SSIS、SSAS,我们还创建网站、企业软件和iOS应用程序。

...

案例研究
2018年 4月 28日Informix 4GL转移到Microsoft SQL Server的解决方案, 美国

我们的客户是一家值得信赖的美国公司,为美国的100000多家中小企业提供人力资源服务和业务解决方案。

...

2018年 3月 26日Oracle Forms迁移到Java, 美国
用于Ispirer MnMTK的Oracle Forms自动化迁移到Java的可行性已被证明!

于2017年初,一家全球信息技术咨询公司联系Ispirer Systems。该公司与组织合作,制定技术战略并实现IT解决方案,增强公司的业务能力。

...

2018年 3月 23日IBM DB2 iSeries迁移到Microsoft SQL Server, 美国

来自美国的全方服务资讯科技公司,致力于软件和应用程序开发、再工程和维护。该公司提供Web服务,包括网站设计、网站托管和SEO。也从事CRM系统的实施、升级和管理。

...

客户的反馈
我们将研究你和其他人在接下来的一两周内发送的所有材料。几乎所有的竞争对手都无法为我们提供迁移代码的样本。你寄给我们的材料,包括迁移的代码,将把你的公司放在一个小的顶部。如果我们的客户应该决定实现迁移项目,我只能推荐你的公司,因为你除了沟通,显得非常高效和简单。



更多