Processus de Migration IDEAL DATACOM vers COBOL DB2 en 2 étapes.
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.
FOR recordsOf IDUPCV300E1 WHERE IDUPCV300E1.CL1GENER = something1 AND IDUPCV300E1.CL1CODIG = something2
FOR recordsOf IDUPCV300E1 WHERE IDUPCV300E1.CL1GENER = something1 AND IDUPCV300E1.CL1CODIG = something2 AND IDUPCV300E1.CL1SCODI = something3
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 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 ».
|