La clause 66 RENAME en COBOL

La clause `66 RENAME`

La clause 66 RENAME en Cobol est utilisée dans la DATA DIVISION pour renommer un ou plusieurs éléments de données existants. Cela permet de donner un nom alternatif à un groupe d'éléments ou à un élément individuel, facilitant ainsi l'accès et la manipulation des données sans dupliquer les définitions. C'est particulièrement utile pour regrouper des champs contigus sous un nouveau nom pour des opérations plus simples.

Exemple de code

IDENTIFICATION DIVISION.
PROGRAM-ID. RENAME-EXAMPLE.

DATA DIVISION.
WORKING-STORAGE SECTION.
01 EMPLOYEE-RECORD.
   05 EMP-NAME.
      10 FIRST-NAME PIC X(10).
      10 LAST-NAME  PIC X(15).
   05 EMP-ID     PIC 9(5).

66 FULL-NAME RENAMES FIRST-NAME THRU LAST-NAME.

PROCEDURE DIVISION.
MAIN-PARA.
   MOVE "John     Doe          " TO FULL-NAME.
   DISPLAY "Nom complet : " FULL-NAME.
   STOP RUN.

Télécharger le code

Exemple de sortie

Lors de l'exécution de ce programme Cobol, la sortie attendue serait :

Nom complet : John     Doe

Explication détaillée du code

Voici une explication ligne par ligne du code, en se concentrant sur les parties liées à la clause 66 RENAME. Cette explication est conçue pour les débutants, en expliquant chaque concept pas à pas.

IDENTIFICATION DIVISION. : C'est la première division obligatoire d'un programme Cobol. Elle identifie le programme.
PROGRAM-ID. RENAME-EXAMPLE. : Définit le nom du programme. Ici, c'est un exemple simple nommé "RENAME-EXAMPLE".
DATA DIVISION. : Cette division est utilisée pour définir les données que le programme va manipuler.
WORKING-STORAGE SECTION. : Une section dans la DATA DIVISION où l'on déclare des variables temporaires utilisées pendant l'exécution du programme.
01 EMPLOYEE-RECORD. : Définit un groupe de niveau 01, qui est un enregistrement principal contenant des sous-éléments.
05 EMP-NAME. : Un sous-groupe de niveau 05 sous EMPLOYEE-RECORD, contenant les noms.
10 FIRST-NAME PIC X(10). : Un élément élémentaire de niveau 10, représentant le prénom, avec une image PIC X(10) signifiant 10 caractères alphanumériques.
10 LAST-NAME PIC X(15). : Similaire, pour le nom de famille, avec 15 caractères.
05 EMP-ID PIC 9(5). : Un autre élément de niveau 05, pour l'ID employé, numérique avec 5 chiffres.
66 FULL-NAME RENAMES FIRST-NAME THRU LAST-NAME. : Voici la clause clé. Le niveau 66 est réservé pour les renommages. FULL-NAME est le nouveau nom qui renomme les éléments contigus de FIRST-NAME jusqu'à LAST-NAME. Cela signifie que FULL-NAME fait maintenant référence à la combinaison des deux champs (total 25 caractères), permettant de les traiter comme un seul élément sans changer les définitions originales.
PROCEDURE DIVISION. : Cette division contient le code exécutable du programme.
MAIN-PARA. : Un paragraphe nommé pour le code principal.
MOVE "John Doe " TO FULL-NAME. : Déplace une chaîne de caractères vers FULL-NAME. Grâce au renommage, cela remplit à la fois FIRST-NAME ("John ") et LAST-NAME ("Doe "). Notez les espaces pour remplir les longueurs fixes.
DISPLAY "Nom complet : " FULL-NAME. : Affiche le contenu de FULL-NAME, montrant comment le renommage permet d'accéder facilement au groupe renommé.
STOP RUN. : Termine l'exécution du programme.

Notez que les espaces sont préservés en raison des longueurs fixes définies par PIC.