COBOL nach DB2 Konvertierung

Ispirer MnMTK ist das Tool für die Anwendungskonvertierung. Dieses Tool kann die Konvertierung von COBOL nach DB2 automatisch durchführen.

Während der Erarbeitung unser Tools berücksichtigen wir die Anforderungen der Kunden um die beste Konvertierungsergebnisse zu erreichen. Unser technishes Team hat viele Erfahrung und immer findet die innovative Lösungen zu den komplizierten Problemen.

Warum Ispirer MnMTK

• Hochqualifiziertes Team: unsere Experten haben viele Erfahrung in den Migrationsprojekten und können Migrationen auf jeden Schwierigkeitsgrad durchführen.
• Kundenorientierung: wir personalisieren das Tool gemäß der Anforderungen von den Kunden. Die Erweiterung des Tools nimmt 1-2 Tage in Anspruch;
• Online-Meeting: es gibt die Möglichkeit Online-Meetings zu vereinbaren, während dessen unser Team den Konvertierungsprozess Ihnen demonstrieren kann;
• Projektbezogene Preise: die Preise hängen von der Größe des Projektes ab; wir bieten eine Reihe von Optionen an, damit Sie am besten passende Option wählen können;
• Optimierte Konvertierung: nach der Konvertierung bekommen Sie den komplett funktionellen Code.

Bewertungsprozess

Um im Detail über den Bewertungsprozess kennenzulernen, folgen Sie dem Link:

COBOL Migration Bewertung

COBOL-Programmstruktur

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

Es gibt 4 Divisionen:

• IDENTIFIZIERUNG TEIL: Hier muss man den Namen des Programms eingeben.
• ENVIRONMENT TEIL: Hier muss man die Dateien, die das Programm braucht, festlegen.
• DATA TEIL: Hier muss man die Variablen, Anschreibungen, Dateien usw erklären.
• PROCEDURE TEIL: Hier muss man das Programm schreiben. Aus dem Beispiel oben ist das alles in einem Absatz. Ein Absatz ist eine Reihe von Aussagen, die durch ein Label benannt sind. Es gibt keine spezifische Markierung auf das Ende eines Absatzes.

Konvertierungsbesonderheiten

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
 

Für weitere Informationen, kontaktieren Sie bitte uns.