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

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

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

Данная Online-презентация демонстрирует, каким образом при помощи Ispirer MnMTK можно конвертировать приложения COBOL в приложения.

Почему 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: В данном разделе пишется программа. В предыдущем примере – все это в одном подразделе. Подраздел – это группа выражений, названных по ярлыку. Для окончания подраздела нет никаких специальных отметок.

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

 
package CobolApplication;
 
public class DemoId
{
  static void main(String[] args)
  {
    System.out.println("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;
 

Из:

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

В:

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

Из:

 
MOVE 5 TO MY_NUMBER.
 

В:

 
MyNumber = 5;
 

Из:

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

В:

 
private void DisplayInformation()
{
    System.out.println("My Number = " + MyNumber);
}
 

Из:

 
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))
{
      System.out.println("Still between 100 and 1000");
}
 

Из:

 
EXEC SQL
           DECLARE GET_EMPLOYEE CURSOR FOR
           SELECT NAME,
                  ADDRESS,
                   PHONE
             FROM EMPLOYEE
             WHERE EMPID    =:MY_ID
             END-EXEC.
 
             EXEC SQL
             OPEN GET_EMPLOYEE
           END-EXEC.
 
     EXEC SQL
          FETCH GET_EMPLOYEE
           INTO :CST-NAME,
                :CST-ADDRESS,
                :CST-PHONE
     END-EXEC
 
  IF CST-NAME > SPACES
              DISPLAY 'NAME = ' CST-NAME
       DISPLAY 'ADDRESS = ' CST-ADDRESS
       DISPLAY 'PHONE = ' CST-PHONE
  ELSE
              DISPLAY 'EMPLOYEE NOT FOUND'
   END-IF.
 
    EXEC SQL CLOSE GET_EMPLOYEE END-EXEC.
 

В:

 
create or replace
PROCEDURE getEmployee_Cursor_Proc1
(in_my_id IN EMPLOYEE.EMPID%TYPE,
 out_cts_name OUT EMPLOYEE.NAME%TYPE,
 out_cst_address OUT EMPLOYEE.ADDRESS%TYPE,
 out_cst_phone OUT EMPLOYEE.PHONE%TYPE
 )
AS
BEGIN
  SELECT NAME, ADDRESS, PHONE 
  INTO out_cts_name, out_cst_address, out_cst_phone
  FROM EMPLOYEE
  WHERE EMPID = in_my_id;   
END;
 
   try{
            Connection con = DBConnection.getConnection();
CallableStatement stmt = con.prepareCall
("{call getEmployee_Cursor_Proc1(?,?,?,?)}");
            stmt.setInt(1, MyId);
 
            stmt.registerOutParameter(2, java.sql.Types.VARCHAR);
            stmt.registerOutParameter(3, java.sql.Types.VARCHAR);
            stmt.registerOutParameter(4, java.sql.Types.VARCHAR);
 
            stmt.execute();
 
            String CstName = stmt.getString(2);
            String CstAddress = stmt.getString(3);
            String CstPhone = stmt.getString(4);
 
            if(CstName!=null){
System.out.println("NAME="+CstName+",
ADDRESS="+CstAddress+",PHONE="+CstPhone);
            }else{
                System.out.println("EMPLOYEE NOT FOUND");
            }
        }catch(Exception e){
            e.printStackTrace();
        }finally{
            try {
                stmt.close();
                con.close();
                input.close();
            } catch (SQLException e) {
                e.printStackTrace();
            }
        }