Processus de Migration IDEAL DATACOM vers COBOL DB2 en 2 étapes.

• IDEAL DATACOM vers COBOL DATACOM avec DBNTRY

• COBOL DATACOM vers COBOL SQL DB2

Contexte

Etude des 1217 programmes IDEAL dont 1160 contenant des instructions ("FOR") d'accès aux Tables DATACOM

Objectif

Inventaire et Modelisation de blocs IDEAL "FOR" pour l'étude de la traduction d'accès DATACOM et la SQLisation finale.

Différentes instructions "FOR" du même modèle seront traduites et exécutées de la même manière.

Le numéro de modèle et les autres paramètres nécessaires seraient transmis en tant qu'arguments des interfaces d'E/S DBNTRY et l'accès final SQL.

Méthode

Les blocs "FOR" des programmes IDEAL ont été analysés, formatés dans la table STUDY_FOR_Statements et réduits dans des modèles distincts d'expression d'accès DATACOM, elle-mêmes stock"ées dans une table STUDY_FOR_Models.

Statistiques et Quelques Résultats de Modélisation

7.572 blocs "FOR" trouvés dans les 1160 programmes IDEAL pour l'accès aux Tables DATACOM.

2.731 modèles distincts obtenus.

233 Tables DATACOM impliquées.

249 DATAVIEWs impliquées.

• 369 occurrences du modèle d'accès suivant ont été trouvées et devraient être traduites de la même manière:

FOR recordsOf IDUPCV300E1 WHERE IDUPCV300E1.CL1GENER = something1 AND IDUPCV300E1.CL1CODIG = something2

• 260 occurrences du modèle d'accès suivant ont été trouvées et doivent être traduites de la même manière:

FOR recordsOf IDUPCV300E1 WHERE IDUPCV300E1.CL1GENER = something1 AND IDUPCV300E1.CL1CODIG = something2 AND IDUPCV300E1.CL1SCODI = something3

• 235 occurrences du modèle d'accès suivant ont été trouvées et doivent être traduites de la même manière:

FOR recordsOf IDUPTL167E1 WHERE IDUPTL167E1.COD-PTC-GEN = something1 AND IDUPTL167E1.COD-TRA = something2 AND IDUPTL167E1.COD-SIT = something3

Version COBOL/DATACOM

Version COBOL/SQL

• Les accès directs sur « clé égale », REDKX et RDUKX, se traduisent par un SELECT SQL sur « clé égale ».

• Les accès sur « clé supérieure ou égale » REDKG et RDUKG, se traduisent par l’ouverture et la première lecture d’un curseur SQL FOR ‘READ ONLY’ sur « clé supérieure ou égale » avec la clause ORDER BY associée. La commande RDUKG donne lieu en outre à l’ouverture d’un curseur SQL ‘FOR UPDATE’ sur « clé égale ». Les accès suivants, ‘REDNX’ et ‘RDUNX’, se traduisent par la lecture suivante du curseur SQL « clé supérieure ou égale ». La commande RDUNX donne lieu en outre à la ré-ouverture du curseur SQL ‘FOR UPDATE’ sur « clé égale ».

• Les accès sur « clé inférieure ou égale » REDKL et RDUKL, se traduisent par l’ouverture et la première lecture d’un curseur SQL sur « clé inférieure ou égale » avec la clause ORDER BY DESC associée. La commande RDUKL donne lieu en outre à l’ouverture d’un curseur SQL ‘FOR UPDATE’ sur « clé égale ». Les accès suivants, ‘REDBR’ et ‘RDUBR’, se traduisent par la lecture suivante du curseur SQL « clé inférieure ou égale ». La commande RDUBR donne lieu en outre à la ré-ouverture d’un curseur SQL ‘FOR UPDATE’ sur « clé égale ».

• Les accès de mise à jour UPDAT et de suppression DELET se traduisent par l’action SQL correspondante UPDATE et DELETE sur le curseur de type « clé égale » ouvert en mode ‘FOR UPDATE’ lors de la demande RDUxx associée. Ce curseur sera fermé par la même occasion.

• La commande de libération RELES se traduit par la fermeture du curseur SQL ‘FOR UPDATE’ correspondant à la demande RDUxx associée.

• L’accès d’ajout ADDIT est traduit par un INSERT SQL.

• Ces mécanismes permettent d’éviter toute ambiguïté sur les curseurs pour DB2. L’utilisation des paramètres de BIND ISOLATION(CS) et CURRENTDATA(NO) complète cette solution, proche de la gestion des ‘locks’ par DATACOM.

LES PHASES DE LA MIGRATION

PHASE D'ETUDE D'EVALUATION

PHASE D'ETUDE DETAILLEE

PHASE DE PROTOTYPAGE

PHASE DE TRANSFORMATION

PHASE DE MISE EN PRODUCTION