COBOL - Clause MOVE - Travaux Pratiques

Travaux Pratiques: Exploration de l’Instruction MOVE en COBOL
Objectifs du TP: Maîtriser l’utilisation de l’instruction MOVE dans différents contextes et avec divers
types de données en COBOL. Ce TP mettra l’accent sur la manipulation de données simples et
structurées et sur la compréhension des résultats de ces opérations.
Instructions:
Déclaration des Variables Simples:
Déclarez deux variables numériques NUM1 et NUM2.
Initialisez ces deux variables avec les valeurs ’10’ et ’20’, respectivement.
Nous souhaitons intervertir le montant de ces deux variables. Comment procéderiez vous ? Affichez
les variables après échange des valeurs.
Troncation de Données:
Déclarez une variable alphanumérique LONGUE-CHAINE et une autre COURTE-CHAINE. Initialisez la

variable LONGUE-CHAINE avec une donnée trop longue pour la variable COURTE-CHAINE. La variable
COURTE-CHAINE est initialisé à SPACE.
Déplacez les données de LONGUE-CHAINE vers COURTE-CHAINE et affichez le résultat.
Déclaration des Zones de Groupes Complexes:
Créez une structure de données complexe (zone de groupe) STRUCTURE-COMPLEXE avec 3 champs
initialisés avec des valeurs que vous aurez prédéfinies. Déclarez une seconde zone de groupe AUTRE-
STRUCTURE avec deux champs correspondants à STRUCTURE-COMPLEXE et un champ unique.
MOVE CORRESPONDING:
Utilisez MOVE CORRESPONDING pour copier les données entre STRUCTURE-COMPLEXE et AUTRE-
STRUCTURE.
Reformater les Données:
Transformez une date au format AAAAMMJJ en JJ/MM/AAAA en utilisant MOVE et d’autres

instructions COBOL pour manipuler des sous-chaînes.
Voici un exemple de programme COBOL pour accomplir les objectifs mentionnés dans
le TP sur l'exploration de l'instruction MOVE :
PROCEDURE DIVISION.
DISPLAY "Valeurs initiales :".
DISPLAY "NUM1: " NUM1 " NUM2: " NUM2.
DISPLAY SPACE.
DISPLAY "Troncation de Données :".
DISPLAY "LONGUE-CHAINE avant : " LONGUE-CHAINE.
DISPLAY "COURTE-CHAINE avant : " COURTE-CHAINE.
MOVE COURTE-CHAINE TO LONGUE-CHAINE.
DISPLAY "LONGUE-CHAINE après : " LONGUE-CHAINE.
DISPLAY "COURTE-CHAINE après : " COURTE-CHAINE.
DISPLAY SPACE.
DISPLAY "Déclaration des Zones de Groupes Complexes :".
DISPLAY "STRUCTURE-COMPLEXE avant : ".
DISPLAY " CHAMP1: " CHAMP1 " CHAMP2: " CHAMP2 " CHAMP3: " CHAMP3.
DISPLAY "AUTRE-STRUCTURE avant : ".
DISPLAY " STRUCT-COPY: " STRUCT-COPY " CHAMP4: " CHAMP4 " CHAMP5: "CHAMP5.
MOVE CORRESPONDING STRUCTURE-COMPLEXE TO AUTRE-STRUCTURE.
DISPLAY "STRUCTURE-COMPLEXE après : ".
DISPLAY " CHAMP1: " CHAMP1 " CHAMP2: " CHAMP2 " CHAMP3: " CHAMP3.
DISPLAY "AUTRE-STRUCTURE après : ".
DISPLAY " STRUCT-COPY: " STRUCT-COPY " CHAMP4: " CHAMP4 " CHAMP5: "CHAMP5.
DISPLAY SPACE.
DISPLAY "Reformater les Données :".
MOVE FUNCTION NUMVAL (DATE-AAMMJJ (1:4)) TO DATE-JJMAAAA.
MOVE "/" TO DATE-JJMAAAA (3:1).
MOVE FUNCTION NUMVAL (DATE-AAMMJJ (5:2)) TO DATE-JJMAAAA (4:2).
MOVE "/" TO DATE-JJMAAAA (6:1).
MOVE FUNCTION NUMVAL (DATE-AAMMJJ (7:2)) TO DATE-JJMAAAA (7:4).
DISPLAY "DATE-AAMMJJ : " DATE-AAMMJJ.
DISPLAY "DATE-JJMAAAA : " DATE-JJMAAAA.
STOP RUN.
Explications détaillées du code :
1. NUM1 et NUM2 :
• Déclaration de deux variables numériques NUM1 et NUM2 .
• Initialisation avec les valeurs 10 et 20.
• Utilisation de l'instruction MOVE pour échanger les valeurs.
2. LONGUE-CHAINE et COURTE-CHAINE :
• Déclaration de deux variables alphanumériques LONGUE-CHAINE et COURTE-
CHAINE.
• Utilisation de l'instruction MOVE pour tronquer les données de LONGUE-
CHAINE vers COURTE-CHAINE.
3. STRUCTURE-COMPLEXE et AUTRE-STRUCTURE :
• Déclaration de deux zones de groupe avec des champs complexes.
• Utilisation de MOVE CORRESPONDING pour copier les données entre les deux
structures complexes.
4. DATE-AAMMJJ et DATE-JJMAAAA :
• Déclaration de deux variables pour représenter la date au format
AAAAMMJJ et JJ/MM/AAAA respectivement.
• Utilisation de l'instruction MOVE et des fonctions NUMVAL pour reformater
la date.
Chaque section du programme est accompagnée de commentaires pour faciliter la

compréhension. Les instructions DISPLAY sont utilisées pour afficher les résultats à
l'écran. Vous pouvez exécuter ce programme dans un environnement COBOL pour
voir les résultats.

COBOL - Clause MOVE - Travaux Pratiques

Transféré par

Droits d'auteur :

Formats disponibles

COBOL - Clause MOVE - Travaux Pratiques

Transféré par

Informations du document

Titre original

Copyright

Formats disponibles

Partager ce document

Partager ou intégrer le document

Options de partage

Avez-vous trouvé ce document utile ?

Ce contenu est-il inapproprié ?

Droits d'auteur :

Formats disponibles

COBOL - Clause MOVE - Travaux Pratiques

Transféré par

Droits d'auteur :

Formats disponibles

Travaux Pratiques: Exploration de l’Instruction MOVE en COBOL

Déclaration des Variables Simples:

Déclarez deux variables numériques NUM1 et NUM2.

Déclarez une variable alphanumérique LONGUE-CHAINE et une autre COURTE-CHAINE. Initialisez la

Déplacez les données de LONGUE-CHAINE vers COURTE-CHAINE et affichez le résultat.

Déclaration des Zones de Groupes Complexes:

Reformater les Données:

Transformez une date au format AAAAMMJJ en JJ/MM/AAAA en utilisant MOVE et d’autres

Explications détaillées du code :

Chaque section du programme est accompagnée de commentaires pour faciliter la

Vous aimerez peut-être aussi