ДАННЫЙ САЙТ ИСПОЛЬЗУЕТ ФАЙЛЫ COOKIE: продолжая просмотр страниц сайта, Вы даете свое согласие на использование файлов cookie.
Для получения дополнительной информации, пожалуйста, ознакомьтесь с нашей
Политикой конфиденциальности и Политикой использования файлов cookie.

Кастомизированная и Высокоавтоматизированная Межплатформенная
Миграция Баз Данных и Приложений


Конвертация COBOL в VB.NET

.NET

Конвертация приложений из COBOL в VB.NET стала возможной с помощью разработанного нами программного обеспечения для конвертации приложений Ispirer MnMTK. Ispirer MnMTK является эффективным средством для конвертации больших приложений, содержащих тысячи файлов и миллионы строк код.


Почему Ispirer MnMTK

Ispirer MnMTK автоматизирует весь процесс миграции вашего COBOL приложения в VB.NET. Более того, с Ispirer MnMTK вы значительно сокращаете вероятные риски, а также потраченные усилия и время. Все это доступно по очень приемлемым ценам, что делает Ispirer MnMTK еще более привлекательным решением для вашего проекта.

Наша технология конвертации обеспечивает:

  • Качественный и легко обслуживаемый код. Генерация читабельного и легко обслуживаемого кода с качеством ручной конвертации
  • Трансформация и рефакторинг кода. Во время трансформации кода применяются лучшие практики VB.NET вместо копирования старой технологии на новую платформу
  • Передовые технологии. Использование преимуществ последних технологий .NET
  • Чистый .NET код. После конвертации не используются никакие библиотеки или IP Ispirer
  • Автоматическое решение зависимостей. Может извлечь информацию из зависимых файлов, базы данных и т.д. для того, чтобы автоматически решать встречающиеся зависимости и конфликты
  • Поддержка различных конфигураций. Может считывать информацию из различных файлов конфигурации и проектных файлов (файлы конфигурации Ispirer MnMTK, файлы .xml)
  • Полная и быстрая кастомизация под проект. Абстрактные слои, универсальные конвертационные шаблоны, внутренний язык конвертации и вспомогательные инструменты обеспечивают быструю кастомизацию программы и сложные трансформации кода.

Наш подход

Пожалуйста, заполните опросный лист, чтобы начать переговоры о сотрудничестве по Вашему проекту или получить приблизительную оценку:

Для ISV компаний Ispirer предлагает комплексную Модель взаимодействия для конвертации приложений с миллионами строк кода.

Онлайн-презентация

Ispirer Migration Solution

COBOL в VB.NET

Заказать

Узнать стоимость

Ispirer Migration Solution

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


Существует четыре раздела:

  • РАЗДЕЛ ИДЕНТИФИКАЦИИ: Там, где Вы должны ввести имя программы.
  • РАЗДЕЛ ОКРУЖЕНИЯ: Там, где Вы определяете файлы, которые нужны программе.
  • РАЗДЕЛ ДАННЫХ: Там, где Вы объявляете переменные, записи, файлы и пр.
  • РАЗДЕЛ ПРОЦЕДУР: Там, где Вы пишете программу. В примере, представленном ниже, все в одном знаке абзаца. Знак абзаца - набор выражений, именованных текстовыми данными. В конце знака абзаца нет специального маркера.

Характеристики конвертации

  • Мигрирует базы данных приложений 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.  
  • Конвертирует имена идентификаторов в “горбатый” регистр
  • Конвертирует секцию 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 Subs. Обратиться к SECTION можно, используя оператор PERFORM. 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 (операторы select, insert, update, delete, 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()


 
Отзывы
30.03.2018 Казахский национальный педагогический университет
Миграция с PASCAL в C#.NET

Я занимаюсь научной деятельностью в Казахском национальном педагогическом университете. ...

28.03.2018Extedo, Германия
DB2 в MSSQL Server


EXTEDO была основана в 1996 году как департамент компании IABG с простой миссией: помогать научно-исследовательским институтам в области медицины соответствовать...

...

02.02.2018ООО "Гисофт", Россия
Миграция из Microsoft SQL Server в PostgreSQL

Компания «Гисофт», разработчик автоматизированных систем управления для образования, после долгих и в основном неудачных экспериментов с...

...

Истории успеха
17.07.2017Миграция с Oracle в PostgreSQL, РоссияПрофессиональные услуги по переносу пакетов и хранимых процедур с Oracle в PostgreSQL.


В конце 2016 года компания Ispirer Systems осуществила услуги по миграции для одного из российских...

...

17.07.2017Конвертация Oracle в Java, Индия

В начале 2017 года к Ispirer Systems обратилась индийская многонациональная компания, которая предоставляет инновационные IT-решения и услуги. Компания предлагает лучшие в своем классе...

...