Conversion de COBOL vers DB2

Grâce à l'outil Ispirer Migration and Modernization Toolkit il est désormais possible de convertir des applications depuis Cobol vers IBM DB2!

Pourquoi Ispirer MnMTK?

Effectuez votre migration avec Ispirer Systems et profitez donc des avantages suivants que vous offre notre outil:

• Cohérence et Intégration: automatisation jusqu'à 100%


• Personnalisation rapide: individualisation et optimisation de la converson (1-3 jours ouvrables en moyenne)
  
  
• Engagement pré-vente: nous démontrons une conversion complète au cours de l'évaluation avant que vous preniez une décision
  
  
• Prix Raisonnable: nous offrons une tarification souple


• Conversion Optimisée: en tant que résultat vous obtenez un code intelligent et maintenable, sans aucun middleware à utiliser après la conversion

Evaluation et Achat

L'évaluation de votre projet de migration permettra de mesurer les ressources nécessaires aussi bien que le coût de votre migration. Afin de faciliter ce processus, n'hésitez pas à nous envoyer les détails sur votre projet en demandant un devis:

Caractéristiques de Conversion

Structure du programme COBOL

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

Il y a quatre divisions:

• IDENTIFICATION DIVISION: C'est là où l’on insère dans le nom du programme.
• ENVIRONMENT DIVISION: C'est là où l’on définit les fichiers dont le programme a besoin.
• DATA DIVISION: C'est là où l’on déclare les variables, records, fichiers etc.
• PROCEDURE DIVISION: C'est là où l’on écrit le programme. Dans l’exemple ci-dessous tout est en un paragraphe. Un paragraphe est une série d’instructions nommées par un label. Il n’y a pas de note spéciale à la fin du paragraphe.

Lors de la migration, Ispirer MnMTK:

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
 

Contactez-nous pour en savoir plus.