Conversion d'Application COBOL vers T-SQL MS SQL Server

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

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

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ù vous devez saisir le nom du programme.
• ENVIRONMENT DIVISION: C'est là où vous définissez les fichiers nécessaires pour le programme.
• DATA DIVISION: C'est là où vous déclarez variables, dossiers, fichiers etc.
• PROCEDURE DIVISION: C'est là où vous écrivez le programme. Dans l'exemple ci-dessus c'est dans un paragraphe. Un paragraphe est une série des déclarations nommées par un marqueur. Il n'y a pas de marque particulière à la fin d'un paragraphe.

Caractéristiques de Conversion

• Migration des applications d'une base de données COBOL vers MSSQLServer
• Convertir les programmes COBOL vers les procédures MSSQLServer

CREATE PROCEDURE DemoId()  AS 
       BEGIN
          PRINT ‘FIRST DEMO’
       END;



• Convertir une WORKING-STORAGE Section avec les variables de déclaration et Records vers l'instruction DECLARE
de MSSQLServer

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.

Vers:

DECLARE
    @MY_STRING_1 VARCHAR(20),
    @MY_STRING_2 VARCHAR(20),
    @MY_NUMBER    INT 
SET @MY_NUMBER=1



• Convertir les records COBOL vers le type défini par l'utilisateur CLR de MSSQLServer

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

  Vers:

  CREATE TYPE MY_DATA_RECORD AS TABLE 
              (MY_NAME        VARCHAR(20),
            MY_ADDRESS    VARCHAR(40),  
                   MY_ID INT )
      GO

  
  
• Convertir les instructions COBOL MOVE TO/COMPUTE vers l'instruction d'affectation SET

MOVE 5 TO MY_NUMBER.

Vers:

SET @MY_NUMBER=5



• Convertir les sections (un groupe de paragraphes ou de déclarations) COBOL vers les procédures MSSQLServer. SECTION peut être appeler en utilisant l'instruction PERFORM. PERFORM est converti vers la procédure stockée EXECUTE.
• Convertir les structures de contrôle COBOL vers les instructions de contrôle MSSQLServer

  IF condition
  ELSE
  END IF

  Vers:

  IF condition
  ELSE
  END IF;

  Et

  PERFORN UNTIL condition
  COBOL statements
  END-PERFORM

  Vers:

  WHILE condition
            sql_statements/sql_block

  
  
• Convertir la Sortie de l'écran (déclaration DISPLAY) dans l'instructions PRINT
• Convertir les instructions EXEC SQL/ END-EXEC(select, insert, update, delete, CURSOR statements) vers les instructions MSSQLServer SQL (SELECT, INSERT, UPDATE, DELETE, CURSOR)

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

Vers:

SELECT cur_date 
    FROM val_date
    WHERE cur_date < GetDate();



• Convertir automatiquement les expressions SQL dans le SQL embarqué (EXEC SQL/END-EXEC.) afin d'être conforme à MSSQLServer T/SQL



Contactez-nous pour en savoir plus.