Конвертация COBOL в IBM DB2

Конвертация приложений из COBOL в DB2 стала возможной с помощью разработанного нами программного обеспечения для конвертации приложений Ispirer MnMTK.

Почему Ispirer MnMTK?

Ispirer Systems стремиться к предоставлению высококачественных услуг в сфере конвертации приложений и миграции баз данных. Мы вносим дополнительные настройки в программу, чтобы кастомизированная специально под ваш проект версия учитывала все его тонкости и особенности, а конечный результат соответствовал вашим требованиям и ожиданиям.

• Высококвалифицированная техническая поддержка. Наша команда обладает огромным опытом в проведении проектов по конвертации приложений различных уровней сложности. Поэтому наша помощь для быстрой и качественной конвертации – это то, что Вам нужно!
• Индивидуальный подход к каждому проекту и быстрая кастомизация софта под проект. Мы настраиваем работу софта под каждый проект, чтобы конченый результат соответствовал всем вашим требованиям. Расширение функционала нашего софта занимает 1-2 дня.
• Взаимодействие с клиентом до принятия решения о покупке. Перед принятиям Вами решения о приобретении Лицензии или Сервиса мы проводим полную наглядную демонстрацию процесса конвертации приложения.
• Гибкая система цен. Наши цены индивидуальны и зависят от объема проекта и сроков его исполнения. Мы подбираем несколько вариантов цены, среди которых вы сможете найти тот, который Вас устроит.
• Оптимизированное преобразование. По завершении вашего проекта конвертации COBOL приложения вы получите интеллектуальный и технологичный код, который не требует использования какого-либо промежуточного софта от Ispirer.

Наш подход

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

• Опросный лист Конвертация Cobol в DB2 Migration

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

Пожалуйста, свяжитесь с нами для получения более подробной информации.

Программная структура COBOL

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

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

• IDENTIFICATION DIVISION: В данном разделе необходимо вводить имя программы.
• ENVIRONMENT DIVISION: В данном разделе определяются файлы, необходимые программе.
• DATA DIVISION: В данном разделе объявляются переменные, данные, файлы и т.д..
• PROCEDURE DIVISION: В данном разделе пишется программа. В предыдущем примере – все это в одном подразделе. Подраздел – это группа выражений, названных по ярлыку. Для окончания подраздела нет никаких специальных отметок.

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

DB2:

 
CREATE OR REPLACE PROCEDURE DemoId()
LANGUAGE SQL
BEGIN
   CALL DBMS_OUTPUT.PUT_LINE ('FIRST DEMO');
END
 

COBOL:

 
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.
 

DB2:

 
  DECLARE MY_STRING_1 VARCHAR(20);
  DECLARE MY_STRING_2 VARCHAR(30);
  DECLARE MY_NUMBER INTEGER; 
  SET MY_NUMBER = 1;
 

COBOL:

 
01 MY_DATA_RECORD.
    03 MY_NAME        PIC X(20).
    03 MY_ADDRESS  PIC X(40).
    03 MY_ID               PIC 9(2).
 

DB2:

 
DECLARE SWV_MY_DATA_RECORD_MY_NAME VARCHAR(20);
     DECLARE SWV_MY_DATA_RECORD_MY_ADDRESS VARCHAR(40);
     DECLARE SWV_MY_DATA_RECORD_MY_ID DOUBLE;
 

COBOL:

 
MOVE 5 TO MY_NUMBER.
 

DB2:

 
SET MY_NUMBER=5;
 

COBOL:

 
IF/ELSE/END IF
 

DB2:

 
IF/ELSE/END IF;
 

COBOL:

 
PERFORN UNTIL/END-PERFORM
 

DB2:

 
WHILE <condition> LOOP
 
            <loop_body>
 
      END LOOP;
 

COBOL:

 
EXEC SQL
    SELECT cur_date 
    FROM val_date
    WHERE cur_date < CURRENT
 END-EXEC.
 

DB2:

 
SELECT cur_date 
FROM val_date
WHERE cur_date < CURRENT TIMESTAMP