Langage Cobol

AVERTISSEMENT
3 LES INSTRUCTIONS DU NOYAU
1 GENERALITES DU LANGAGE COBOL

1. La division IDENTIFICATION
2. La division ENVIRONMENT
1. Historique
3. La division des données
2. Intérêt du COBOL 3.1. Organisation générale :
2.1. Indépendance de la machine utilisée 3.2. Description générale d'une rubrique
2.2. Un langage adapté à la résolution des problèmes de gestion 3.3. La clause PICTURE
2.3. Apprentissage facile 3.4. La clause USAGE
3. Fonctions du COBOL 3.5. La clause REDEFINES
3.6. La clause VALUE
4. Eléments du langage
4.1. Jeu des caractères autorisés: Utilisation des constantes figuratives
4.2. Les mots 3.7. La clause BLANK
4.3. Instructions et clauses 3.8. La clause SYNCHRONIZED
4.4. Les phrases 3.9. La clause JUSTIFIED
4.5. Les paragraphes 3.10. La clause SIGN
4.6. Les sections 3.11. La clause RENAMES
4.7. Les divisions 3.12. Exemple de synthèse
5. Structure d'un programme 4. La division PROCEDURE

5.1. IDENTIFICATION DIVISION 4.1. Expressions arithmétiques
5.2. ENVIRONMENT DIVISION 4.2. Valeurs arrondies
5.3. DATA DIVISION 4.3. Expressions conditionnelles
5.4. PROCEDURE DIVISION 4.4. Organisation de la division PROCEDURE
4.5. ACCEPT
6. Conventions 4.6. DISPLAY
4.7. Verbes arithmétiques
4.8. MOVE
4.9. IF
4.10. EVALUATE
4.11. PERFORM
2 CONCEPTS FONDAMENTAUX 4.12. EXIT
4.13. STOP
4.14 GO
1. Les verbes COBOL 4.15 INSPECT
1.1. Catégorie fonctionnelles de verbes 4.16 STRING et UNSTRING
1.2. Types d'instructions et de phrases 4.17. INITIALIZE
2. Représentation interne des données

2.1. Caractéristiques d'une donnée
2.2. La hiérarchie des données en COBOL
2.3. Définition d'une rubrique
2.4. Types et classes de rubriques 4 LE TRAITEMENT DES TABLES
2.5. Formats internes des données
3. Règles d'alignement
3.1. Règle d'alignement numérique 1 Principes
3.2. Règle d'alignement non numérique :
2 Définition d'une table - OCCURS
4. Unicité de référence
3. SET
5. Règles de ponctuation
4. Recherche en table - SEARCH
6. Feuille de saisie COBOL 4.1. Recherche séquentielle
4.2. Recherche dichotomique
Exemple de programme COBOL
Cobol Tables des Matières 0-1 Cobol Tables des Matières 0-2
5 GESTION DES FICHIERS EN COBOL
7 COMMUNICATION INTER-PROGRAMME
1. Organisation et accès supportés

2. Input-output section 1. Principes
2.1. Le paragraphe FILE-CONTROL 2. Sous-programme COBOL
2.2. Le paragraphe facultatif I-O CONTROL
3. Appel d'un sous-programme
3. Data Division
3.1. Syntaxe générale 4. Instructions spécifiques des sous-programmes
4.1. CANCEL
4. Procedure Division 4.2 EXIT PROGRAM
4.1. Ouverture et fermeture d'un fichier
4.2. Opérations possibles sur les fichiers 5. Objets externes partagés
5. Erreurs d'entrée-sortie et code d'état du fichier 6. Exemple d'utilisation
5.1. FILE STATUS
5.2. Gestion des erreurs d'entrées / sortie
PROGRAMMES CONTENUS
6. Codes d’Etat des Opérations d’E/S
7. Le Module Séquentiel
7.1 Les opérations d'entrées / sorties sur un fichier d'organisation séquentielle 8 BIBLIOTHEQUE
8. Le Module Indexé
8.1. Description d'un fichier d'organisation séquentielle indexée
8.2. L'accès séquentiel 9 FONCTIONS INTRINSÈQUES
8.3. L'accès sélectif (RANDOM)
8.4. L'accès dynamique (DYNAMIC)
8.5. Clés secondaires 1 Généralités
9. Le Module Relatif 2 Fonctions
9.1. Description d'un fichier d'organisation relative 2.1 Fonctions mathématiques
9.2. Accès aux fichiers relatifs 2.2 Fonctions financières
2.3 Fonctions sur les caractères
2.4 Fonctions sur les dates
10 TRI - FUSION
6 LES FORMATS EDITES
A0 LISTE DES MOTS RESERVES
1.Principe de l'édition
2. Les symboles d'insertion
2.1. Le point décimal A1 MISE AU POINT
2.2. Les symboles d'insertion simple : 1. Generalites
2.3. Les symboles d'insertion fixe
2.4. Les symboles d'insertion flottante : 2. inverseurs
3. Les symboles de suppression et de remplacement 3. Sections declaratives de mise au point
3.1. Remplacement par des espaces
4. Debug-item
3.2. Remplacement par des astérisques
5. Outils spéciques
4. Remarques générales
5. Rubrique numérique éditée
A2 DIFFERENCES ANS74-ANS85
6. Rubrique alphanumérique éditée
7. Modification du sens de certains symboles d'édition
7.1. Changement de symbole monétaire A3 CODES ASCII et EBCDIC
7.2. Inversion des rôles de la virgule et du point
8. Gestion de page
8.1. Définition de la page logique
8.2. Utilisation
Cobol Tables des Matières 0-3 Cobol Tables des Matières 0-4
GENERALITES DU LANGAGE COBOL
A V E R T I S S E M E N T
Le présent document ne doit pas être considéré comme un manuel de référence du COBOL mais comme
un support du cours COBOL.
1. Historique
En 1959, des représentants des secteurs public et privé se réunissent au Pentagone pour étudier les
Certaines parties dans le codage des instructions ont été volontairement omises:
possibilités d'élaborer un langage de programmation adapté à la résolution des problèmes de gestion de
• par souci de clarté de l'exposé
l’Armée; ce langage fut appelé COBOL (Common Business Oriented Language : Langage commun
• pour éviter les outils incitant à la rédaction de programmes mal structurés. orienté vers la gestion). Sa première version fut opérationnelle en décembre 1959.
• parce qu’elles sont obsolètes
• parce qu'elles sont pas (ou peu) utilisées dans la pratique Issue de ce groupe de travail, la CODASYL (Conférence On Data System Language) produisit une
seconde version en 1961.
Depuis, d'autres organisations, nationales ou internationales, ont réalisé de nouvelles versions, en

particulier l'ANSI (American National Standard Institute) et l'ISO (International Standard Institute).
Plusieurs versions de langage ont finalement été normalisées: COBOL-68, COBOL-74 (la plus utilisée),
Référence: Langage de programmation COBOL normalisé norme française NF Z 65-210 COBOL-85 (revue en 89). Malgré cela, il subsiste des différences entre les compilateurs proposés par les
Ce support décrit la syntaxe conforme à ANS85 (X3.23-1985 et X3.23a-1989) constructeurs (syntaxe, extensions propres, intégration dans le système), qui définissent des dialectes
spécifiques.
COBOL continue son évolution et les dernières versions intègrent les concepts de la programmation
orientée objet.
2. Intérêt du COBOL
2.1. Indépendance de la machine utilisée
Les programmes peuvent être facilement transposés d'une machine à une autre.
La majorité des ordinateurs disposent d'un compilateur COBOL, quels que soient leur puissance et le
système d’exploitation qu’ils utilisent.
Ceci facilite les changements de configuration; toutefois l'indépendance n'est réelle que si l'on respecte la
norme, et donc si l'on s'abstient d'utiliser les extensions propres au constructeur.
2.2. Un langage adapté à la résolution des problèmes de gestion
Ces problèmes se caractérisent par des volumes importants de données à traiter; le COBOL intègre la
majorité des fonctions de manipulation des fichiers traditionnels
2.3. Apprentissage facile
Les phrases de COBOL sont proches du langage courant anglais ce qui facilite la lecture du programme
mais entraîne en contrepartie certaines "longueurs".
2.4 Interfaçage avec d’autres outils
Cobol Généralités 1-1 Cobol Généralités 1-2

De nombreux compilateurs proposent des extensions permettant l’utilisation, depuis un programme
4. Eléments du langage
COBOL : - de code développé à partir d’un autre langage,
- de langage d’accès aux bases de données Tous les éléments surlignés sont spécifiques à la norme ANS85
- d’outils de gestion de transactions
4.1. Jeu des caractères autorisés
Il comporte les caractères suivants:

- 10 chiffres: 0 1 2 ........ 9
3. Fonctions du COBOL - 26 lettres: A B C ......... Z a b c ……. z
- le symbole monétaire: $
- 4 signes arithmétiques: + - * /
Depuis 1968, les spécifications de COBOL sont basées sur le concept de MODULES de traitement. La - 3 symboles de relation: > < =
norme définit un noyau et onze modules fonctionnels. Chaque module contient deux niveaux de - 7 séparateurs utilisés pour la ponctuation: , ; . b ( ) " :
spécification; les modules M3 à M11 peuvent être vides (niveau 0). Cette méthode permet de comparer (Nous notons b le caractère "espace").
les compilateurs offerts par les constructeurs, du plus restreint (niveau 1 du noyau et des modules M1 et
M2) au plus complet (le noyau et tous les modules au niveau 2).
Tous ces caractères sont représentés en mémoire par leur code (ASCII ou EBCDIC); le code ASCII natif
Niveaux utilise 7 chiffres binaires (bits) et est complété par un 8ème bit égal à zéro afin de stocker à l'octet et de
pouvoir utiliser une représentation hexadécimale.
1,2 Noyau - définition du jeu des caractères autorisés Sauf dans des littéraux non-numériques, les lettres minuscules sont équivalentes aux majuscules.
- éléments du langage nécessaires au traitement interne
4.2. Les mots
1,2 M1 Traitement des tables: définition et accès à des tables au moyen d'indices et d'index
Un mot COBOL est une chaîne continue d'au plus 30 caractères pris dans le sous-ensemble
1,2 M2 Organisation séquentielle: gestion des fichiers d'organisation séquentielle en accès séquentiel { lettres, chiffres, - }. Un tiret (-) ne peut être ni le premier, ni le dernier caractère d'un mot.
0,2 M3 Organisation séquentielle indéxée: gestion des fichiers d'organisation séquentielle indexée On distingue : - les mots-utilisateurs
- les mots-réservés
0,2 M4 : Organisation relative: gestion des fichiers d'organisation relative - les noms-système
0,2 M5 Tri et fusion: inclusion de tri ou de fusion de fichiers dans un programme 4.2.1. Les mots-utilisateurs
0,1 M6 Edition: aide à la production d'états imprimés Créés par le programmeur, ce sont des noms servant à référencer des structures de données ou de
traitements. On distingue :
0,2 M7 Segmentation : procédures de recouvrement de sections de la division des traitements
♦ les noms de données : ils servent à désigner une zone de mémoire contenant une information :
0,2 M8 Bibliothèque : inclusion de textes dans un programme source
♦ les noms de fichiers : permettent de référencer une structure de fichier
0,2 M9 Mise au point : aide à la mise au point et contrôle de l'exécution d'un programme
♦ le nom de programme : identifie le programme
0,2 M10 Communication inter-programmes : - sous-programmes
- partage des données entre programmes
♦ les noms de paragraphes et de sections : délimitent des sous-ensembles du programme
0,2 M11 Communications : émission et réception de messages
♦ les noms d'article : identifient une structure d'enregistrement logique dans un fichier.
0,1 M12 Fonctions intrinsèques : calcul, caractères, date
♦ les noms d'index : désignent des index associés à une table
♦ les numéros de niveaux : indiquent la hiérarchie des rubriques à l'intérieur d'une structure complexe.
Tous ces mots propres au programmeur ont une portée limitée au programme qui les utilisent (et les
programmes contenus en cas de globalisation).

Ces mots ont une signification précise pour le compilateur COBOL que le programmeur ne peut pas
Les numéros de niveaux sont uniquement composés de chiffres et appartiennent à l'ensemble {01 à 49, modifier. Il est donc prudent lorsqu'on choisit un mot utilisateur de s'assurer qu'il ne s'agit pas d'un mot
66, 77, 88}. réservé ; à cet effet consulter la liste en Annexe.
A l'exception des noms de paragraphes et de sections et des numéros de niveaux, les mots-utilisateurs Ces mots ont par ailleurs une orthographe fixée qu'il faut impérativement respecter.
doivent comporter au moins une lettre.
Exemples On distingue :
Noms de données : A1 TOTAL-FACTURE COEFF3 ♦ les mots-clés : Ils identifient les clauses et les instructions ; la présence du mot clé identifiant
une instruction est indispensable chaque fois que cette instruction est utilisée.
Nom de paragraphes ou de sections : S1 CALCUL 71 7-1
Exemple : ADD identifie le verbe arithmétique de l'addition
Remarques : ♦ les mots facultatifs :Ils ne servent qu'à se rapprocher de la syntaxe de la langue anglaise ;
leur absence ne modifie pas le sens de la clause ou de l'instruction.
- Les mots cités en exemples de noms de données pourraient aussi être des noms de fichiers ou d'articles
ou d'index. Exemple : DATA RECORD IS ARTICLE1
peut s'écrire RECORD ARTICLE1, ARTICLE1 étant un mot utilisateur
- L'écriture TOTAL-FACTURE représente un seul mot à cause du tiret ; TOTAL FACTURE est
considéré comme une suite de deux mots. ♦ les conjonctions : pour relier des opérandes dans les clauses ou instructions : virgule ou
point-virgule (facultatifs) ; pour former des expressions conditionnelles composées : AND et
- Le nom de section 1 est différent du nom 01 OR
♦ les opérateurs arithmétiques et de relation : + - * / = > < **

A cette liste, il convient d'ajouter les constantes (ou littéraux)
♦ les constantes figuratives : ces mots sont utilisés pour désigner des constantes particulières
- numériques (ZERO, SPACE, HIGH-VALUE, LOW-VALUE, QUOTE, ALL lit) ; ils seront abordés
ultérieurement.
- non numérique ou chaînes de caractères
♦ les registres spéciaux : zones de mémoire accueillant des valeurs particulières ; ils sont
• Les littéraux numériques sont limités à 18 chiffres et peuvent contenir un signe (à l'extrême gauche) spécifiques des dialectes ; par exemple en OSVS :
et une marque décimale (.). CURRENT-DATE date du jour (MM/DD/YY)
RETURN-CODE code-retour émis par le pg
Exemple : 125 -42.1 +21 TALLY compteur associé à EXAMINE
TIME-OF-DAY heure-système
Certains dialectes acceptant les données en virgule flottante, un littéral numérique de ce type s’exprime ...
par
[±] mantisse E [±] exposant , mantisse d’au plus 16 chiffres, et exposant sur 2 chiffres (domaine de
valeurs de 0.54E-78 à 0.72E+76).
Exemples : 15.2E18 -458E-42 4.2.3. Les noms-système
Ils servent à communiquer avec le système d'exploitation pour désigner une machine, un langage ou un
• Les littéraux non numériques sont des chaînes d'au plus 160 caractères quelconques encadrées de dispositif (PRINT, SWITCH-1, CONSOLE, TERMINAL, SYSIN, SYSOUT, ...)
guillemets (ou apostrophes suivant dialecte).
Exemple: "*** Liste des Fournisseurs ***"
4.2.2. Les mots-réservés

4.6. Les sections
4.3. Instructions et clauses
Une section est un ensemble de zéro, un ou plusieurs paragraphes précédé par un en-tête de section au
format suivant :
4.3.1. Les instructions
nom de section SECTION.
Une instruction est une combinaison syntaxiquement correcte de mots et de symboles; elle figure dans la
division des traitements et spécifie une action particulière. Elle commence toujours par un verbe, mot Une section se termine à la rencontre d'un des éléments suivants :
réservé qui l'identifie. - en-tête d'une nouvelle section
- en-tête de division
Exemple : - fin de programme
ADD 1 TO C Addition
MOVE RESULTAT TO EDITION Transfert
4.7. Les divisions
4.3.2. Les clauses
Une division est un ensemble de zéro, une ou plusieurs sections précédé par un en-tête de division au
Une clause est une combinaison syntaxiquement correcte de mots et de symboles ; elle permet de format suivant :
spécifier un attribut ou une disposition particulière. Contrairement aux instructions, les clauses ont un
rôle descriptif statique. nom de division DIVISION.
Le nom de division est un mot clé.

Exemple : USAGE IS DISPLAY précise le mode de codification utilisé indépendamment des
valeurs et des opérations effectuées. Une division se termine à la rencontre d'un en-tête de division ou de la fin du programme.
LABEL RECORD IS STANDARD indique que pour identifier ce fichier, on utilise la procédure
des étiquettes standards.
5. Structure d'un programme
4.4. Les phrases

Un programme COBOL comporte 4 divisions obligatoires (sauf ANS85), présentées dans l'ordre suivant
:
Une phrase est une suite d'instructions ou de clauses terminée par un point.
5.1. IDENTIFICATION DIVISION

4.5. Les paragraphes
Elle permet de préciser des renseignements généraux sur le programme tels que : nom du programme,
date d'écriture, nom de l'auteur ...
Un paragraphe est une suite d'une ou plusieurs phrases précédée par un en-tête de paragraphe qui
l'identifie.
L'en-tête de paragraphe est un nom de paragraphe suivi d'un point. 5.2. ENVIRONMENT DIVISION
Un paragraphe se termine à la rencontre d'un des éléments suivants :
Elle contient la description de l'ordinateur utilisé (CONFIGURATION SECTION) et des informations
- en-tête d'un nouveau paragraphe
relatives à la gestion des entrées-sorties (INPUT-OUTPUT SECTION).
- en-tête de section
- en-tête de division
- fin du programme
5.3. DATA DIVISION
Exemple : PAR0. ADD A TO B Elle contient la description des informations ou données que le programme reçoit, traite et produit ; ces
MOVE A TO I. données se répartissent en trois sections :
PAR1. MOVE B TO C.
S2 SECTION. ♦ La FILE SECTION contient toutes les informations relatives aux structures de fichiers (données
externes).

♦ La WORKING-STORAGE SECTION rassemble toutes les données internes au programme (zones Ce format autorise les trois instructions
de travail, de calcul, tables, etc ...)
ACCEPT V1
♦ La LINKAGE SECTION contient les données communes à plusieurs programmes. ACCEPT V1 FROM DATE
ACCEPT V1 FROM TIME
♦ La COMMUNICATION SECTION décrit l’interface entre le programme et le sous-système de gestion
V1 étant un mot utilisateur
des messages (terminaux locaux et distants).
♦ La REPORT SECTION permet la spécification et la description des états.

6.5. Les points de suspension … indiquent que le mot précédent ou la partie précédente entre accolades
ou crochets, peut être répétée plusieurs fois.
On trouve aussi, dans les dialectes, les SCREEN SECTION et LOCAL-STORAGE SECTION.
Exemple : MOVE nd1 TO nd2 [,nd3] ...
lit1
5.4. PROCEDURE DIVISION
Ce format autorise en particulier les instructions
Elle contient toutes les instructions permettant d'effectuer les traitements portant sur les informations
spécifiées dans la DATA DIVISION. MOVE 1 TO A, B
MOVE B TO C A, B, C étant des mots utilisateurs
Le programme-source se termine à la fin de la dernière ligne, ou à la rencontre de l’en-tête

6.6. Les caractères de ponctuation , et ; apparaissant dans les formats sont facultatifs.
END PROGRAM nom-programme .
6.7. Abréviations utilisées dans ce support
nd : nom de donnée
nt : nom de traitement (paragraphe ou section)
6. Conventions ch : chaîne de caractère
ent : entier
lit : littéral (numérique ou chaîne de caractères)
Pour définir le format des instructions et des clauses de COBOL nous appliquerons les conventions
fich : nom de fichier
suivantes :
enreg : nom d'enregistrement logique
6.1. Tous les mots écrits en majuscules sont des mots-réservés ; les mots écrits en minuscules sont des
mots-utilisateurs.
6.2. Les mots-réservés soulignés sont des mots-clés ; les mots-réservés non soulignés sont facultatifs.
6.3. Les accolades { } rassemblent les options de format, écrites les unes en dessous des autres, parmi
lesquelles il faut en choisir une.
Exemple : PICTURE
IS chaîne
PIC
6.4. Les crochets [ ] délimitent une partie du format facultative
Exemple : ACCEPT nd FROM DATE

TIME
Cobol Généralités 1-9 Cobol Généralités 1 - 10

CONCEPTS FONDAMENTAUX 2. Représentation interne des données
2.1. Caractéristiques d'une donnée
Une information ou donnée est la valeur d'un attribut qui caractérise un objet ou une entité.
1. Les verbes COBOL
Exemple : Si on considère l'objet "une automobile", on peut caractériser cet objet par sa marque, son type,
sa puissance (entre autres) ; marque, type et puissance fiscale sont des attributs de "automobile", auxquels
on peut donner des valeurs comme RENAULT, CLIO, 6CV.
1.1. Catégorie fonctionnelles de verbes
Un attribut peut être un objet simple (p.ex. la puissance fiscale) ou non ; dans ce cas il peut être à son tour
Verbes arithmétiques : ADD,SUBTRACT, MULTIPLY, DIVIDE, COMPUTE caractérisé par des attributs plus simples.
Verbes d'entrée-sortie :READ, WRITE, REWRITE, DELETE, ACCEPT, DISPLAY, START,

OPEN, CLOSE, STOP, USE Exemple : Nous pouvons considérer que le type de la voiture est caractérisé par la gamme de fabrication et
par une identification dans la gamme ; nous faisons apparaître deux attributs plus élémentaires distincts :
Verbes de rupture de séquence : PERFORM, EXIT, STOP, GO TO, ALTER la gamme CLIO et l'identification GL à l'intérieur de cette gamme.
Verbes de communication inter-programmes : CALL, CANCEL, EXEC

Marque
Verbes de gestion de table : SET, SEARCH Gamme
Automobile Type
Verbes de manipulation de données : MOVE, INSPECT, STRING, UNSTRING, SORT, Identification dans la gamme
MERGE, RELEASE, RETURN Puissance fiscale
Directives de compilation : COPY, INSERT, REPLACE, USE
Verbes de condition : IF, EVALUATE, les verbes d'entrée-sortie utilisés avec l'une des clauses AT Sur cet exemple, nous avons fait apparaître une structure hiérarchique entre les données. L'objet
END ou INVALID KEY, les verbes arithmétiques avec une phrase SIZE ERROR, SEARCH avec qui se trouve au sommet de la hiérarchie s'appelle une entité de base.
WHEN
STRUCTURER des données consiste donc à regrouper ces données autour d'une entité de base en les
classant suivant une hiérarchie.
1.2. Types d'instructions et de phrases
Nous appelons ARTICLE (ou enregistrement logique) une telle structure de données.
On appelle instruction conditionnelle une instruction identifiée par un verbe de condition ; les autres
instructions sont dites impératives. Nous appelons RUBRIQUE la zone mémoire permettant de stocker la valeur d'un attribut.
Une phrase impérative ne contient que des instructions impératives, sinon elle est de type conditionnel. En nous référant au schéma précédent, nous constatons que nous aurons deux sortes de rubriques :
• des rubriques élémentaires qui ne contiennent qu'une seule valeur non décomposée (ex. Marque,
Gamme, etc..)
• des rubriques structurées : elles regroupent un ensemble quelconque de rubriques, élémentaires ou

non (ex. Type)
Remarques :
a) La rubrique structurée la plus importante est celle qui est constituée de l'ensemble des rubriques
relatives à un article.
Cobol Concepts fondamentaux 2-1 Cobol Concepts fondamentaux 2-2

b) La décomposition en rubriques d'une entité dépend des fonctions à réaliser et non des sous- 2.4. Types et classes de rubriques
attributs élémentaires qu'on peut mettre en évidence ; ainsi dans l'exemple précédent, il est inutile de
décomposer l'attribut "type" en deux sous-attributs si aucun traitement n'utilise ces sous-attributs. On distingue cinq types de rubriques :
♦ alphabétique : la rubrique ne contient que des lettres ou des espaces

♦ numérique : la rubrique ne contient que des chiffres
♦ numérique édité : la rubrique ne contient que des chiffres et des symboles d'édition
2.2. La hiérarchie des données en COBOL
(. , b , + , - $ , etc...)
♦ alphanumérique : la rubrique contient des caractères quelconques
La description de l'objet "automobile" se présente sous la forme d'une arborescence. Pour décrire cette ♦ alphanumérique édité : la rubrique contient des caractères quelconques et des symboles
arborescence de façon linéaire, on attribue à chaque niveau de la décomposition un NUMERO et un d'insertion ( b , /)
ordre d'écriture tels que pour tout attribut J dans un attribut I :
On distingue trois classes de rubriques :
a) J est écrit après I
♦ alphabétique
b) le numéro de J est strictement supérieur à celui de I
♦ numérique
♦ alphanumérique (constitué des 3 derniers types)
c) tout élément écrit entre I et J a un numéro strictement supérieur à celui de I.
Remarque très importante :
01 AUTOMOBILE
Une rubrique structurée est toujours de classe alphanumérique, quel que soit son type.
02 MARQUE
02 TYPE
03 GAMME
2.5. Formats internes des données
03 IDENT-DANS-GAMME
02 PUISSANCE
Tous les exemples sont donnés en ASCII
Les numéros de niveaux doivent être compris entre 01 (ou 1) et 49 ; ils ne sont pas obligatoirement
consécutifs ; l'entité de base porte toujours le numéro 1. 2.5.1. Formats fondamentaux
On distingue deux représentations de base :

2.3. Définition d'une rubrique
le format binaire, ne concerne que les entiers. La valeur est codée en complément à 2, sur 2,
4ou 8 octets. Les plages de valeurs sont :
Chaque rubrique est identifiée par un nom qui doit être unique (cf. noms de données au chapitre 1).
-32768 à + 32767 pour la représentation sur 16 bits
31 31
Les rubriques élémentaires font l'objet d'une description plus détaillée à l'aide de clauses qui précisent leur -2 à +2 - 1 (~109) pour la représentation sur 32 bits
63 63
nature, leur format, etc... et permettent d'avoir une image théorique de l'attribut. Ces clauses sont -2 à +2 -1
décrites au chapitre 3. Toutefois, notons dès à présent que l'on représente :
Désigné en COBOL par BINARY, COMPUTATIONAL, ou COMPUTATIONAL-4
- par le symbole X une position de rubrique pouvant contenir un caractère quelconque
- par le symbole 9 une position de rubrique ne pouvant contenir qu'un chiffre. la représentation codée, peut être utilisée pour tous les types ; les valeurs sont codées en
utilisant le code ASCII ou EBCDIC. (cf. chap. 1 par 4-1)
Exemples : MARQUE XXXXXXX Une troisième représentation peut exister : la virgule flottante, simple (4 octets) ou double (8 octets).
qui s'écrit aussi MARQUE X(7)
(7 est un facteur de répétition) Désigné par COMPUTATIONAL-1, COMPUTATIONAL-2.
La valeur Marque peut contenir une valeur sous forme d'une chaîne de 1 à 7 caractères.
2.5.2 Représentation codée
PUISSANCE 99
La rubrique PUISSANCE peut contenir une valeur sous forme d'un nombre entier de 2 chiffres, comme
2.5.2.1. Rubrique de type non numérique
04.
Chaque caractère de la rubrique occupe exactement un octet ; sa valeur est représentée par son
code ASCII

Exemple : Soit la rubrique MARQUE d'image X(7) ; la valeur PEUGEOT est représentée (en
hexadécimal) Le tableau suivant donne les résultats de signe des chiffres perforés en hors texte
50 45 55 47 45 4F 54
Chiffre Valeurs signées positives Valeurs signées négatives
7 octets de faible
poids caractère code ASCII caractère code ASCII
Désigné par DISPLAY.
0 { 7B } 7D
1 A 41 J 4A
2.5.2.2. Rubriques de type numérique
2 B 42 K 4B
On distingue deux représentations.
3 C 43 L 4C
2.5.2.2.1 La représentation décimale étendue (DISPLAY) 4 D 44 M 4D
5 E 45 N 4E
Chaque chiffre occupe un octet et est représenté par son code ASCII ou EBCDIC
6 F 46 O 4F
7 G P 50
Exemple : Soit la rubrique PUISSANCE d'image 99 ; la valeur 06 est représentée (en hexadécimal, 47
ASCII) 8 H 48 Q 51
30 36 9 I 49 R 52
2 octets
Si le nombre est signé, il y a deux manières de préciser le signe : Exemple : Soit la rubrique MONTANT d'image S9(5) (l'absence de spécification entraîne "signe
superposé"); la valeur + 953 est représentée :
a) Le signe occupe une position propre
Sa valeur est donnée par le code correspondant au caractère + (soit 2B) ou - (soit 2D) ; elle est placée dans
une position séparée soit en tête de zone, soit en fin de zone ; ce choix est fixé par le programmeur. 30 30 39 35 43
Exemple :
Soit la rubrique MONTANT d'image S9(5), (le symbole S indique une rubrique signée) avec signe séparé 5 octets
en tête ; la valeur + 953 est représentée :
On remarque que la valeur du dernier octet est identique au code ASCII de la lettre C.
2B 30 30 39 35 33 Remarques : Utiliser de préférence la forme (a) car le système s'y ramène dans les opérations
arithmétiques.
6 octets : 5 chiffres + le signe
En prenant la même rubrique, mais avec une déclaration de signe séparé en fin, nous aurions obtenu 2.5.2.2.2 La représentation décimale condensée
(PACKED-DECIMAL ou COMPUTATIONAL-3)
30 30 39 35 33 2B
Pour gagner de la place sur les supports et accélérer les traitements, il peut être utile de placer deux codes
numériques par octet ; en effet, le quartet de gauche dit hors-texte, est identique pour tous les chiffres et
vaut ‘3’ en ASCII et ‘F’ en EBCDIC.
b) Le signe n'occupe pas de position séparée
Dans ce cas, la codification du signe est "superposée", à celle du chiffre de plus faible ou de plus fort Exemple : Soit la rubrique MONTANT d'image 9(5) avec représentation décimale condensée ; la
poids (par analogie avec les cartes perforées, on parle de "sur-perforation"). valeur 953 est représentée

2.5.4 Le séparateur décimal :
00 95 3F "F" pour non signée
Pour séparer la partie entière de la partie fractionnaire d'un nombre on utilise le point (cf Littéraux
3 octets numériques au chap. 1 § 4.2.1.). La représentation de ce point au niveau du format interne d'une donnée
numérique n'est pas utile. Il suffit d'indiquer au système la position virtuelle de ce séparateur ; ceci se fait
Le premier chiffre est rajouté par le système pour compléter le premier octet ; il peut être quelconque et dans la description de l'image de la rubrique à l'aide du symbole V.
n'intervient pas dans les traitements ; seuls les 5 chiffres de droite, dûment déclarés, seront pris en compte
(sauf cas particuliers). Exemple :
Soit la rubrique MONTANT d'image S9(5)V99, en représentation décimale étendue avec signe séparé
Si la rubrique est signée, la codification du signe occupe le dernier demi-octet de la zone ; elle vaut 'C' en tête ; la valeur + 20.5 est représentée par :
pour + et 'D' pour -. Marque
décimale
Exemple : Soit la rubrique MONTANT d'image S9(5) avec représentation décimale condensée. virtuelle
2B 30 30 30 32 30 35 30
La valeur + 953 est représentée :
00 95 3C 8 octets (dont aucun pour la marque décimale)
3 octets
Remarques :
A noter que sur cet exemple le nombre de positions est pair et donne un nombre entier d'octets. - Le symbole V est unique au niveau d'une description d'une image ; s'il est omis, il est supposé être à
droite et l'image correspond alors à celle d'un nombre entier.
Remarques : - Si la rubrique doit être visualisée (sur écran ou sur papier), il est nécessaire de faire figurer le point au
niveau de l'affichage ; pour cela on utilise des rubriques spéciales de type numérique édité étudiées
- Une rubrique de type numérique, non signée, sera toujours considérée comme contenant un nombre ultérieurement.
positif, quelle que soit la représentation utilisée.
- Sur la plupart des ordinateurs on dispose d'instructions machine permettant d'effectuer des opérations
arithmétiques sur des nombres représentés en format binaire ou en format décimal condensé ; les nombres
en format décimal étendu doivent être d'abord être convertis dans l'un des deux formats précédents.
3. Règles d'alignement
2.5.3 Longueur d'une rubrique :

Ces règles sont appliquées chaque fois que l'on mémorise une valeur dans une rubrique. Le choix de l'une
des deux règles dépend du type de la rubrique élémentaire qui "reçoit" la valeur.
Elle dépend de la représentation interne choisie et de l'image
- Format binaire --> Longueur : 4 octets 3.1. Règle d'alignement numérique

- Rubrique de type non numérique, N symboles indiqués dans l'image --> longueur : N octets
- Représentation décimale étendue, sans signe ou avec signe superposé,
N chiffres indiqués --> Longueur N octets Elle s'applique si la rubrique réceptrice est de type numérique ou numérique éditée. La valeur est
- Représentation décimale étendue, signe séparé, N chiffres indiqués --> Longueur : N + 1 octets alignée sur la marque décimale ; si la zone est trop grande, elle est complète vers ses extrémités par des
- Représentation décimale condensée, N symboles indiqués (y compris le symbole S si la rubrique zéros ; si elle est trop petite, la valeur est tronquée à l'une ou l'autre des extrémités.
est signée)
Si N est pair --> Longueur : N/2 octets Exemple :
Si N est impair --> Longueur : (N + 1)/ 2 octets Soit la rubrique R1 d'image 9(2)V9 ; indépendamment de la représentation interne, elle peut contenir
un nombre de 3 chiffres dont 2 pour la partie entière.

Valeur transférée Valeur obtenue 5. Règles de ponctuation
21 21.0
1.5 01.5
1.67 01.6 4.1. Un ou plusieurs espaces consécutifs servent à séparer deux mots.
462.1 62.1
520.02 20.0 4.2. La virgule, le point-virgule et le point, utilisés comme séparateurs, doivent être suivis d'un espace et
ne peuvent être utilisés que lorsque le format des instructions l'autorise.
4.3. Les parenthèses s'utilisent toujours par paires.

3.2. Règle d'alignement non numérique :
4.4. Les guillemets délimitent les littéraux non numériques :
Elle s'applique si la rubrique réceptrice est de type alphabétique ou alphanumérique ou - le guillemet "ouvrant" doit être précédé d'un espace
alphanumérique édité. La valeur est alignée sur la position d'extrême gauche de la rubrique réceptrice ; - le guillemet "fermant" doit être suivi d'un espace, d'une virgule, d'un point-virgule ou d'un point.
si la zone est trop grande, la valeur est complétée vers l'extrémité droite par des caractères "espaces" ; si
elle est trop petite, la valeur est tronquée à droite. Les guillemets s'utilisent par paires (sauf lorsqu'un littéral s'écrit sur 2 lignes : cf § 5)
Exemple :
Soit la rubrique R2 d'image X(5) 6. Feuille de saisie COBOL
Elle comprend cinq zones, respectivement de gauche à droite :

Valeur Transférée Valeur obtenue - zone de numérotation (col. 1 à 6) (inutilisée, ou de contenu quelconque)
"VILLES" "VILLE" - zone indicateur (col. 7 )
"BLANC" "BLANC" - zone A (col. 8 à 11) ; la colonne 8 est dite marge A
"BEAU" "BEAUb" - zone B (col. 12 à 72) ; la colonne 11 est dite marge B
- zone d'identification (col. 73 à 80) (inutilisée)
Les en-têtes de division, section, paragraphes et de description de fichier commencent en zone A. Les
instructions et clauses s'écrivent en zone B. Une instruction peut être rédigée sur plusieurs lignes. Il est
4. Unicité de référence possible d'inclure des lignes totalement vierges à tout endroit du programme.
La zone indicateur (col. 7) assure trois fonctions selon le caractère qui y est écrit :
Un même mot-utilisateur pet être utilisé pour désigner des données différentes, sous réserve qu’ellea - continuation d'un littéral non numérique portant jusqu’à la col.72 de la ligne précédente
appartiennent à des groupes différents. Pour les référencer sans ambigüité, on qualifiera leur nom par
celui du groupe, ou du fichier les contenant. La même disposition s’applique aux paragraphes de sections * ligne commentaire : Le contenu de cette ligne ne sera pas pris en compte par le compilateur ;
différentes et aux textes-source de bibliothèques différentes. cette ligne ne sert qu'à améliorer la lisibilité et la compréhension du programme.
nd-1 IN nd-2 ... IN fich-1

OF OF / idem * ; de plus saut de page avant l’impression du commentaire
Exemple D ou d instrument de mise au point : Cette fonction sera étudiée plus tard.
01 IDENTITE.
02 NOM PIC X(20).
02 PRENOM PIC X(15). 0 1 2 3 4 5 6 7 8
Colonne
12345678901234567890123456789012345678901234567890123456789012345678901234567890
01 INDIV.
02 NOM PIC X(20). Marge A B
02 PRENOM PIC X(15). * CECI EST UNE LIGNE DE COMMENTAIRES
. 77 Exemple pic x(75) value "ce littéral non-numérique va jusqu’en colonne72
. - " et se prolonge par la suite"
MOVE NOM OF IDENTITE TO NOM OF INDIV.
Cobol Concepts fondamentaux 2-9 Cobol Concepts fondamentaux 2 - 10

*---------------------------------------------------------------
Exemple de programme COBOL FD MOUV
LABEL RECORD STANDARD.
IDENTIFICATION DIVISION. 01 M-ENR.
PROGRAM-ID. PUBLI. 05 M-CD-OPR PIC X.
05 M-DONNEES.
AUTHOR. GR. 10 M-CD-ADR PIC 9(6).
***--------------------------------------------------- 10 M-CD-ADRX REDEFINES M-CD-ADR PIC X(6).
10 M-CLE PIC X.
ENVIRONMENT DIVISION. 10 M-NM-PRNM PIC X(25).
10 M-ADR PIC X(40).
CONFIGURATION SECTION. 10 M-CD-PSTL PIC 9(5).
SOURCE-COMPUTER. MWB. 10 M-VL PIC X(25).
OBJECT-COMPUTER. MWB. *---------------------------------------------------------------
INPUT-OUTPUT SECTION. FD NOUBASE
FILE-CONTROL. LABEL RECORD STANDARD.
01 N-ENR PIC X(102).
SELECT BASE ASSIGN TO BASABON
ORGANIZATION RECORD SEQUENTIAL *---------------------------------------------------------------
ACCESS SEQUENTIAL FD ERREUR
FILE STATUS IS BS. LABEL RECORD STANDARD.
01 E-ENR PIC X(103).
SELECT MOUV ASSIGN TO MAJABON
ORGANIZATION RECORD SEQUENTIAL *---------------------------------------------------------------
ACCESS SEQUENTIAL WORKING-STORAGE SECTION.
FILE STATUS IS MS. * Code etat du fichier BASE
77 BS PIC XX.
SELECT NOUBASE ASSIGN TO NEWABON * Code etat du fichier MOUV
ORGANIZATION RECORD SEQUENTIAL 77 MS PIC XX.
ACCESS SEQUENTIAL * Code etat du fichier NOUBASE
FILE STATUS IS NS. 77 NS PIC XX.
* Code etat du fichier ERREUR
SELECT ERREUR ASSIGN TO ERRABON 77 ES PIC XX.
ORGANIZATION LINE SEQUENTIAL * Zone de travail
ACCESS SEQUENTIAL 77 QUOTIENT PIC 9(6) COMP.
FILE STATUS IS ES. * Rang de la lettre de controle
***--------------------------------------------------- 77 RG-LTR PIC 99 COMP.
88 CORRECTE VALUE 1 THRU 23.
DATA DIVISION. * Rang du message d'erreur
77 RG-ERR PIC 9.
FILE SECTION.
* Definition des cles de controle
*--------------------------------------------------------------- 01 LETTRES PIC X(23) VALUE "ABCDEFGHJKLMNPQRSTVWXY".
FD BASE 01 TABCLE REDEFINES LETTRES.
LABEL RECORD STANDARD. 05 CLE PIC X OCCURS 23.
01 B-ENR.
* Code-adresse * Definition des messages d'erreur
05 B-CD-ADR PIC 9(6). 01 LST-MSG.
* Cle de controle 05 FILLER PIC X(30) VALUE "(1) CLE ERRONEE".
05 B-CLE PIC X. 05 FILLER PIC X(30) VALUE SPACES.
* Nom-Prenom 05 FILLER PIC X(30) VALUE SPACES.
05 B-NM-PRNM PIC X(25). 05 FILLER PIC X(30) VALUE "(4) CODE OPER. ERRONE".
* Adresse 05 FILLER PIC X(30) VALUE "(5) DONNEE INCORRECTE".
05 B-ADR PIC X(40). 05 FILLER PIC X(30) VALUE SPACES.
* Code Postal 05 FILLER PIC X(30) VALUE SPACES.
05 B-CD-PSTL PIC 9(5). 05 FILLER PIC X(30) VALUE SPACES.
* Ville 01 TABERR REDEFINES LST-MSG.
05 B-VL PIC X(25). 05 MSGERR PIC X(30) OCCURS 8.
Cobol Concepts fondamentaux 2 - 11 Cobol Concepts fondamentaux 2 - 12

ELSE MOVE 4 TO RG-ERR PERFORM ERR.
***--------------------------------------------------- PERFORM LIRMAJ.
PROCEDURE DIVISION. LIRBAS. READ BASE.

DECLARATIVES.
LIRMAJ. READ MOUV.
LECT SECTION. USE AFTER STANDARD ERROR PROCEDURE ON INPUT.
L0. IF MS = 10 OR BS = 10 NEXT SENTENCE * Validation de la cle
ELSE CALCLE. IF M-CD-ADRX NOT NUMERIC
DISPLAY "Erreur d'entrée-sortie en lecture" UPON CONSOLE MOVE ZERO TO RG-LTR
DISPLAY "Code d'etat des fichiers:" UPON CONSOLE MOVE 5 TO RG-ERR
DISPLAY "BASABON = " BS " MAJABON = " MS UPON CONSOLE ELSE
CLOSE MOUV BASE NOUBASE ERREUR. DIVIDE 23 INTO M-CD-ADR GIVING QUOTIENT
STOP RUN. REMAINDER RG-LTR
SUBTRACT RG-LTR FROM 23 GIVING RG-LTR
ECR SECTION. USE AFTER STANDARD ERROR PROCEDURE ON OUTPUT. IF CLE(RG-LTR) NOT = M-CLE
E0. MOVE ZERO TO RG-LTR
DISPLAY "Erreur d'entrée-sortie en ecriture" UPON CONSOLE MOVE 1 TO RG-ERR.
DISPLAY "Code d'etat des fichiers:" UPON CONSOLE
DISPLAY "NOUBASE = " NS " ERREUR = " ES UPON CONSOLE * Deroulement de BASE
CLOSE MOUV BASE NOUBASE ERREUR. TRAIT. IF M-CD-ADR > B-CD-ADR PERFORM COPIE PERFORM LIRBAS
STOP RUN. ELSE PERFORM NONSUP.
END DECLARATIVES. * Ecriture des erreurs

ERR. WRITE E-ENR FROM M-ENR. WRITE E-ENR FROM MSGERR(RG-ERR).
PUBLI-MAIN SECTION.
* Ecriture de NOUBASE
* Initialisation du traitement COPIE. WRITE N-ENR FROM B-ENR.
INIT.
OPEN INPUT BASE MOUV * Ajout d'un mouvement en creation
OUTPUT NOUBASE ERREUR. AJOU.
PERFORM LIRBAS. *------ Il faudrait controler la validite des rubriques!!
PERFORM LIRMAJ. WRITE N-ENR FROM M-DONNEES.
* Traitement majeur NONSUP. IF M-CD-ADR = B-CD-ADR

CORPS. PERFORM EGAL
PERFORM PRINCIP UNTIL BS NOT = ZERO OR MS NOT = ZERO. ELSE IF M-CD-OPR = "C"
PERFORM FINBAS UNTIL BS NOT = ZERO. PERFORM AJOU
PERFORM FINMAJ UNTIL MS NOT = ZERO. ELSE MOVE 4 TO RG-ERR PERFORM ERR.
* Finalisation du traitement PERFORM LIRMAJ.

FIN.
CLOSE BASE MOUV NOUBASE ERREUR. * Code-adresse existant dans BASE
DISPLAY "FIN DE PUBLI" UPON CONSOLE. EGAL. IF M-CD-OPR = "S"
STOP RUN. NEXT SENTENCE
ELSE IF M-CD-OPR = "M"
*--------------------------------------------------------------- PERFORM MODIF
SPECIALE SECTION. PERFORM COPIE
ELSE PERFORM COPIE
* Repetitive principale MOVE 4 TO RG-ERR PERFORM ERR.
PRINCIP. PERFORM CALCLE. IF CORRECTE PERFORM TRAIT PERFORM LIRBAS.
ELSE PERFORM ERR PERFORM LIRMAJ.
* Chargement des champs a modifier
* Traitement final de BASE MODIF. IF M-NM-PRNM NOT = SPACES MOVE M-NM-PRNM TO B-NM-PRNM.
FINBAS. PERFORM COPIE PERFORM LIRBAS. IF M-ADR NOT = SPACES MOVE M-ADR TO B-ADR.
IF M-CD-PSTL NOT = SPACES MOVE M-CD-PSTL TO B-CD-PSTL.
* Traitement final de MOUV IF M-VL NOT = SPACES MOVE M-VL TO B-VL.
FINMAJ. IF M-CD-OPR = "C" PERFORM AJOU
Cobol Concepts fondamentaux 2 - 13 Cobol Concepts fondamentaux 2 - 14

Cobol Concepts fondamentaux 2 - 15
Le paragraphe SPECIAL-NAMES a le format suivant (partiel).
LES INSTRUCTIONS DU NOYAU SPECIAL-NAMES.
[définition des mnémoniques du réalisateur]

[ définition de l’alphabet]
[CURRENCY SIGN IS lit-1]
1. La division IDENTIFICATION [DECIMAL-POINT IS COMMA]
[NUMERIC SIGN IS TRAILING SEPARATE]
Elle identifie le programme [CONSOLE IS CRT]
♦ Le symbole monétaire (CURRENCY SIGN), par défaut $, doit être un caractère autre que :
IDENTIFICATION DIVISION. un chiffre, une minuscule, un symbole arithmétique ou de ponctuation, les lettres A, B, C, D, P, R, S, V, X,
PROGRAM-ID. nom-de-programme. Z.
[AUTHOR. [rubrique-commentaire]]
[INSTALLATION. [rubrique-commentaire]] Exemple : CURRENCY SIGN IS "F".
[DATE-WRITTEN. [rubrique-commentaire]]
[DATE-COMPILED. [rubrique-commentaire]] ♦ La clause DECIMAL-POINT IS COMMA permet de permuter le rôle du point et de la virgule dans une
[SECURITY. [rubrique-commentaire]] clause PICTURE et dans les littéraux numériques.
[REMARKS. [rubrique-commentaire]]
Les clauses [NUMERIC SIGN IS TRAILING SEPARATE] et [CONSOLE IS CRT] relèvent du dialecte
Microfocus.
Tous les paragraphes autres que PROGRAM-ID sont obsolètes.
Généralement, seuls les 8 premiers caractères du nom du programme sont évalués.

L'INPUT-OUTPUT SECTION est détaillée dans le chapitre des fichiers.
ANS85 introduit un second format pour PROGRAM-ID
PROGRAM-ID. nom-de-programme [IS [COMMON] [INITIAL] PROGRAM].

3. La division des données
COMMON: uniquement pour les programmes contenus
INITIAL: programme remis à son état initial à chaque appel.
Cf Communication inter-programme Elle contient la description de toutes les informations manipulées par le programme.
3.1. Organisation générale :
DATA DIVISION.
2. La division ENVIRONMENT FILE SECTION.
rubrique-de-description-de-fichier
Elle contient la description du système utilisé et des informations relatives à la gestion des entrées- rubrique-de-description-d'article ...
sorties.
ENVIRONMENT DIVISION. WORKING-STORAGE SECTION.

CONFIGURATION SECTION.
SOURCE-COMPUTER. ordinateur-origine [WITH DEBUGGING MODE]. rubrique-de-description-de-niveau-77
OBJECT-COMPUTER. ordinateur-objet. rubrique-de-description-d'article ...
[SPECIAL-NAMES. [rubrique-des-noms-spéciaux]]
[INPUT-OUTPUT SECTION.
FILE-CONTROL. rubrique-de-gestion-de-fichier ....
[I-O-CONTROL. [rubrique-de-gestion-d'entrée-sortie]]] LINKAGE SECTION.
rubrique-de-description-de-niveau-77
En ANS85, cette division est facultative. rubrique-de-description-d'article ...
Trois sections :
♦ FILE SECTION : description des fichiers (voir chap. 6)
Cobol Le Noyau 3-1 Cobol Le Noyau 3-2

♦ WORKING-STORAGE SECTION : description des données internes au programme. 3.3. La clause PICTURE
♦ LINKAGE SECTION : description des paramètres lorsque le programme est un sous-programme Elle sert à définir le format externe ou image d'une rubrique élémentaire (nombre de chiffres, position de la
(détaillée au : Communications inter-programmes). marque décimale, etc...)
Signalons toutefois qu'à quelques exceptions près, la description d'une rubrique se fait de façon
identique dans les trois sections. Dans les paragraphes qui suivent, nous nous placerons en priorité au PICTURE
niveau de la WORKING-STORAGE SECTION. IS Format
PIC
Ces sections peuvent être suivies de la COMMUNICATION SECTION et de la REPORT SECTION si
l'on utilise respectivement les modules de communication et d'édition , ainsi que de sections Le format est constitué d'une suite de symboles décrits ci- dessous (liste partielle) :
spécifiques aux dialectes (SCREEN, LOCAL-STORAGE, ...).
• 9 : représente un chiffre
• V : indique la position virtuelle du séparateur décimal ; unique dans un format

3.2. Description générale d'une rubrique
• S : indique une donnée signée ; unique dans un format, il doit être le premier symbole du format
Elle est de la forme :
• X : représente un caractère quelconque
nd
numéro-de-niveau [[clause] ...] . • . : matérialise le séparateur décimal : le format interne de la rubrique doit être le format décimal
FILLER étendu ; son utilisation exclut celle de V et de S.
♦ Les 3 premiers symboles permettent de décrire des données de type numérique : le symbole X permet de
♦ le numéro de niveau est compris entre 1 à 49 ou vaut 77, 66 ou 88. décrire des données de type alphanumérique (chaînes de caractères) ; la présence du symbole . dans un
format indique une donnée de type numérique édité.
♦ nd : nom de donnée, identifie la rubrique.
♦ La description du format peut comporter jusqu'à 30 symboles ;
♦ le mot clé FILLER remplace le nom d'une rubrique qui n'est jamais référencée exeplicitement par les
instructions du programme ; il peut être utilisé dans plusieurs descriptions de rubriques du même ♦ L'emploi de facteurs de répétition est conseillé : X(5) au lieu de XXXXX
programme.
♦ Cette clause est obligatoire pour toutes les rubriques élémentaires. Elle est interdite pour les index.
La description d'une rubrique structurée se réduit au couple (n° de niveau, nom) ; les rubriques élémentaires
doivent être détaillées par des clauses (sauf les index). Exemple :
Exemple : 1) PIC X(5) chaînes de 5 caractères

02 DATE-NAISSANCE.
03 JOUR .... .
2) PIC 9(3) entier de 3 chiffres non signé
03 MOIS .... .
03 ANNEE ... .
3) PIC 99V9 nombre décimal non signé ; 2 chiffres pour la partie entière,
1 chiffre pour la partie décimale
4) PIC S9(5) entier de 5 chiffres, signé
5) PIC 99.9 nombre décimal en format numérique édité ; le séparateur décimal est
matérialisé par un point.
Remarquons que la rubrique de l'exemple 5 est de classe alphanumérique (du fait de la présence du
point) alors que les rubriques des exemples 2 à 4 sont de type numérique.
Il existe d'autres symboles pour décrire un format numérique édité (Cf Module Edition)

Capacité maximum d'une rubrique :
3.4. La clause USAGE
• 18 chiffres, signe exclu, pour une rubrique numérique.
Elle permet de préciser le format interne d'une rubrique.
• 31 caractères pour une rubrique numérique éditée
DISPLAY
• 32768 caractères pour une rubrique alphanumérique COMPUTATIONAL
USAGE IS BINARY ou autres, suivant dialectes
COMPUTATIONAL-3
PACKED-DECIMAL
Modification de Référence
En ANS85, il est possible de référencer une sous-chaîne d'une donnée alphanumérique:

♦ DISPLAY : représentation codée de type non numérique ou décimale étendue (cf. §2.5.2.2.) ; valeur
nd(début:[longueur]) désigne la sous-chaîne de nd débutant à la position début
et comportant longueur caractères. prise par défaut
Le rang du premier caractère est 1.
début et longueur est une expression numérique quelconque ♦ COMPUTATIONAL-3 ou COMP-3 ou PACKED-DECIMAL: représentations décimales condensées
Si longueur n'est pas précisée, elle porte jusqu'au dernier caractère de nd. signées.
Si nd est de type autre qu'alphanumérique, on le considère comme redéfini dans une donnée de ce type de la ♦ COMPUTATIONAL-1 (COMPUTATIONAL-2) = virgule flottante simple (double) précision
même taille que nd.
♦ COMPUTATIONAL ou COMP ou BINARY : format binaire sur 32 bits (moins de 10 chiffres dans la
Exemple PICTURE)
77 DONNEE PIC X(10) VALUE "abcdefghij". Cette clause peut s'appliquer à une rubrique élémentaire ou structurée ; dans ce cas, elle est valable pour
toutes les rubriques élémentaires qui composent la rubrique structurée.
DONNEE(5:2) renvoie "ef" tout comme DONNEE(I:I-3) si I vaut 5

DONNEE(5:) renvoie "efghij"
3.5. La clause REDEFINES
Elle permet de redéfinir la structure d'une rubrique (et non sa valeur).
n°-de-niveau nd1 REDEFINES nd2
Règles du langage :
♦ cette clause doit suivre immédiatement nd1.
♦ nd1 et nd2 doivent être de même niveau
♦ nd2 ne peut contenir la clause REDEFINES mais nd2 peut être subordonné à une rubrique qui contient
cette clause.
♦ cette clause est interdite pour les rubriques de niveau 01 de la FILE SECTION.
♦ nd1 peut être remplacé par FILLER

Principe :
La redéfinition de la rubrique nd2 commence à nd1 et se termine lorsqu'un numéro de niveau inférieur ou Il sera défini soit dans le paragraphe SPECIAL-NAMES, soit en DATA DIVISION. Dans ce dernier
égal à celui de nd1 est rencontré. cas, il est repéré par un numéro de niveau 88.
Exemple : 01 MOUVEMENT.
02 D1. 02 INDIC PIC 9(6).
04 NOM PIC X(20). 02 TYP PIC 9.
04 PRENOM PIC X(20). 88 LECTURE VALUE 1.
02 D2 REDEFINES D1. 88 MODIF VALUE 2.
03 ADRESSE PIC X(20). 88 SUPPRES VALUE 4.
03 C-POSTAL PIC X(5).
03 LOCALITE PIC X(15). IF LECTURE................
ELSE IF MODIF...........
En cas de redéfinitions multiples, c'est toujours la rubrique d'origine qui est citée en nd2.
L'intérêt des noms-conditions est donc d'améliorer la lisibilité du pg ; ils permettent aussi de simplifier
03 DATE-1. l'énoncé de conditions, car un seul nom-condition peut être assigné à plusieurs valeurs en particulier
04 JOUR-1 PIC 99. grâce à la locution THRU :
04 MOIS-1 PIC 99.
04 AN-1 PIC 99.
03 DATE-2 REDEFINES DATE-1 PIC 9(6).
03 DATE-3 REDEFINES DATE-1. Format général :
04 FILLER PIC X.
04 JOUR-3 PIC 9(3). VALUE IS THROUGH
04 AN-3 PIC 99. 88 nom-condition littéral-1 littéral-2 …
VALUES ARE THRU
Sauf si les rubriques nd1 et nd2 sont de niveau 01, les longueurs de la rubrique de redéfinition et de la
rubrique d'origine doivent être égales.
Exemples : VALUES ARE 1 2 16.
VALUES ARE 4 THRU 12.
VALUES ARE 5 THRU 9 13 17.
3.6. La clause VALUE
Elle permet de préciser la valeur initiale d'une rubrique ; une rubrique déclarée sans valeur initiale contient
une valeur quelconque non définie. Un nom-condition doit suivre la description de la rubrique à laquelle il est associé ; cette dernière peut
être quelconque à l'exception de :
VALUE IS littéral
• un autre nom-condition
Le littéral doit être du même type que la rubrique. • une rubrique de niveau 66 (clause RENAMES)
• un index
Cette clause est interdite : • un groupe contenant des données avec JUSTIFIED, SYNCHRONIZED, et USAGE (autre que
DISPLAY).
• dans la FILE SECTION
Si la référence à une variable conditionnelle nécessite l'indexation ou l'indiçage, la référence à l'un
• à l'intérieur d'une rubrique de redéfinition. quelconque de ses noms-conditions la nécessite de la même façon.
Exemple Les règles d'alignement appliquées sont celles décrites au chapitre 2 § 3.
02 D1 PIC X(5) VALUE "DEBUT".
03 N1 PIC 99V9 VALUE 5.2.
Utilisation des constantes figuratives
Une seconde utilisation de la clause VALUE permet la définition de noms-conditions.
Ce sont des constantes identifiées par des mots clés ; elles ont des valeurs particulières.
Un nom-condition est une référence symbolique assignée à une ou plusieurs valeurs spécifiques d'une
variable donnée, ou à un inverseur. ZERO
ZERO représente soit "0", soit un ou plusieurs caractères "0" selon le contexte

ZEROES 3.8. La clause SYNCHRONIZED
SPACE représente un ou plusieurs caractères espace Elle permet de préciser l'alignement d'une rubrique élémentaire sur les bornes d'adressage spécifiques de la
SPACES mémoire de l'ordinateur à savoir :
- une adresse multiple de 2 pour un mot

HIGH-VALUE représente un ou plusieurs caractères de rang le plus élevé dans l'ordre de
HIGH-VALUES classement ASCII. La valeur la plus élevée est FF hexadécimale. - une adresse multiple de 4 pour un double mot.
LOW-VALUE représente un ou plusieurs caractères de rang le plus bas dans l'ordre de SYNCHRONIZED LEFT
LOW-VALUES classement ASCII. La valeur la plus basse est 00 hexadécimal. SYNC RIGHT
QUOTE représente un ou plusieurs caractères guillemets (") ; le mot QUOTE

QUOTES ou QUOTES ne peut être utilisé à la place d'un guillemet dans un programme origine
pour borner un littéral non- numérique. Ainsi QUOTE ABD QUOTE est une façon Elle ne peut s'utiliser que pour des rubriques élémentaires de format interne binaire.
incorrecte d'écrire le littéral non numérique "ABD".
Les options LEFT et RIGHT sont équivalentes.
ALL littéral représente une ou plusieurs fois le littéral non- numérique.
Les rubriques de niveau 1 et 77 commencent à des limites de mot.
• La première (ZERO) peut s'appliquer à des rubriques de type numérique ou non numérique ; les autres
sont de type non numérique. 3.9. La clause JUSTIFIED
• Elles s'écrivent sans guillemet. Elle permet, associée à une zone de réception alphabétique ou alphanumérique, de force l'alignement à
droite, plutôt qu'à gauche (alignement standard).
• Contrairement aux autres constantes, leur longueur dépend de la longueur des rubriques qu'elles servent
à initialiser. JUSTIFIED RIGHT
JUST
Exemples : D1 PIC X(5) VALUE "0". 0bbbb
D1 PIC X(5) VALUE ZERO. 00000
D1 PIC X(5) VALUE ALL "-" -----
3.10. La clause SIGN
Elle permet de préciser la représentation interne du signe pour une rubrique numérique de format
décimal étendu. (cf.§ 2.5.2.2-2).
3.7. La clause BLANK
Elle permet de remplacer la valeur nulle d'une rubrique de type numérique ou numérique édité par des
espaces. [SIGN IS] LEADING [SEPARATE CHARACTER]
Le format interne de la rubrique doit être DISPLAY. TRAILING
BLANK WHEN ZERO
ZEROS ♦ Elle peut être spécifiée pour un groupe.
ZEROES
♦ le format externe (PICTURE) doit comporter le symbole S
La rubrique sera considérée comme étant du type numérique édité.
♦ la clause indique que le signe occupe dans la représentation interne une position séparée à gauche
(LEADING) ou à droite (TRAILING).
Exemple : D1 PIC 9(5) BLANK ZERO.
♦ l'absence de cette clause pour une rubrique numérique signée, de format interne décimal étendu, entraîne
Si D1 est affecté d'une valeur nulle, la rubrique sera remplie par 5 espaces. une représentation du signe superposée avec celle du chiffre de droite.
Exemple : D1 PIC S999V9 SIGN TRAILING SEPARATE
Cobol Le Noyau 3-9 Cobol Le Noyau 3 - 10

♦ les parenthèses
Les opérateurs arithmétiques sont, dans l'ordre décroissant des priorités :

3.11. La clause RENAMES
♦ les opérateurs unaires + et -
Elle permet un regroupement alternatif des rubriques. ♦ l'exponentiation **
♦ la multiplication * et la division /
66 nd-1 RENAMES nd-2 THROUGH nd-3 ♦ l'addition + et la soustraction -
THRU
Les principales règles de syntaxe à respecter sont au nombre de deux :
♦ Interdite aux niveaux 01, 66, 77, 88.
1. deux opérandes (variable ou constante) sont toujours reliés par un opérateur arithmétique ; toutes les
Exemple: 01 EMPLOYE. opérations doivent être spécifiées explicitement.
02 NOM PIC X(20).
02 PRENOM PIC X(15). 2. deux opérateurs arithmétiques ne se suivent jamais sauf si le second est un opérateur unaire.
02 RUE PIC X(30).
Exemples : (A + B * C ) / 3.5
02 CP PIC 9(5).
- A / - (B + 1)
02 VILLE PIC X(25).
66 IDENTITE RENAMES NOM THRU PRENOM.
66 ADRESSE RENAMES RUE THRU VILLE. Remarques :
1) Le même symbole / sert à spécifier la division réelle et la division entière ; le choix est déterminé par
le type des objets manipulés : / indique une division entière si et seulement si tous les opérandes
(y compris celui qui sera affecté de la valeur finale) sont de type entier.
3.12. Exemple de synthèse
2) Pour évaluer la valeur d'une expression arithmétique, le processeur conserve les valeurs
intermédiaires avec une précision maximale ; seul le résultat final sera, tronqué ou arrondi en
77 N USAGE COMP. fonction du format externe de la rubrique affectée.
77 TOTAL-TTC PIC 9(5).99 BLANK ZERO.
01 DONNEE-1. 3) Les opérandes n'ont pas besoin d’être du même format interne ; les conversions de format sont faites
05 CODE-ART-1PIC X(5) VALUE SPACE. automatiquement.
05 PRIX-UNIT-1 PIC 9(4)V99 COMP-6.
05 QUANTITE-1 PIC S9(3) COMP-3 VALUE +0.
05 QUANTITE-2REDEFINES QUANTITE-1 PIC S9V99 COMP-3.
05 COEF-1 PIC S99V99 SIGN TRAILING SEPARATE.
4.2. Valeurs arrondies
Le résultat d'un calcul peut comporter davantage de chiffres que de positions prévues au niveau de la
4. La division PROCEDURE rubrique affectée.
Rappelons que l'affectation d'une valeur numérique se fait conformément à la règle d'alignement numérique
Elle contient la description des traitements à effectuer sur les informations spécifiées dans la division des énoncée au chap. 2 paragraphe 3 ; s'il y a débordement à gauche la valeur sera tronquée ; s'il y a
données. débordement à droite, la valeur sera tronquée ou arrondie selon que le programmeur aura précisé ou non la
locution ROUNDED. Cette locution est à spécifier pour chaque instruction dont le résultat doit être arrondi.
4.1. Expressions arithmétiques L'arrondi est déterminé de la manière suivante :
Une expression arithmétique est une combinaison syntaxiquement correcte de symboles pris dans l'ensemble ♦ si le premier chiffre tronqué vaut de 0 à 4, les chiffres restants ne sont pas modifiés.
suivant :
♦ si ce chiffre vaut de 5 à 9, on rajoute une unité au dernier chiffre restant.
♦ les noms de données identifiant des rubriques élémentaires de type numérique
♦ les constantes de type numérique Exemple : Soit A PIC 99V99
♦ les opérateurs arithmétiques
Le résultat 5.1772 donne sans arrondi 5.17
Cobol Le Noyau 3 - 11 Cobol Le Noyau 3 - 12

avec arrondi 5.18 NOM = "DUPONT"
Le résultat 5.1729 donne avec ou sans arrondi 5.17 A - B = RESUL + 15
Le résultat 5.195 donne sans arrondi 5.19
avec arrondi 5.20 On distingue deux algorithmes de comparaison :
Remarque : Dans l'évaluation d'une expression arithmétique, l'arrondi ne porte que sur le résultat final. 1) Comparaison numérique :
Elle compare les valeurs algébriques de deux données de type numérique ; la longueur de ces
4.3. Expressions conditionnelles données n'est pas significative. Une donnée non signée est considérée comme positive.
Une expression conditionnelle est une expression dont le résultat est VRAI ou FAUX. 2) Comparaison non numérique :
Elle opère sur deux données de type non numérique ; par extension, l'une des deux peut être
4.3.1. Expressions conditionnelles simples numérique à condition qu'elle soit entière et déclarée en mode DISPLAY. L'algorithme compare les
deux données caractère par caractère, de gauche à droite, jusqu'à trouver une différence ou la fin
des rubriques. Le résultat de la comparaison est déterminé comme suit :
4.3.1.1. Relation
- en cas de différence, c'est la donnée contenant le caractère de plus fort poids (cf. table du code
Une relation permet d'exprimer la comparaison de deux objets ; ces objets sont des données constantes ou ASCII) qui est considérée comme étant la plus grande
variables ; l'un des deux doit être obligatoirement une donnée variable.
- sinon, les deux données ont des valeurs égales.
Une relation s'écrit :
Si les deux données sont de longueurs différentes, la plus courte est considérée comme étant
complétée à droite d'espaces jusqu'à concurrence de la plus longue.
nd1 Opérateur de nd2
constante 1 relation constante 2
exp-arith 1 exp-arith 2 Exemples
1) Soient A PIC X(5).

B PIC X(5).
Valeur de A Valeur de B Résultat

TOTOb TOTOb Egalité
TOTOb TOTbb A>B
Opérateurs de relations Signification Négation TOTOb TObvb A>B
IS [NOT] GREATER THAN strictement supérieur inférieur ou égal 2) Soit A PIC X(5).
IS [NOT] > C PIC X(3).
IS [NOT] LESS THAN strictement inférieur supérieur ou égal Valeur de A Valeur de C Résultat
IS [NOT] < TOTbb TOT Egalité
TOTOb TOT A>C
IS [NOT] EQUAL TO égal différent TOTOb XYb A<C
IS [NOT] =
4.3.1.2. Test de classe
IS GREATER THAN OR EQUAL TO Un test de classe permet d'exprimer le fait que la valeur d'une donnée est de classe numérique ou
IS >= alphanumérique.
♦ Un test de classe numérique ne peut s'appliquer qu'à une rubrique élémentaire déclarée en USAGE
IS LESS THAN OR EQUAL TO DISPLAY.
IS <= ♦ Un test de classe alphabétique ne peut pas s'appliquer à une rubrique de type numérique.
Exemples
A < 10
NOM = NOM-REF

Il s'écrit : où condition peut être :
NUMERIC ♦ une condition simple

nd IS [NOT] ♦ une condition simple négative
ALPHABETIC ♦ une condition composée
♦ une condition composée négative (i.e. une condition composée entre parenthèses et précédée de
NOT)
♦ toute combinaison de ce qui précède
Remarque :
Ex : A > B AND NOT (A = C) OR A NOT < D AND B = C
Pour effectuer un test de classe numérique, le processeur tient compte de la déclaration du signe
au niveau du format de la rubrique ; ainsi une valeur non signée dans une rubrique signée donne
Il est possible d'agréger une condition composée dans le cas où des conditions simples successives
un résultat faux ; il en est de même pour une valeur signée dans une rubrique non signée.
contiennent un même sujet et/ou un même opérateur logique, par l'omission du sujet ET de
l'opérateur.
Exemples : Soit A PIC X(5).
Ex. : A > B AND NOT < C OR D signifie
♦ Le test A ALPHABETIC donne un résultat vrai si et seulement si les 5caractères sont des lettres ((A > B) AND (A NOT < C)) OR (A NOT < D)
ou des espaces.
♦ Le test A NUMERIC donne un résultat vrai si et seulement si les 5 caractères
sont des chiffres.
4.3.1.3. Condition de signe
Elle détermine si la valeur algébrique d'une expression arithmétique est inférieure, supérieure ou égale à
zéro.
NEGATIVE
Expression arithmétique IS [NOT] POSITIVE
ZERO
4.3.1.4. Condition de nom-condition
Elle s'exprime par le simple énoncé du nom-condition :
nom-condition
Elle est vraie si la valeur courante de la variable conditionnelle associée appartient (ou est égale) à celle
attribuée au nom-condition.
4.3.2. Expressions conditionnelles complexes
Une condition simple NEGATIVE est une condition simple précédée de l'opérateur logique NOT. Elle a
pour effet d'attribuer la valeur booléenne opposée à celle de la condition simple.
Ex. : IF NOT A = B ....
Une condition COMPOSEE résulte de la conjonction de conditions par les opérateurs AND ou OR :
AND
condition condition
OR

.
4.4. Organisation de la division PROCEDURE .
ACCEPT IDENTITE
La structure de cette division est de l'une des deux formes ci-dessous :
Si la valeur lue est DUPONTbbbbJULES, la rubrique IDENTITE contient après exécution de l'ordre
a) PROCEDURE DIVISION.
DUPONTbbbbJULESbbbbb
nom de section SECTION.
espaces provenant de la clause VALUE
nom de paragraphe. phrase ... ... ...
Les options DATE et TIME permettent de lire respectivement la date et l'heure enregistrées au niveau du
b) PROCEDURE DIVISION.
système de l'ordinateur.
nom de paragraphe. phrase ... ...
♦ Pour l'option DATE, nd doit être une rubrique élémentaire de 6 chiffres, non signée,
PIC 9(6) DISPLAY ; la valeur obtenue est du format
Ceci signifie que :
AAMMJJ
Année Mois Jour
le découpage de la division en paragraphes ou en sections et paragraphes est obligatoire.
le découpage doit être complet :

♦ DAY fournit la date au format AAJJJ au format PIC 9(5)
♦ toute phrase appartient à un paragraphe explicitement déclaré.
♦ si la forme (a) est choisie, tout paragraphe appartient à une section explicitement déclarée.
♦ Pour l'option TIME, nd doit être une rubrique élémentaire de 8 chiffres, non signée
Exemple PIC 9(8) DISPLAY ; la valeur obtenue est du format hhmmsscc
PROCEDURE DIVISION. heure minutes secondes 1/100è seconde
S0 SECTION.
P1. ♦ DAY-OF-WEEK est du format PIC 9 et renvoie le rang du jour (1=lundi, 7=dimanche)
P2.
S1 SECTION.
P3
END PROGRAM. 4.6. DISPLAY
Permet d'envoyer sur un fichier de sortie un faible volume d'informations construit par juxtaposition des
valeurs des objets cités :
4.5. ACCEPT
nd1 nd2
Permet d'initialiser une rubrique à l'aide d'une valeur particulière (date ou heure) ou d'une valeur lue dans le DISPLAY .... [ WITH NO ADVANCING ]
fichier d’entrée de l'utilisateur. lit1 lit2
DATE
Format : ACCEPT nd FROM DAY L'impression n'incluant aucune conversion de format, les valeurs numériques doivent être codées en ASCII.
TIME
DAY-OF-WEEK
Ex. : DISPLAY "NOM : " NM " PRENOM : " PRNM.
nd est une rubrique en mode DISPLAY d'au plus 71 caractères ; seules les positions correspondant à
des caractères effectifs sont initialisées ; les autres restent inchangées ; il est donc vivement conseillé Même remarque que pour ACCEPT
d'initialiser correctement la rubrique nd avant l'exécution de l'ordre ACCEPT.
4.7. Verbes arithmétiques
De nombreuses variantes existent, suivant les implantations, permettant une gestion avancée de
messages à l'écran.
4.7.1. Généralités
Exemple : 01 IDENTITE.
02 NOM PIC X(10) VALUE SPACE. ♦ Dans toutes les instructions de ce paragraphe, les opérandes identifiés par nd désignent des rubriques
02 PRENOM PIC X(10) VALUE SPACE. numériques ; cependant, les zones de réception des calculs spécifiées après GIVING, n'intervenant pas
. dans les calculs, peuvent être de type numérique édité.

4.7.3. Soustraction
♦ Tous les littéraux "lit" sont de type numérique
Format 1 : nd1
♦ La spécification d'un arrondi se fait par la locution ROUNDED. SUBTRACT lit1 ... FROM {nd-m [ROUNDED]} …
♦ La phrase ON SIZE ERROR permet de spécifier un traitement à accomplir en cas de dépassement de [ON SIZE ERROR ph-impér.]
capacité lors des calculs ou de division par 0. Les rubriques de réception associées à cette phrase ne [NOT ON SIZE ERROR ph-impér.]
seront pas modifiées en cas d'erreur. La phrase NOT ON SIZE ERROR en est le pendant. [END-SUBTRACT]
♦ La locution CORRESPONDING (ou CORR) peut être utilisée dans le cas où les opérandes nd1 et nd2
désignent des rubriques de GROUPES. Une rubrique de nd1 et une rubrique de nd2 correspondent si :
Format 2 : nd1 nd2
elles sont désignées par le même nom (autre que FILLER) et ont les mêmes qualificateurs SUBTRACT lit1 ... FROM lit-m
jusqu'à nd1 et nd2 non inclus GIVING nd-n [ROUNDED]
ce sont des données élémentaires
nd1 et nd2 ne doivent pas contenir de niveau 66, 77, 88 [ON SIZE ERROR ph-impér.]
une donnée subordonnée à nd1 et nd2 et contenant une clause REDEFINES, RENAMES, [NOT ON SIZE ERROR ph-impér.]
OCCURS ou INDEX est ignorée de même que les données qui lui sont subordonnées. [END-SUBTRACT]
Sous ces conditions, l'opération portera individuellement sur chaque couple de données correspondantes. Format 3 : CORRESPONDING
SUBTRACT CORR nd-1 FROM nd-2 [ROUNDED]
4.7.2. Addition
[ON SIZE ERROR ph-impér.]
nd1 nd2 [NOT ON SIZE ERROR ph-impér.]
Format 1 : ADD lit1 lit2 TO nd-m [ROUNDED] [nd-n [ROUNDED]]… [END-SUBTRACT]

[NOT ON SIZE ERROR ph-impér.]
[END-ADD] 4.7.4. Multiplication
Format 1 : nd1
nd1 nd2 MULTIPLY lit1 BY {nd-2 [ROUNDED]} ...
Format 2 : ADD lit1 … TO lit2 GIVING nd-m [ROUNDED] …
[ON SIZE ERROR ph-impér.] [NOT ON SIZE ERROR ph-impér.]
[NOT ON SIZE ERROR ph-impér.] [END-MULTIPLY]
[END-ADD]
Format 2 : nd1 nd2

MULTIPLY lit1 BY lit2 GIVING {nd-3 [ROUNDED]} …
CORRESPONDING
Format 3 : ADD CORR nd1 TO nd2 [ROUNDED] [ON SIZE ERROR ph-impér.]
[ON SIZE ERROR ph-impér.] [END-MULTIPLY]
[END-ADD]
4.7.5. Division
Exemple : ADD N M 3 TO P P=N + M + 3 + P
ADD N M 3 GIVING P P=N + M + 3 Format 1 : nd1
DIVIDE lit1 INTO {nd-2 [ROUNDED] } ...


[END-DIVIDE] 4.8. MOVE
Format 2 : nd1 nd2 L'instruction MOVE permet de recopier dans une (ou plusieurs)rubrique(s) dites réceptrices, le contenu
DIVIDE lit1 INTO lit2 GIVING {nd-3 [ROUNDED]} … d'une (ou plusieurs) rubrique(s) dites émettrices.
[ON SIZE ERROR ph-impér.] Format 1 : MOVE nd1 TO {nd-2} ...

[NOT ON SIZE ERROR ph-impér.] lit1
[END-DIVIDE]
Format 2 : MOVE CORRESPONDING nd1 TO nd2
Format 3 : nd1 nd2 CORR
DIVIDE lit1 BY lit2 GIVING {nd-3 [ROUNDED]} …
♦ L'opération inclut si nécessaire les conversions de format interne.
[END-DIVIDE] ♦ Dans le format 2, au moins une des données du couple de données concerné par l'opération doit être
élémentaire.
Format 4 : nd1 nd2 Ex. :

DIVIDE lit1 INTO lit2 GIVING nd-3 [ROUNDED] 05 DT-AMER.
REMAINDER nd-4 10 AA PIC 99.
10 MM PIC 99.
[ON SIZE ERROR ph-impér.] 10 JJ PIC 99.
05 DT-JOUR.
[END-DIVIDE] 10 JJ PIC 99.
10 FILLER PIC X VALUE "/".
10 MM PIC 99.
10 FILLER PIC X VALUE "/".
10 AA PIC 99.
Format 5 : nd1 nd2
DIVIDE lit1 BY lit2 GIVING nd-3 [ROUNDED] MOVE CORR DT-AMER TO DT-JOUR.
REMAINDER nd-4
♦ Il y a deux types de transferts :
[ON SIZE ERROR ph-impér.] - transfert numérique
[NOT ON SIZE ERROR ph-impér.] - transfert non numérique
[END-DIVIDE] qui respectent les règles d'alignement décrites au chapitre 2 § 3 ; il ne peut y avoir de conversion de
format interne dans un transfert non numérique.
Remarques : ♦ Le type du transfert est déterminé par le type de l'émetteur et du récepteur ; le tableau ci-dessous résume
1. L'option BY implique GIVING les transferts possibles
2. L'option REMAINDER permet de recueillir le reste de la division dans nd-4 ; elle interdit l'usage de
plusieurs zones de réception.
Zone de Réception
Zone d’Emission Num. entier Num.fract. Alphabét. Alphanum. Alph. Edité Num. Edité
4.7.6. Calcul Num. entier N N I X X N
Num. fractionnaire N N I I I N
La valeur d'une expression arithmétique complexe peut être obtenue par l'instruction : Alphabétique I I X X X I
Alphanumérique X* X* X* X X X*
COMPUTE {nd-1 [ROUNDED]} ... = expression-arithmétique Alphanum. Edité I I X X X I
[ON SIZE ERROR ph-impér.] Num. Edité I I I I X X
[END-COMPUTE].
X : transfert non numérique
Ex. : COMPUTE TOTAL ROUNDED = PUHT * QTE + TRSP * (1 - TX) X* : transfertautorisé seulement si tous les caractères émis sont autorisés dans la zone de réception
N : transfert numérique
I : transfert interdit

Une rubrique structurée se comporte comme une rubrique élémentaire alphanumérique. 4.10. EVALUATE
Transfert du signe : En COBOL 85, l'instruction EVALUATE permet de généraliser la notion de structure alternative, et
- Emetteur signé/récepteur non signé : le récepteur contient la valeur absolue de l'émetteur représente une implémentation de la liste de cas.
- Emetteur non signé/récepteur signé : la valeur de l'émetteur est considérée comme positive
- Emetteur numérique entier/récepteur alphanumérique : le signe n'est pas transféré. nd-1 nd-2
lit-1 lit-2
expression-1 ALSO expression-2 ...
4.9. IF EVALUATE TRUE TRUE
FALSE FALSE
Elle permet d'exprimer une alternative entre deux traitements.
ANY
Format : IF expression conditionnelle THEN phrase-1 condition-1
NEXT SENTENCE TRUE
FALSE
ELSE phrase-2 WHEN nd-3 THROUGH nd-4
[NOT] lit-3 THRU lit-4
OTHERWISE NEXT SENTENCE expression-3 expression-4
[END-IF]
ANY
condition-2
Exemple IF A NOT NUMERIC OR A NOT > 0 TRUE
DISPLAY "ERREUR***" FALSE
ELSE ADD A TO SOMME. ALSO nd-5 THROUGH nd-6
[NOT] lit-5 THRU lit-6
♦ Si l'expression conditionnelle donne un résultat vrai, on effectue le traitement décrit dans "phrase-1" expression-5 expression-6
sinon on effectue celui qui est décrit dans "phrase-2".
phrase-impérative-1 …
Remarques :
[ WHEN OTHER phrase-impérative-2]
♦ ne pas oublier le point à la fin de "phrase-2" ou END-IF. Le mot clé ELSE indique la fin de "phrase-1".
[END-EVALUATE]
♦ phrase-1 et/ou phrase-2 se composent d'instructions impératives et/ou d'une instruction IF.
Les opérandes ou les mots TRUE ou FALSE précédant le premier WHEN sont appelés les sujets de la
♦ IF et ELSE s'emploient par paires ; tout mot ELSE est à associer avec la première condition qui le sélection, alors que les opérandes suivant WHEN sont appelés les objets de la sélection. Le nombre de
précède et qui n'est pas déjà reliée à un mot ELSE. sujets doit être égal au nombre d'objets, la correspondance s'opérant par rang (position relative).
Exemple : L'instruction s'exécute en évaluant les conditions, expressions ou valeurs logiques des sujets et des
IF .... objets. Chaque objet de la sélection suivant le premier WHEN est comparé au sujet de même rang. Si la
IF .... comparaison est satisfaite pour chacun des couples sujet-objet (ANY satisfaisant toute condition), alors
ELSE .... l'instruction impérative qui suit ce WHEN est exécutée et l'on quitte EVALUATE.
ELSE IF ....
ELSE .... . Le processus est répété en cas d'inégalité pour trouver le premier WHEN satifaisant l'ensemble des
conditions. Si aucune phrase suivant WHEN n'a été sélectionnée, et si WHEN OTHER a été spécifié, la
phrase-impérative-2 est exécutée, et l'instruction EVALUATE est terminée.
Il est possible de préciser CONTINUE en tant que phrase-impérative-1 : aucune action n'est effectuée et l'on
passe à l'instruction suivant EVALUATE.
Exemple 1 EVALUATE A
WHEN 1 PERFORM TRAITEMENT-1
WHEN 2 PERFORM TRAITEMENT-2
WHEN 5 PERFORM CONTINUE
WHEN OTHER PERFORM TRAITEMENT-3
END-EVALUATE.

Le paragraphe TRAITEMENT-1 est exécuté si A a la valeur 1, TRAITEMENT-2 si A a la valeur 2, et ♦ L'instruction PERFORM permet d'exécuter un bloc de traitement décrit sous forme :
TRAITEMENT-3 si A a toute valeur autre que l, 2 ou 5. - d'un paragraphe
- d'une section
Exemple 2 EVALUATE A ALSO B ALSO C - d'un ensemble de paragraphes et/ou de sections contigus
WHEN 1 ALSO 5 ALSO NOT 7 PERFORM TRAITEMENT-1 dont le premier s'appelle nt1 et le dernier nt2.
WHEN 2 ALSO 4 THRU 7 ALSO 3 PERFORM TRAITEMENT-2
WHEN 5 ALSO ANY ALSO ANY PERFORM TRAITEMENT-2 ♦ L'exécution du bloc de traitement commence à la première instruction du bloc et se termine
WHEN OTHER PERFORM TRAITEMENT-3
obligatoirement à la dernière instruction du bloc.
END-EVALUATE .
Les instructions de TRAITEMENT-1 sont exécutées pour A=1, B=5 et C différent de 7, celles de ♦ L'instruction PERFORM peut être écrite avant ou après le traitement qu'elle fait exécuter.
TRAITEMENT-2 pour A=2, B compris entre 4 et 7, et C=3 ainsi que pour A=5 quelles que soient les
valeurs de B et C, et enfn celles de TRAITEMENT- 3 sont exécutées dans tous les autres cas. ♦ Dans les formats 3 et 4 (cf ci-après), par défaut ou si l’on précise TEST BEFORE la condition est
évaluée avant d’exécuter le bloc ; avec TEST AFTER, après exécution du bloc.
Exemple 3 EVALUATE A = 1 ALSO B = 1 A B
WHEN TRUE ALSO TRUE PERFORM TRAITEMENT-1 1 1 Exemple
WHEN TRUE ALSO FALSE PERFORM TRAITEMENT-2 1 0 S0 SECTION.
WHEN FALSE ALSO TRUE PERFORM TRAITEMENT-2 0 1 P0.
WHEN OTHER PERFORM TRAITEMENT-3 0 0 P1.
END-EVALUATE.
S1 SECTION.
Table de vérité XOR. P2.
P3.
Exemple 4 EVALUATE TRUE ALSO TRUE S2 SECTION.

WHEN A = 1 ALSO B = 1 PERFORM TRAITEMENT-1
WHEN ANY ALSO B = 2 PERFORM TRAITEMENT-2
WHEN OTHER PERFORM TRAITEMENT-3 P4. PERFORM S0 (1)
END-EVALUATE.
PERFORM P0 THRU P1 (2)
Les instructions de TRAITEMENT-1 sont exécutées pour A=1 et B=1, celles de TRAITEMENT-2 si B=2
PERFORM S0 THRU S1 (4)
et quel que soit A, et celles de TRAITEMENT-3 dans les autres cas.
4.11. PERFORM
Elle traduit l'action de "faire" un traitement 0, 1 ou plusieurs fois Les lignes (1) et (2) sont équivalentes ; il en est de même des lignes (4) et (5).
Format 1 : PERFORM nt1

THROUGH nt2 ♦ Le format 2 permet de traduire un traitement itératif, le nombre de répétitions étant connu par
THRU
avance.
[ph-impér. END-PERFORM]
Format 2 : PERFORM nt1

THROUGH nt2 nd TIMES Exemples : PERFORM S0 3 TIMES
THRU entier-1 PERFORM P1 N1 TIMES
[ph-impér. END-PERFORM] Où N1 PIC 99.
Format 3 : PERFORM nt1 THRU nt2 WITH TEST BEFORE

THROUGH AFTER
A noter que seule la valeur de N1 définie au moment de l'exécution de l'ordre PERFORM est prise en
UNTIL condition-1 compte ; toute modification ultérieure de N1, au cours des itérations, est sans effet sur le nombre de
répétitions effectuées.
[ph-impér. END-PERFORM]
♦ Terminologie :
♦ Le format 3 permet de traduire un traitement itératif à répéter jusqu'à ce qu'une condition soit
- nt désigne un paragraphe ou une section satisfaite.
- nd doit référencer un entier non signé

Exemple : PERFORM SI UNTIL J > 50
Instruction PERFORM avec variable de comptage
Le cycle des opérations standard est le suivant : Format 4 : PERFORM nt1 THRU nt2 WITH TEST BEFORE
THROUGH AFTER
1) Evaluation de l'expression conditionnelle (sauf si TEST AFTER)
2) Si le résultat de l'expression conditionnelle est vrai nd-3
Arrêt des itérations sinon exécuter S1 reprendre au point 1) VARYING nd-2 FROM index-2
index-1 ent-1
Remarque:
BY nd-4 UNTIL condition-1
Si au départ J contient une valeur supérieure à 50, il n'y a pas d'exécution de S1. ent-2
nd-6
♦ Instructions PERFORM imbriquées : AFTER nd-5 FROM index-4
index-3 ent-3
Le bloc de traitement exécuté à partir d'un ordre PERFORM peut contenir des ordres PERFORM à …
condition que ceux-ci réfèrent des blocs de traitement totalement inclus ou disjoints du bloc d'origine.
BY nd-7 UNTIL condition-2
ent-4
Exemple : PERFORM P0 THRU P4
P0. [ph-impér. END-PERFORM]
P1.
P2.
Jusqu’à 6 phrases AFTER
P3. PERFORM P1 THRU P2 2 TIMES (1)
Il inclut la gestion des indices ou des index jusqu'à 3 (7) niveaux d'imbrication.
P4. PERFORM P5 UNTIL NOM = SPACE
Exemple : Soit la procédure CUMUL-NOTE permettant de cumuler une note (appartenant à une table de
P5. dimension 2) à une variable de cumul partiel (SOMME). E et N sont deux indices indiquant
respectivement le rang de l'élève et le rang de la note.
MOVE 0 TO SOMME
Le bloc P1-P2 est inclus dans le bloc P0-24
PERFORM CUMUL-NOTES VARYING E FROM 1 BY 1
Le bloc P5 est disjoint du bloc P0-P4. UNTIL E > 25
Il est interdit de remplacer par exemple la ligne (1) par PERFORM P4 THRU P5 AFTER N FROM 1 BY 1
UNTIL N > 10.
CUMUL-NOTES.
ADD NOTE-ELEVE (E,N) TO SOMME.
4.12. EXIT
Format 1 : EXIT .
Format 2 : EXIT PROGRAM.
Cette instruction doit être la seule instruction de la seule phrase du paragraphe où elle est écrite.
Son rôle : - EXIT : définir un paragraphe vide

- EXIT PROGRAM : définir un paragraphe vide et déclencher le retour au programme appelant;
cette option ne peut être utilisée que dans un sous-programme.

4.15 INSPECT
Exemple :
Dans un tableau INDIVIDUS de dimension 1 comportant 25 noms de personnes, déterminer le rang Permet, à l'intérieur d'une rubrique de type non numérique, de remplacer (Format 1) les occurrences d'un ou
de l'individu DUPONT. plusieurs caractères, ou de les compter (Format2).
PERFORM RECHERCHE VARYING E FROM 1 BY 1 Format 1

UNTIL NOM (E) = "DUPONT"
OR E > 25. INSPECT nd-1 REPLACING
RECHERCHE. EXIT.
CHARACTERS BY nd-4 BEFORE INITIAL nd-3
A la fin de l'itération, E contient le rang de DUPONT ou la valeur 26 si cette personne ne figure pas dans la
lit-3 AFTER lit-2 …
table.
ALL …
LEADING nd-4 BY nd-2
4.13. STOP FIRST lit-3 lit-1
BEFORE INITIAL nd-3

AFTER lit-2 …
Permet d'arrêter temporairement ou définitivement l'exécution d'un programme.
Format : STOP RUN

lit
♦ nd1 réfère la rubrique étudiée élémentaire ou de groupe , en mode DISPLAY obligatoirement.
♦ nd2 à nd4 doivent être des rubriques élémentaires.
♦ STOP RUN provoque l'arrêt définitif du programme ;
♦ Algorithme de remplacement : L'algorithme examine le contenu de la rubrique de gauche à droite ; il y a
♦ Dans le format 2, le littéral est affiché sur le terminal de l’opérateur et le programme est suspendu. A ce
deux possibilités :
point, l'utilisateur peut relancer le programme par Enter, ou l'abandonner.
a) Option CHARACTERS : on remplace chaque caractère rencontré par la valeur précisée nd2 ou lit1.
4.14 GO Cette clause ne peut apparaître qu'une fois.
b) Autres options : on remplace chaque sous-chaîne de valeur nd4 ou lit3 par la valeur précisée par nd2
Permet d'effectuer dans un programme une rupture de séquence inconditionnelle. L'usage de cette instruction ou lit1 ; la sous-chaîne de remplacement doit avoir la même longueur que la sous-chaîne d'origine.
doit être réservé exclusivement à la traduction de certaines structures algorithmiques bien précises. Il est possible de préciser plusieurs options de ce type permettant de procéder au remplacement des
occurrences de plusieurs sous-chaînes distinctes.
Format 1 : GO TO nt
Format 2 : GO TO nt1 [ nt2] ..., ntn DEPENDING ON nd Exemples INSPECT ZONE REPLACING CHARACTERS BY "*"
Tous les caractères de ZONE sont remplacés par des *
Le deuxième format (aiguillage) permet de traduire un choix entre n traitements en fonction de la valeur de INSPECT ZONE REPLACING ALL "ABC" BY "XXX"
nd; nd réfère une rubrique élémentaire à valeur entière comprise entre 1 et n ; si nd vaut k, il y a ALL "CDE" BY "YYY"
branchement au kième traitement de la liste ; si k # [1,n], l'instruction est sans effet. Valeur d'origine de ZONE : B C D E Z A B C D E A B C C D E
Valeur finale de ZONE : B Y Y Y Z X X X D E X X X Y Y Y
Les opérations sont traitées suivant l'ordre d'écriture ; ainsi la 2e occurrence de CDE n'est pas prise
en compte, la lettre C ayant déjà été traitée par le remplacement de la 1ère occurrence de ABC.
Les mots clés ALL, LEADING et FIRST permettent de sélectionner ou non certaines occurrences
de la sous-chaîne à remplacer :
♦ ALL : toutes les sous-chaînes ayant la valeur nd4 ou lit3 sont traitées
♦ LEADING : toutes les occurrences contiguës de la sous-chaîne de valeur nd4 ou lit3 sont traitées à
condition que la première se trouve au début de la zone à traiter.
Exemple : INSPECT ZONE REPLACING LEADING "AB" BY "ZZ"

Valeur d'origine de ZONE : XYABABXAB
Valeur finale : identique

si on rajoute AFTER "Y", valeur finale : XYZZZZXAB 4.16 STRING et UNSTRING
♦ FIRST : seule la première sous-chaîne de valeur nd4 ou lit3 est traitée. 4.16.1. Concaténation
Délimitation de la zone à étudier : L'instruction STRING permet la juxtaposition des contenus partiels ou complets de 2 ou plusieurs rubriques
en une seule.
L'option AFTER/BEFORE, valable pour les deux algorithmes de remplacement, permet de faire
débuter (respect. d'arrêter) le traitement à la rencontre de la première occurrence de la valeur spécifiée par STRING émetteur-1 ... DELIMITED BY délimiteur-1
nd3 ou lit2 (obligatoirement de longueur 1 caractère pour l'algorithme (a)). SIZE …
INTO récepteur [WITH POINTER pointeur]

Format 2
[ON OVERFLOW phrase-impérative 1]
INSPECT nd-1 TALLYING [NOT ON OVERFLOW phrase-impérative 2]
[END-STRING]
ALL
nd-2 FOR LEADING nd-3
CHARACTERS lit-1 ♦ Chaque rubrique d'émission doit être d'usage DISPLAY ; si elle est numérique, elle doit être
entière. Ce peut être aussi un littéral non numérique (ou une constante figurative, considérée
BEFORE INITIAL nd-4 comme un seul caractère).
AFTER lit-2 …
♦ La rubrique de réception doit être alphanumérique élémentaire.
♦ La clause DELIMITED est obligatoire ; les délimiteurs (1 ou plusieurs caractères) suivent les règles
Avec TALLYING, nd-2 doit référencer une rubrique numérique, précédemment initialisée. Cette rubrique est
de syntaxe des émetteurs ; un délimiteur n'est PAS TRANSMIS dans la zone de réception. Si SIZE
incrémentée de un pour chaque occurence de sous-chaîne (ou chaque caractère) suivant des modalités
est spécifié, le contenu complet de l'émetteur (ou des émetteurs) précédant DELIMITED est
analogues à celles de REPLACING.
transféré dans le récepteur.
Format 3
♦ Le pointeur est une rubrique entière de longueur suffisante pour contenir la taille + 1 du récepteur; il
contient à chaque instant le rang du prochain caractère à recevoir ; s'il est spécifié, il doit être
Résulte de la juxtaposition du format 2 (TALLYING) suivi du format 1 (REPLACING).
initialisé à une valeur supérieure ou égale à 1(défaut = 1).
Exemple : INSPECT RUB TALLYING COMPTEUR FOR ALL "L" REPLACING
Aucun des caractères du récepteur, non concernés par le transfert (en début ou en fin de zone) n'est
LEADING "A" BY "E" AFTER INITIAL "L".
modifié par l'instruction.
♦ La locution OVERFLOW sera validée si au cours des transferts, le nombre de caractères émis excède
Format 4
la longueur du récepteur (à défaut, le pg se poursuit en séquence).
Il permet de remplacer, dans nd1, chaque caractère de nd2 par le caractère de même rang de nd3
(équivaut à une série de INSPECT REPLACING pour chaque caractère).
Remarque : On peut considérer que les transferts se font caractère par caractère, en commençant, pour
INSPECT nd-1 CONVERTING chaque émetteur pris en séquence, par le caractère le plus à gauche et jusqu'à atteindre :
- soit la fin de l'émetteur,
- soit le(s) caractère(s) du délimiteur associé (jamais transmis).
nd-2 TO nd-3
lit-1 lit-2
Exemples : STRING JJ "/" MM "/" AA DELIMITED BY SIZE INTO DATE-COM.
STRING NOM DELIMITED BY " " SPACE DELIMITED SIZE PRENOM
BEFORE INITIAL nd-4 DELIMITED SPACE INTO IDENTITE.
AFTER lit-3 …
Exemple :
77 ZON PIC X(10) VALUE "ABCAEFACA".
INSPECT ZON CONVERTING "ABC" TO "XYZ" BEFORE "F".
ZON contiendra "XYZXEFACA"

4.16.2. Séparation ♦ Si DELIMITED BY n'est pas spécifié, le transfert s'effectue jusqu'a remplir le récepteur courant.
L'instruction UNSTRING provoque la séparation de données contigües d'une rubrique émettrice et leur
transfert dans des rubriques réceptrices multiples. ♦ Après chaque extraction d'une sous-chaîne de l'émetteur, l'analyse reprend au caractère suivant
le délimiteur.
UNSTRING émetteur [DELIMITED BY [ALL] délimiteur-1 ♦ L'analyse se poursuit jusqu'à la fin de l'émetteur ou épuisement de récepteurs.
[OR [ALL] délimiteur-2] ...]
INTO {récepteur-1 [DELIMITER IN délimiteur-3] [COUNT IN compteur-1]} ♦ A la fin de l'opération, le pointeur est égal à sa valeur initiale plus le nombre de caractères
[WITH POINTER pointeur] [TALLYING IN compteur-3] examinés dans l'émetteur.
[ON OVERFLOW phrase-impérative 1]
[NOT ON OVERFLOW phrase-impérative 2]
[END-UNSTRING]
La locution ON OVERFLOW sera validée :
♦ L'émetteur et les délimiteurs doivent être des rubriques alphanumériques ; les délimiteurs peuvent àtre ♦ si le pointeur est initialisé à une valeur inférieure à 1 ou supérieure à la taille de l'émetteur
des littéraux non numériques.
♦ si toutes les zones de réception ont été utilisées et il reste des caractères à examiner dans
♦ Les récepteurs peuvent être alphabétiques, alphanumériques ou numériques (d'usage DISPLAY). l'émetteur.
♦ Les compteurs et pointeurs doivent être numériques entiers.

♦ Si une condition de débordement apparaît et OVERFLOW n'est pas spécifié, l'exécution se
♦ Les locutions DELIMITER et COUNT ne peuvent figurer que si DELIMITED BY est spécifié. poursuit en séquence.
Règles d'application ♦ Si un délimiteur ou un récepteur est indicé ou indexé, l'indice ou l'index est évalué
immédiatement avant le transfert de donnée dans la rubrique correspondante.
♦ délimiteur-3 et -4 sont les rubriques de réception des délimiteurs, et accueillent ces derniers
selon les règles de transfert non-numérique. Si la condition de délimitation est la fin de Exemples : UNSTRING DATE-COM DELIMITED BY "/" INTO JJ MM AA
l'émetteur (i.e. délimiteur non rencontré) ces rubriques sont à blanc.
UNSTRING IDENTITE DELIMITED BY SPACE INTO NOM
♦ Chaque compteur contient le nombre de caractères transmis dans le récepteur associé, délimiteur COUNT IN CN PRENOM COUNT IN CP POINTER CT
exclu.
♦ Le pointeur indique le rang du premier caractère de l'émetteur participant à l'opération (défaut =

1), puis est incrémenté au fur et à mesure. 4.17. INITIALIZE
♦ Le compteur-3 enregistre le nombre de rubriques de réception mises en jeu par l'opération En ANS85, cette instruction permet d’initialiser, certains types de données.
(initialisation à charge du programmeur).
INITIALIZE { nd-1} …
♦ Lorsque ALL est spécifié, plusieurs apparitions contigües du délimiteur associé sont traitées
comme une seule occurrence ; sinon, deux apparitions contigües entraînent une mise à blanc ou
à zéro du récepteur associé, selon sa définition. ALPHABETIC
ALPHANUMERIC
REPLACING NUMERIC DATA BY nd-2 …
♦ Lorsqu'un délimiteur contient plusieurs caractères, ils doivent être présents en totalité, et dans
ALPHANUMERIC-EDITED lit-1
l'ordre, dans l'émetteur pour être reconnus comme délimiteur. NUMERIC-EDITED
♦ Si plusieurs délimiteurs sont spécifiés dans la locution DELIMITED BY, reliés par OR,
l'émetteur est analysé pour chacun d'eux dans l'ordre donné, jusqu'à correspondance.
♦ nd-1 est le récepteur, à initialiser ; nd-2 ou lit-1 sont les émetteurs servant à l’initialisation.
♦ nd-1 ne peut être un index, ni contenir de clause RENAMES ou DEPENDING ON

♦ en l’absence de clause REPLACING, les données élémentaires des récepteurs sont initialisée à b pour
les types non-numériques et à 0 pour les types numériques.
♦ Si REPLACING est spécifié, l'instruction opère comme un ensemble de MOVE entre l'émetteur et le(s)
récepteur(s), au niveau élémentaire s'il s'agit de groupes. L'opération n'est effectuée que pour les
données correspondant au type cité. Un type ne peut apparaître qu'une seule fois dans un INITIALIZE.
Exemple 01 COMPTE.
02 NUM PIC 9(5).
02 LIBEL PIC X(20).
02 SOLDE PIC S9(6)V99 PACKED-DECIMAL.
…
INITIALIZE COMPTE.
INITIALIZE COMPTE REPLACING ALPHANUMERIC BY ALL "X".
Cobol Le Noyau 3 - 35
Une expression d'indices ou d'index est de la forme :
LE TRAITEMENT DES TABLES
entier-1
nd-1 ( nd-2 [{±}entier-2] …)
index-1 [{±}entier-3]
1 Principes Exemples :
A (3)
B (I, 5)
B (I, J) ou I, J est du type entier
Une table (ou tableau) est une collection ordonnée d'objets du même type ; tout objet de la table peut être
B (IND + 1, 5) IND est du type index
sélectionné indépendamment des autres en citant ses "coordonnées".
Remarques :
Exemple : Table des intitulés des jours de la semaine LUNDI MARDI MERCREDI JEUDI VENDREDI
SAMEDI DIMANCHE. L'intitulé du 3e jour est MERCREDI.
1) Les virgules séparant les expressions d'indices ou d'index sont facultatives et peuvent être remplacées
par des espaces.
Une table est de dimension n, n > 0 ; l'exemple précédent montre une table de 7 chaînes de caractères et
2) Un objet d'une table étant nécessairement à occurrences multiples, il est indispensable de préciser
de dimension 1.
l’occurrence de l'objet sur laquelle porte le traitement ; cette sélection doit être répétée pour chaque
instruction faisant référence à cet objet.
♦ Le langage COBOL comporte des clauses permettant de décrire des tables de dimension ≤3 (7) ; les
objets d'une table peuvent être de type élémentaire ou structuré.
Exemple : Tarif des consommations ; c'est une table de dimension 1, composée d'objets du type 2 Définition d'une table - OCCURS
"consommation" défini par :
. nom-consommation (chaîne de 15 caractères)
. prix-consommation (réel) Format 1 : OCCURS ent-2 TIMES
♦ Le langage COBOL inclut les manipulation de tables, c'est-à-dire qu'il permet de sélectionner des ASCENDING KEY IS nd2 [nd3] ...
objets appartenant à des tables. Deux techniques peuvent être utilisées : DESCENDING
• L'indiçage : consiste à préciser dans l'ordre les valeurs des différents sélecteurs sous forme [INDEXED BY index1 [index2] ... ] ...
d'indices; les indices étant du type entier, leurs valeurs peuvent être calculées à l'aide des
instructions arithmétiques classiques.
Format 2 : OCCURS ent-1 TO ent-2 TIMES DEPENDING ON nd1
• L'indexation consiste à préciser dans l'ordre les valeurs des différents sélecteurs sous forme de
pointeurs appelés index ; la valeur d'un index correspond en fait à une forme d'adressage de la ASCENDING KEY IS nd2 [nd3] ...
mémoire centrale ; elle ne peut donc être calculée par les instructions arithmétiques classiques et DESCENDING
nécessite l'emploi d'instructions spécifiques. Par ailleurs, un index est rattaché à un sélecteur
d'une table et ne peut être utilisé à d'autres fins. [INDEXED BY index1 [index2] ... ] ...
On peut cependant définir une variable index en DATA DIVISION, par la clause :
♦ ent-1 et ent-2 sont des entiers désignant respectivement le nombre minimum et le nombre maximum
[USAGE IS] INDEX d'objets dans la table (ent-1<ent-2)
Toute autre clause est interdite. ♦ nd1 doit décrire un entier positif ; elle contient le nombre exact d'occurrences de l'objet dans la table
courante (nd1 Ú 1) et sera placée dans la partie fixe de l'article ou hors de celui-ci.
Ex. : 77 IND1 USAGE INDEX.
♦ nd2, nd3, ... doivent être des rubriques subordonnées à celle contenant OCCURS ; cependant, nd2
Ceci peut être utile pour sauvegarder des valeurs index. peut désigner cette rubrique (si elle est seule) ; aucune des rubriques citées ne peut contenir
OCCURS
La sélection d'un objet d'une table s'exprime par : nom de l'objet (liste d'expressions d'indices ou d'index).
Le nombre d'expressions d'indice ou d'index correspond à la dimension de la table.
Cobol Les Tables 4-1 Cobol Les Tables 4-2

♦ INDEXED est obligatoire si l'objet (ou ses rubriques subordonnées) doit être référencé par indexation
; index1, index2, ... ne peuvent àtre définis ailleurs dans le programme. • Aucune rubrique rattachée à un objet appartenant à une table ne peut être initialisée par une clause
VALUE en ANS74. En ANS85, chaque occurrence est initialisée par la valeur spécifiée.
♦ une rubrique contenant le format 2 ne peut être suivie dans l'enregistrement que par des rubriques
subordonnées. • La clause REDEFINES est autorisée :
- pour redéfinir la structure d'un élément d'une table.
♦ OCCURS ne peut être spécifié aux niveaux 01, 77, 66 ou 88 - lorsque la table est incluse dans la redéfinition.
♦ nd1 ne peut pas être subordonnée à la rubrique sujet de OCCURS Il est par contre interdit de redéfinir une rubrique dont la structure comporte une table.
♦ La locution DEPENDING, autorisant la gestion de tables de longueur variable (i.e. ayant un nombre
variable d'éléments) permet d'optimiser l'occupation des supports externes, et de limiter les Exemples :
recherches en table quand celle-ci n'est pas totalement remplie dans tous les articles.
1) 01 A.
Exemple : 02 TABLE1.
01 ABONNE. 03 ELEMENT PIC X OCCURS 10.
05 NOM PIC X(20). 02 B REDEFINES TABLE1 PIC X(10).
05 NB-OUV PIC 99. est interdit
05 OUVRAGE OCCURS 1 TO 20 DEPENDING ON NB-OUV.
10 CODOUV PIC 9(5).
10 DATEMP PIC 9(6). 2) 01 A.
02 B PIC X(10).
02 TABLE2 REDEFINES B.
03 ELEMENT PIC X OCCURS 10.
La locution ASCENDING (ou DESCENDING) KEY permet de préciser les rubriques de l'entrée servant de est autorisé
critères de classement dans le cas d'une table ordonnée. Elle est indispensable pour une recherche
dichotomique (SEARCH ALL). L'ordre de classement est déterminé selon les règles de comparaison
classique ; les critères sont à citer dans l'ordre d'importance décroissante (i.e. majeur en tête) 3) 01 A.
02 ELEMENT OCCURS 10.
03 A1 PIC XX.
03 A2 REDEFINES A1.
Exemple :
04 E1 PIC 9.
04 E2 PIC 9.
Table des élèves d'une classe, chaque élève ayant 10 résultats sous forme (note, coefficient) est autorisé
01 TABLE-ELEVES.
02 ELEVE OCCURS 25.
03 NOM-ELEVE PIC X(20).
03 RESULTAT-ELEVE OCCURS 10.
04 NOTE-ELEVE PIC 99V9. 3. SET
04 COEFF-ELEVE PIC 9.
Elle permet d'initialiser, d'incrémenter ou de décrémenter une variable index.

Cette description nous donne : nd-3
Format 1 : SET nd-1 [nd-2]... TO index-3
- au niveau 2, une table de 25 "élèves" index-1 [index-2]… ent-1
- au niveau 3, une table de dimension 2, de 25 fois 10 résultats
Ainsi :
ELEVE (3) réfère l'ensemble des informations concernant le 3ème élève. Format 2 : SET index-4 [index-5]... UP BY nd-4
NOM-ELEVE (3) désigne le nom du 3ème élève. DOWN BY ent-2
RESULTAT-ELEVE (3, 6) désigne le 6ème résultat du 3ème élève
COEFF-ELEVE (3, 6) désigne le coefficient du 6ème résultat du 3ème élève.
Utilisation conjointe de la clause OCCURS et des autres clauses :

♦ L'instruction SET...TO permet d'initialiser une suite d'index à une valeur exprimée sous forme ♦ Si une rubrique sert à la progression, elle doit être numérique entière (indice) ou d'usage INDEX.
d'entier (nd-3 ou ent-1) ou d'index (index-3) ; inversement, elle permet d'initialiser une suite d'indices
(nd-1, nd-2,...) à une valeur exprimée sous forme d'index (index-3). La recherche débutera à partir de l'élément pointé par le contenu de l'index (ou de la rubrique) si ce
dernier est inférieur au rang maximum autorisé. Les conditions sont évaluées dans l'ordre cité, et la
Attention : Il est interdit d'initialiser un indice, par l'instruction SET, à une valeur exprimée sous forme recherche se terminera dès que l'une d'entre elles sera satisfaite ; l'index point alors l'entrée pour lequel la
d'un entier ; une telle affectation s'exprime par une instruction MOVE (cf. chap. 3 §4.8) condition est remplie. Si la recherche a été vaine (fin de table atteinte sans satisfaire aucune condition), la
locution AT END sera validée et la phrase impérative correspondante exécutée ; à défaut le contrôle
Exemple : Si I et J sont du type entier et IND du type index, on peut écrire SET I J TO IND : passe à l'instruction suivant SEARCH.
initialisation des indices I et J au rang correspondant à la valeur de l'index.
IND SET IND TO 3 : positionnement de l'index IND sur la 3e occurence dans la table à laquelle il est ♦ A la fin de l'exécution d'une phrase impérative ne comportant pas GO TO, le contrôle passe à
rattaché. l'instruction suivante.
♦ L'instruction SET...UP BY sert à incrémenter un ou plusieurs index d'un déplacement correspondant ♦ Si VARYING n'est pas spécifié, l'index utilisé par défaut est le premier cité dans la locution
à n occurences, n étant exprimé par nd-4 ou ent-2. INDEXED BY de la définition de l'élément (idem s'il s'agit d'une rubrique après VARYING) ; les
autres ne sont pas touchés.
Exemple: SET IND UP BY 2
L'instruction SET...DOWN BY sert à décrémenter des index N.B. : L'élément cité dans SEARCH peut être subordonné à une rubrique contenant OCCURS (cas de table
à 2 ou 3 dimensions).
Exemple : SET IND DOWN BY 3
Exemple : SET IND1 TO 1
SEARCH ELEMENT WHEN RUB (IND1) = VALEUR PERFORM TRAIT
Remarques : WHEN RUB (IND1) = SPACE GO TO ERREUR
1) Le format 2 de l'instruction SET ne peut être utilisé pour incrémenter ou décrémenter des indices ; une
telle opération s'exprimerait par les instruction ADD ou SUBTRACT.
2) Dans les tests de relation, il est possible de faire référence à des index ; leurs valeurs sont 4.2. Recherche dichotomique
"remplacées" par des valeurs entières correspondant aux rangs des occurences sur lesquelles ils pointent ;
on est ainsi ramené à des comparaisons numériques. SEARCH ALL élément [AT END phrase-impérative]
WHEN condition phrase-impérative

NEXT SENTENCE
4. Recherche en table - SEARCH [END-SEARCH]
où la condition est de la forme :

L'instruction SEARCH est utilisée pour rechercher dans une table un élément qui satisfait à une
condition donnée. critère-1 = rubrique-1 AND critère-2 = rubrique-2 ...
EQUAL TO exp-arith-1 EQUAL TO exp-arith-2
4.1. Recherche séquentielle

♦ Les critères doivent être cités dans la locution KEY et indexés avec le premier index ; ce peut être
SEARCH élément VARYING rubrique [AT END phrase impérative] également un nom-condition associé à une valeur unique du critère.
index
♦ Les rubriques spécifiées ne doivent pas être des critères de l'élément concerné, ni être indexés par le
WHEN condition-1 phrase-impérative premier index de celui-ci ; il en va de même pour les opérandes des expressions arithmétiques. On
NEXT SENTENCE … peut utiliser des littéraux.
♦ Lorsqu'un critère est utilisé, tous ceux le précédant dans la locution KEY doivent être également
[END-SEARCH] référencés.
♦ Le contenu de l'index sera indéterminé en cas de recherche infructueuse (critères non trouvés ou non
♦ L'élément de table cité après SEARCH ne doit être ni indicé ni indexé. discriminatoires).

Exemple :
.
.
05 RESID OCCURS 1000 ASCENDING DEPT COMU INDEXED BY IND IND1.
10 DEPT PIC 99.
10 COMU PIC 999.
10 RUE PIC X(30).
.
.
.
SEARCH ALL RESID WHEN DEPT (IND) = 67 AND COMU (IND) = 200
PERFORM STRBG-OUEST.
Cobol Les Tables 4-7

GESTION DES FICHIERS EN COBOL 2.1. Le paragraphe FILE-CONTROL
2.1.1. Syntaxe générale
1. Organisation et accès supportés Format 1 (pour fichiers d'organisation séquentielle)
SELECT [OPTIONAL] fich-1 ASSIGN TO fspec1 [fspec2] ...

Le langage COBOL permet la manipulation de fichiers d'organisation
RESERVE entier-1 AREA
♦ séquentielle (SEQUENTIAL) AREAS
[ORGANIZATION IS SEQUENTIAL]
♦ séquentielle indexée (INDEXED)
[ACCESS MODE IS LINE SEQUENTIAL]
♦ relative (RELATIVE) RECORD
L'accès à un fichier organisé séquentiellement est nécessairement séquentiel. Les enregistrements sont PADDING CHARACTER IS nd-1
atteints dans l'ordre physique où ils sont rencontrés. lit-1
Pour les autres organisations de fichiers, l'accès pourra être : RECORD DELIMITER IS STANDARD-1
chaîne
♦ séquentiel, soit dans l'ordre logique des enregistrements (SEQUENTIAL)
[FILE STATUS IS nd-2].
♦ sélectif (ou aléatoire) selon une clé (RANDOM)
♦ mixte, c'est à dire séquentiel et aléatoire, à l'intérieur d'un même programme (DYNAMIC), sans
avoir à ré-ouvrir le fichier. Format 2 (pour fichiers d'organisation relative)
L'organisation d'un fichier est fixée lors de sa création ; le mode d'accès est précisé dans chaque SELECT [OPTIONAL] fich-2 ASSIGN TO fspec1 [fspec2] ...
programme manipulant le fichier en question.
AREAS
ORGANIZATION IS RELATIVE
2. Input-output section
SEQUENTIAL [ RELATIVE KEY IS nd-2]
ACCESS MODE IS RANDOM
DYNAMIC RELATIVE KEY IS nd-2
Cette section fait partie de l' ENVIRONMENT DIVISION et se compose :
♦ du paragraphe FILE-CONTROL comprenant une phrase SELECT par fichier utilisé ; cette
phrase permet de préciser en particulier les paramètres organisation et accès pour ce fichier et de [FILE STATUS IS nd-3].
faire le lien avec le SGF par l'intermédiaire d'un mnémonique.
♦ du paragraphe I-O-CONTROL (facultatif) permettant de préciser les zones d'entrée-sortie Format 3 (pour fichiers d'organisation séquentielle indexée)
(buffers) communes à plusieurs fichiers.
SELECT [OPTIONAL] fich-3 ASSIGN TO fspec1 [fspec2] ...

AREAS
Cobol Gestion des Fichiers 5-1 Cobol Gestion des Fichiers 5-2
ORGANIZATION IS INDEXED
2.1.3. Exemple de FILE-CONTROL
SEQUENTIAL
ACCESS MODE IS RANDOM ENVIRONMENT DIVISION.
DYNAMIC *
*
RECORD KEY IS nd-4 CONFIGURATION SECTION.
SOURCE-COMPUTER.xxx.
[ALTERNATE RECORD KEY IS nd-5 [WITH DUPLICATES]]... OBJECT-COMPUTER.xxx.
*
[FILE STATUS IS nd-3]. *
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT ARTICLES-S ASSIGN TO ARTICLES-S-EX
ORGANIZATION IS SEQUENTIAL ACCESS MODE IS SEQUENTIAL.
♦ Par défaut, organisation et accès sont considérés comme séquentiels. SELECT ARTICLES-R ASSIGN TO ARTICLE-R-EX
♦ A chaque phrase SELECT doit correspondre un paragraphe FD. ACCESS MODE IS RANDOM RELATIVE KEY IS RK.
SELECT MOUVEMENTS ASSIGN TO MVTS-EX
♦ Les spécifications de fichiers permettent l’assignation d’un nom externe au nom de fichier interne, et ORGANIZATION IS SEQUENTIAL MODE IS SEQUENTIAL.
sont spécifiques de l’implantation.
Ce programme manipule
♦ OPTIONAL indique que le fichier peut être absent ; dans ce cas, la condition de fin-de-fichier est
validée dès la première lecture. • un fichier ARTICLES-S, d'organisation séquentielle, sur disque, de numéro logique 1
♦ RESERVE spécifie, à titre documentaire, le nb de buffers d’E/S alloués au fichier. • un fichier ARTICLE-R, d'organisation relative, de numéro logique 2
♦ PADDING indique le caractère à utiliser pour compléter les blocs incomplets. • un fichier MOUVEMENTS, d'organisation séquentielle, de numéro logique 3
♦ RECORD DELIMITER traite des enregistrements de longueur variable.

2.2. Le paragraphe facultatif I-O CONTROL
♦ FILE STATUS définit la zone de WORKING-STORAGE SECTION accueillant le code de retour de
l’opération d’E/S (cf ci-après). Il spécifie, le cas échéant, la zone mémoire d'E/S qui doit être partagée par différents fichiers :
♦ Les autres clauses sont définies par la suite. [SAME [RECORD] AREA FOR fichier1 ,fichier 2 ...]...
Ceci équivaut à une redéfinition de zone.
3. Data Division 4. Procedure Division
Il faudra y inclure une FILE SECTION permettant de définir la structure de chaque fichier et celle des 4.1. Ouverture et fermeture d'un fichier
enregistrements correspondants.
Tout fichier manipulé dans un programme doit être ouvert auparavant et fermé en fin de traitement.
INPUT fichier ...

3.1. Syntaxe générale OUTPUT fichier ...
OPEN I-O fichier ...
Pour toutes les organisations EXTEND fichier ...
DATA DIVISION.
FILE SECTION. CLOSE fichier1 WITH NO REWIND ...
LOCK
FD fich BLOCK CONTAINS [ent-1 TO] ent- 2 RECORDS

CHARACTERS ♦ L'ouverture rend disponible le fichier, prépare en mémoire centrale une zone enregistrement associée
au programme, vérifie les étiquettes en INPUT ou les crée en OUTPUT.
♦ Un pointeur d'enregistrement courant est positionné pour désigner le premier enregistrement à traiter
DATA RECORD IS nd-1, [nd-2]... pour les fichiers en lecture (INPUT) ou en mise à jour (I-0). Ce premier enregistrement est
RECORDS ARE
déterminé en fonction de l'organisation du fichier (premier enregistrement physique pour les fichiers
séquentiels, enregistrement de clé donnée, valide, pour les autres organisations).
LABEL RECORD IS STANDARD
RECORDS ARE OMITTED ♦ L'ouverture en mode OUTPUT positionne le pointeur d'enregistrement courant sur l'espace
correspondant au premier enregistrement du fichier.
[RECORD CONTAINS [ent-2 TO ] ent-3 CHARACTERS]

♦ L'ouverture en mode EXTEND positionne le pointeur d'enregistrement courant sur l'espace disponible
se trouvant après le dernier enregistrement du fichier et permet de ce fait l'adjonction de nouveaux
description d'article ..... enregistrements en fin de fichier (uniquement pour fichiers d'organisation séquentielle).
♦ Pour les rajouts d'enregistrements il faudra ouvrir le fichier :

Toutes les clause sont facultatives en ANS85
• soit en mode I-O ou OUTPUT pour les fichiers non séquentiels, et en accès non séquentiel,
♦ La clause BLOCK n'est utile que pour les fichiers sur bande et spécifie la taille d'un bloc.
• soit en mode EXTEND, pour les fichiers séquentiels.
♦ Les noms de données nd-1, nd-2, ... correspondent aux noms attribués à chaque description d'article.
Ils correspondent à des redéfinitions de la zone d'entrée-sortie du fichier. ♦ L'instruction CLOSE est indispensable pour :
♦ Seule la clause LABEL peut être obligatoire et précise la présence (STANDARD) ou l'absence • éviter que le fichier ne reste à l'issue du programme dans un état indéfini qui pourrait
(OMITTED) d'étiquettes pour le fichier, selon l'organisation et le support retenus. Elle n'est empêcher de la rouvrir (fichier perdu)
significative que pour les fichiers sur bande.
• éviter la perte des derniers enregistrements écrits qui se trouveraient encore dans le buffer
d'entrée-sortie (buffer incomplet).
4.2. Opérations possibles sur les fichiers Après une lecture réussie, le pointeur d'enregistrement désigne le prochain enregistrement valide pour les
fichiers en accès séquentiel. Dans les autres cas, le pointeur est positionné sur l'enregistrement identifié
par la clé. La longueur des enregistrements du fichier réel doit être identique, à celle de la zone d'entrée
Mode d’Accès Instruction INPUT OUTPUT I-O EXTEND associée au fichier (cas d'un fichier avec des enregistrements de longeur fixe) ; elle doit être dans tous les
Séquentiel READ X X cas inférieure ou égale à celle de la zone d'entrée (cas d'un fichier avec des enregistrements de longueur
WRITE X X variable).
REWRITE X
Random READ X X
WRITE X X 4.2.2. WRITE
REWRITE X
START L'instruction provoque l'écriture d'un enregistrement dans un fichier ouvert en OUTPUT, I-O ou
DELETE X EXTEND. Elle sera utilisée sous la forme
Dynamic READ X X
WRITE X X Format 1(en accès séquentiel) WRITE enreg [FROM nd-1]
REWRITE X [END-WRITE]
START X X
DELETE X
Format 2 (en accès sélectif) WRITE enreg [FROM nd-1]
[INVALID KEY phrase impérative-1]
4.2.1. READ [NOT INVALID KEY phrase impérative-2]

[END-WRITE]
L'instruction provoque la lecture d'un enregistrement ; il sera utilisé sous la forme
Format 1(accès séquentiel) READ fich [NEXT] RECORD [INTO nd-1] L'instruction WRITE délivre un enregistrement au système de gestion de fichier. Cet enregistrement n'est
[AT END phrase impérative1] alors plus disponible dans la zone de sortie associée au fichier (paragraphe FD de la DATA DIVISION),
à moins que l'exécution de l'instruction WRITE n'échoue (violation de limite de fichier ou clé invalide par
[NOT AT END phrase impérative2] exemple).
[END-READ]
Même remarque que pour la lecture : la longueur des enregistrements du fichier réel doit être compatible
avec la description du fichier dans programme COBOL.
Pour les fichiers d'organisation indexée, une écriture en accès séquentiel suppose que les enregistrements
Format 2 (accès sélectif) READ fich RECORD [INTO nd-1] [KEY IS nd] sont triés dans l'ordre croissant des clés.
4.2.3. Options READ... INTO... et WRITE ... FROM ...
[END-READ] Elles permettent de combiner en une seule instruction les instructions de lecture ou d'écriture classqiue et
les transferts entre le buffer d'entrée-sortie et une zone de travail (définie par exemple en WORKING-
STORAGE) et inversement.
L'option KEY permet d'indiquer la clé à utiliser pour la recherche, dans le cas d'emploi de clès alternées ;
elle sera aussi valable, en accès dynamique pour les lectures séquentielles consécutives, jusqu'à Ainsi :
établissement d'une nouvelle référence. (fichiers indexés seulement). READ fichier INTO donnée ...
équivaut à READ fichier ...
L'option NEXT est utilisée pour une lecture séquentielle en accès dynamique. MOVE enreg. TO donnée
L'instruction READ rend disponible l'enregistrement du fichier désigné par le pointeur. il est accessible • enreg. étant une description d'article au niveau FD du fichier correspondant
dans la zone d'entrée décrite en DATA DIVISION sous la rubrique FD.
• donnée est une zone quelconque de la DATA DIVISION.
Le fichier doit être ouvert en mode INPUT ou I-O. En cas de fin de fichier ou de clé invalide, la phrase
introduite par les clauses AT END ou INVALID KEY est exécutée. Dans le cas contraire, (lecture De même :
réussie) le programme se poursuit normalement en séquence.
WRITE enreg. FROM donnée ...
équivaut à MOVE donnée TO enreg.
WRITE enreg .... comparaison. En cas d'échec, la condition INVALID KEY est validée et la phrase impérative
correspondante est exécutée (le pointeur est alors dans une position indéfinie). nd-1 est le nom de clé
4.2.4. REWRITE donné en INPUT-OUTPUT SECTION (clause RELATIVE KEY ou RECORD KEY).
L'instruction permet la réécriture d'un enregistrement modifié dans un fichier ouvert en I-O. Exemple :
Format1 (accès séquentiel) REWRITE enreg [FROM nd-1] START FICH KEY IS > RKEY INVALID KEY.
Format 2 (accès sélectif) REWRITE enreg [FROM nd-1] [INVALID KEY ph-imp1] ou encore
[NOT INVALID KEY ph-imp2] START FICH2 INVALID KEY.

[END-REWRITE]
L'enregistrement modifié est le dernier lu en accès séquentiel, celui pointé par la clé pour les autres cas.
Cet ordre n'est pas utilisable pour les fichiers sur bande.
4.2.5. DELETE
L'instruction permet la suppression d'un enregistrement dans un fichier d'organisation relative ou

séquentielle indexée. Elle s'écrit :
DELETE fichier RECORD [INVALID KEY ph-imp1]
[NOT INVALID KEY ph-imp2]

[END-DELETE]
L'enregistrement supprimé est le dernier lu en accès séquentiel, celui pointé par la clé pour les autres cas.
4.2.6. START
L'instruction permet le positionnement dans un fichier d'organisation relative ou séquentielle indexée, en

vue d'une lecture séquentielle à partir de l'enregistrement pointé.Elle s'écrit :
IS EQUAL TO
IS =
START fichier KEY IS GREATER THAN nd-1
IS >
IS NOT LESS THAN
IS NOT <
[INVALID KEY ph-imp1]
[NOT INVALID KEY ph-imp2]

[END-START]
Cette instruction ne concerne que les fichiers relatifs ou indexés, en accès séquentiel ou dynamique,
ouverts en mode INPUT ou I-O. Si KEY IS n'est pas spécifié, l'option par défaut est KEY IS EQUAL
TO nd-1.
Le système de gestion de fichiers compare les clés des enregistrements avec la valeur fournie par nd1 et
positionne le pointeur d'enregistrement courant sur le premier enregistrement valide dont la clé satisfait la
Cobol Gestion des Fichiers 5-9 Cobol Gestion des Fichiers 5 - 10

fich-1 [fich-2]...
5. Erreurs d'entrée-sortie et code d'état du fichier
• Une phrase USE par section, après l'en-tête.
• L'organisation et l'accès des fichiers concernés (implicitement ou explicitement) peuvent être
Toute opération sur un fichier (ouverture, lecture, écriture, suppression, etc...) entraîne la mise à jour par différents.
le SGF, d'un code d'état du fichier indiquant la réussite ou la nature de l'échec de l'opération en question. • Une référence explicite à un fichier prévaut sur la référence par le mode d'ouverture.
Ce code est accessible au programmeur et lui permet de gérer lui-m^me les erreurs d'Entreés/sorties, • EXCEPTION et ERROR sont équivalents.
d'interrompre ou de poursuivre d'exécution du programme, d'afficher des messages, etc... La valeur de ce
code est rangée par le SGF dans la rubrique désignée par la clause FILE STATUS de la phrase A la suite d'une erreur d'E/S/, le système de gestion des fichiers provoquera éventuellement l'exécution
SELECT. dela section déclarative associée au fichier concerné ; après exécution de cette section, le contrôle
reviendra à l'instruction suivant celle qui a déclenché l'appel.
5.1. FILE STATUS Le traitement général d'une erreur d'E/S est donc le suivant :
S'il est utilisé, le FILE STATUS doit être 1. Le SGF renseigne le code-état associé au fichier (s'il a été défini dans le programme)
• défini dans l'INPUT-OUTPUT SECTION (phrase SELECT correspondant au fichier ; clause
FILE STATUS) 2. Si l'instruction d'E/S a provoqué une erreur standard (i.e. validant une locution AT END ou
INVALID KEY) :
• décrit dans la DATA DIVISION (PICTURE XX)
2.a) Si la locution est fournie, la phrase impérative correspondant est exécutée ; puis le
programme se poursuit en séquence .
• analysé selon la grille jointe
2.b) sinon, si une section déclarative existe pour ce fichier, elle est exécutée, puis le
5.2. Gestion des erreurs d'entrées / sortie programme se poursuit en séquence.
2.c) Si aucun des traitements en a) ou en b) n'est prévu, le programme sera soit interrompu,
Le traitement des erreurs d'E/S s'effectuera à l'aide d'un ou plusieurs outils suivants :
(soit poursuivi en séquence, suivant le système utilisé).
• analyse du code-état associé au fichier
• utilisation des locutions standards AT END et INVALID KEY 3. Si l'erreur d'E/S est NON-STANDARD :
• utilisation de sections de déclaratives le traitement est le même qu'en 2, à partir de 2.b)
Les déclaratives sont constituées d'un ensemble de sections, formant un bloc autonome.
Elles sont regroupées en début de PROCEDURE DIVISION. A chaque section est associée une phrase
USE, spécifiant le rôle (cas d'emploi) de la déclarative. L'ensemble des déclaratives est délimité par un
en-tête et un pied:
PROCEDURE DIVISION.
DECLARATIVES.
………
………
END DECLARATIVES.
Constituant une entité séparée de la PROCEDURE DIVISION, il ne peut y avoir (sauf cas particulier)
de référence à des blocs standards de celle-ci depuis une section de DECLARATIVES (et
réciproquement).
Une section de déclaratives traitant les erreurs d'E/S sera identifiée par une phrase USE au format suivant
:
I-O
INPUT
USE AFTER STANDARD ERROR PROCEDURE ON OUTPUT
EXCEPTION EXTEND
Cobol Gestion des Fichiers 5 - 11 Cobol Gestion des Fichiers 5 - 12

6. Codes d’Etat des Opérations d’E/S
7. Le Module Séquentiel
Type S1 S2 Seq Ind Rel Signification
OK 0 0 Entree-Sortie réussie. 7.1 Les opérations d'entrées / sorties sur un fichier d'organisation séquentielle
0 2 Entrée-Sortie réussie, mais le système a détecté une clé dupliquée.
0 4 Lecture faite, mais l'enregistrement n'a pas la longueur déclarée dans L'accès à un fichier d'organisation séquentielle ne peut être que séquentiel.
le programme
0 5 Tentative d'OPEN d'un fichier OPTIONAL qui n'est pas présent. A l'ouverture, le pointeur d'enregistrement se positionne sur le premier enregistrement disponible du
En mode I-O ou EXTEND, le fichier est créé. fichier. Les opérations possibles sont :
0 7 A l'occasion d'une instruction CLOSE ou OPEN avec une des • la lecture pour un fichier ouvert en mode INPUT ou I-O
clauses NO REWIND, REEL/UNIT ou REMOVAL, on constate que le • l'écriture pour un fichier ouvert en mode OUTPUT ou EXTEND
fichier n'est pas sur bande magnétique. • la réécriture pour un fichier ouvert en mode I-O
AT END 1 0 Fin de fichier en lecture.
1 4 Pour les fichiers relatifs, le nombre d'enregistrements du fichier
dépasse la 7.1.1. LECTURE
capacité de la clé relative.
INVALID 2 1 Problème de séquence en traitement séquentiel. Par exemple, on a lu ♦ Elle concerne l'enregistrement indiqué par le pointeur d'enregistrement courant. L'ordre de lecture
KEY un s'écrit suivant le Format 1.
enregistrement et on veut le réécrire avec une clé différente.
2 2 On veut écrire un enregistrement alors qu'il en existe déjà un avec une ♦ Le nom de fichier est défini dans le paragraphe FD de la DATA DIVISION.
clé identique.
2 3 Tentative d'accès à un enregistrement qui n'existe pas. ♦ La locution facultative AT END permet l'exécution d'instructions (calculs, branchements, etc...) au
2 4 Tentative de WRITE hors des limites d'un fichier relatif ou indexé. cas où le pointeur d'enregistrement pointe sur la fin de fichier. Dans ce cas le code d'état du fichier
Erreur 3 0 Erreur permanente. prend la valeur "10" et la lecture échoue. Le repositionnement en début de fichier s'obtient en
Permanente fermant puis rouvrant ce dernier. (CLOSE... suivi de OPEN...).
3 5 OPEN sur un fichier, non OPTIONAL, qui n'est pas présent.
3 7 OPEN sur un fichier supposé en accès direct qui, en fait, ne l'est pas. ♦ A l'issue d'une lecture réussie, le pointeur d'enregistrement pointe sur l'enregistrement suivant.
3 8 OPEN sur un fichier au préalable fermé par CLOSE WITH LOCK .
3 9 OPEN impossible suite à un conflit entre la description Cobol et la 7.1.2. ECRITURE
réalité.
Erreur 4 1 Tenœtive d'OPEN sur un fichier déjà ouvert. ♦ Elle ne peut se faire que dans un fichier ouvert en mode OUTPUT ou EXTEND, au Format 1.
Logique
4 2 Tenmtive de CLOSE sur un fichier non ouvert. ♦ enreg désigne une description d'article de ce fichier (voir paragraphe FD).
4 3 Tentative de DELETE ou REWRITE sur un enregistrement qui n'a pu
être lu par un READ précédent. ♦ Un nouvel enregistrement, dont la valeur est celle de la zone de sortie associée au fichier, est créé à
4 4 Tentative de WRITE ou de REWRITE d'un enregistrement dont la suite des enregistrements existants.
la dimension ne correspond pas à la description de fichier
4 6 Tentative de lecture séquentielle d'un enregistrement alors que la
lecture 7.1.3. RE-ECRITURE
précédente n'a as réussi.
4 7 Tentative de READ ou START (fichiers relatifs ou indexés) sur un Elle est utilisée pour modifier un enregistrement existant. Plus précisément, elle permet de
fichier non ouvert en INPUT ou en I-O. réécrire sur le fichier, après modification, le dernier enregistrement obtenu par une lecture réussie.
4 8 WRITE sur un fichier non ouvert en OUTPUT, en I-O ou en
EXTEND. ♦ Format 1
4 9 Tentative de DELETE ou REWRITE sur un fichier non ouvert en I-0.
♦ Le fichier doit être ouvert en mode I-O.
Erreur 9 1 Fichier endommagé.
Run-time
9 X Erreur irréparable - fichier endommagé. ♦ La longueur de l'enregistrement réécrit doit être égale à celle de l'enregistrement modifié (donc lu).

7.2. CREATION DE FICHIERS D'EDITION
8. Le Module Indexé
On ne modifie jamais un fichier d'édition qui sera de ce fait toujours un fichier d'organisation
séquentielle ouvert en mode OUTPUT. Afin de répondre aux impératifs de la mise en page, le
programmeur dispose au niveau de l'ordre WRITE d'une option complémentaire lui permettant de gérer 8.1. Description d'un fichier d'organisation séquentielle indexée
l'avance du papier (sauts de lignes et de page).
Par ailleurs, il est nécessaire de préciser pour un fichier d'édition un mode particulier au niveau de la
♦ Chaque enregistrement est repéré par une clé d'enregistrement faisant partie intégrante de cet
phrase SELECT, clause ORGANIZATION du paragraphe FILE-CONTROL.
enregistrement. Cette clé précisée par la clause RECORD KEY est une rubrique alphanumérique qui
occupe une position fixe dans l'enregistrement.
7.2.1. Syntaxe générale de l'ordre La déclaration d'un tel fichier en COBOL se fera de la façon suivante, par exemple :
WRITE enreg [ FROM nd-1] SELECT HISTO ASSIGN TO FLCH
ORGANIZATION IS INDEXED
lit-1 ACCESS IS DYNAMIC
nd-2 LINE RECORD KEY IS CLE-HISTO
BEFORE ADVANCING ent-1 LINES STATUS IS ST-HISTO.
AFTER mnémonique
PAGE La description de la clé CLE-HISTO est faite dans la DATA DIVISION dans la description du fichier
HISTO, par exemple
AT END-OF-PAGE ph-impérative-1
EOP FD HISTO RECORD STANDARD
DATA RECORD ENRE-HISTO.
NOT AT END-OF-PAGE ph-impérative-2 01 ENR-HISTO.
EOP 02 CLE-HISTO.
03 DATE-MOUV-HISTO PIC X(6).
[END-WRITE] 03 NOCPTE-HISTO PIC X(6).
03 NO-ORDRE-HISTO PIC X(3).
02 ...
7.2.2. Exemples .....
WRITE ART-STCK AFTER ADVANCING PAGE;
écriture en début de page suivante
WRITE ART-STCK AFTER ADVANCING 2 LINES. 8.2. L'accès séquentiel
WRITE ART-STCK AFTER ADVANCING N LINES.
(la valeur de N ayant été précisée précédemment).
Les enregistrements sont atteints dans l'ordre croissant des clés d'enregistrements.
écriture après saut de 2 (ou N) lignes
8.2.1. ECRITURE
WRITE ART-STCK BEFORE 3 LINES.
saut de 3 lignes après l'écriture.
♦ WRITE Format 2
Remarque importante concernant les fichiers d'organisation séquentielle
On ne peut pas supprimer un enregistrement dans un fichier d'organisation séquentielle. ♦ Elle permet d'écrire un nouvel enregistrement à la suite des enregistrements déjà créés, le fichier
étant ouvert en mode OUTPUT. La condition INVALID KEY est validée si la clé d'enregistrement est
inférieure ou égale à la dernière valeur de clé écrite ou si l'espace alloué au fichier est rempli.
8.2.2. LECTURE
♦ READ Format 1
♦ Elle délivre l'enregistrement de clé immédiatement supérieure à celui qui vient d'être traité, le fichier
étant ouvert en mode INPUT ou I-O.
8.2.3. SUPPRESSION

♦ DELETE fichier RECORD
♦ Elle concerne un fichier ouvert en mode I-O provoque le remplacement de l'enregistrement identifié
♦ Elle permet la suppression du dernier enregistrement lu, le fichier étant ouvert en mode I-O. par la clé par les nouvelles données. La clause INVALID KEY est validée si un tel enregistrement
n'existe pas.
Exemple :
READ HISTO
.
. 8.4. L'accès dynamique (DYNAMIC)
DELETE HISTO.
8.4.1. Instructions classiques
8.2.4. REECRITURE ♦ L'utilisation d'un fichier en accès dynamique permet "indifféremment" l'accès sélectif et l'accès
séquentiel au cours du même programme.
♦ Format 2
♦ Les instructions WRITE, REWRITE, DELETE correspondent à l'utilisation en accès sélectif
♦ Même procédure que pour les fichiers séquentiels ; la clause INVALID KEY est validée si la clé (affectation ou suppression selon la clé).
d'enregistrement ne correspond pas à celle du dernier article lu.
♦ La lecture sélective se fait par l'instruction au Format 2 après avoir mis à jour la clé.
♦ La lecture séquentielle se traduit par l'instruction

8.3. L'accès sélectif (RANDOM)
READ fichier NEXT RECORD [INTO nd-2] [AT END phrase]
Les enregistrements sont recherchés par comparaison de la clé d'enregistrement avec les valeurs de clés
des enregistrements existant dans le fichier. Dans ce cas le système recherche l'enregistrement suivant l'ordre des clés.
♦ L'accès dynamique permettra ainsi, par exemple, de lire séquentiellement un fichier à partir d'un
8.3.1. ECRITURE enregistrement correspondant à une certaine clé. Pour réaliser ce positionnement on utilise
l'instruction START décrite au paragraphe 4.2.6.
♦ Format 2
♦ Le fichier étant ouvert en mode I-O ou OUTPUT, l'enregistrement est inséré logiquement dans le 8.4.2. POSITIONNEMENT (START)
fichier en tenant compte de l'ordre croissant des clés. Si un enregistrement valide de même clé existe
déjà, la clause INVALID KEY est validée. ♦ Le système compare la valeur figurant dans nd-1 avec les valeurs correspondantes dans les
enregistrements du fichier et sélectionne le premier enregistrement satisfaisant à cette comparaison.
Pour être accessible celui-ci devra faire l'objet d'une lecture.
8.3.2. LECTURE
♦ nd-1 peut être la rubrique introduite par la clause RECORD KEY ou toute rubrique incluse dans cette
♦ Format 2 dernière, partant de sa 1ère position gauche.
♦ L'enregistrement dont la clé correspond à la valeur courante de la rubrique clé d'enregistrement est ♦ Si la clause KEY est omise, la comparaison porte sur la clé d'enregistrement complète et l'égalité
délivré dans la zone d'entrée associée au fichier. Si cet enregistrement n'existe pas, la clause des valeurs est recherchée.
INVALID KEY est valide. Le fichier est ouvert en mode I-O ou INPUT.
♦ Le fichier est ouvert en INPUT ou I-O et l'accès est séquentiel ou dynamique.
8.3.3. SUPPRESSION Exemple : MOVE CLE-LUE TO CLE-HISTO.
START HISTO KEY NOT < CLE-HISTO INVALID KEY.
Elle provoque la suppression logique dans le fichier de l'enregistrement identifié par la clé. La clause ….
INVALID KEY est validée si l'enregistrement n'existe pas. Le fichier est ouvert en mode I-O. READ HISTO NEXT.
8.5. Clés secondaires

8.3.4. REECRITURE
Une clé secondaire (ou alternée) permet d'accéder aux articles d'un ficher indexé suivant un second
♦ Format 2

critère; ce sera donc une rubrique alphanumérique présente dans chaque article. Un index secondaire 9.1. Description d'un fichier d'organisation relative
spécifiant cette clé aura été préalablement créé et chargé.
Chaque enregistrement est repéré par sa position relative par rapport au début du fichier. Cette position
est fournie par un entier positif défini par la clause RELATIVE KEY IS nd au niveau de la phrase
8.5.1. Déclaration d'une clé secondaire SELECT de ce fichier.
♦ Elle se fait par la clause optionnelle SELECT FIART ASSIGN TO FLCH

ALTERNATE RECORD KEY IS nd-5 [WITH DUPLICATES] … ACCESS MODE IS RANDOM RELATIVE KEY IS CLE1.
de la phrase SELECT, où nd-5 désigne la clé secondaire. La description de la donnée CLE1 se fait dans la DATA DIVISION, il s'agit d'un entier non signé. Par
exemple :
♦ La locution DUPLICATES sera spécifiée si la valeur de l'indicatif supplémentaire peut ne pas être
unique dans le fichier (synonymes). * RELATIVE KEY DE FIART :
77 CLE1 PIC 99 value 1.
♦ On peut spécifier plusieurs clauses ALTERNATES (i.e. plusieurs clés secondaires), chaque clé étant
décrite dans l'article du fichier. Remarque :
Cette rubrique n'a pas le droit d'appartenir à une description d'article du fichier concerné.
Toutefois, rien ne s'oppose à ce que la donnée correspondante à la valeur de la clé soit incorporée dans
8.5.2. Utilisation d'une clé secondaire l'enregistrement par copie dans une rubrique portant un nom différent. On prendra garde cependant à
conserver la concordance des valeurs lors des mises à jour d'enregistrements. La clé relative d'un
Une clé alternée ne peut être spécifiée que dans les instructions de lecture sélective (READ) et de enregistrement ne peut bien sur être modifiée lors d'une mise à jour.
positionnement (START).
9.2. Les différents accès à un fichier relatif
8.5.2.1. Lecture sélective
Les fichiers d'organisation relative autorisent comme les fichiers indexés les trois accès :
READ fichier RECORD [INTO nd-1] [KEY IS clé] [INVALID KEY ph.imp] • séquentiel (SEQUENTIAL)
• sélectif (RANDOM)
Clé désignant la clé de référence pour la lecture (par défaut, c'est la clé primaire). Si le mode d'accès est • dynamique (DYNAMIC)
dynamique, la clé spécifiée servira aussi de référence pour les lectures séquentielles ultérieures jusqu'à
établissement d'une nouvelle clé de référence. L'utilisation des différentes instructions d'entrée et de sortie est rigoureusement semblable à celle décrite
dans le module indexé, auquel le lecteur se référera. Il suffit d'y remplacer la notion de clé
d'enregistrement par celle de clé relative. Il en est de même pour l'instruction START qui portera sur la
8.5.2.2. Positionnement clé relative.
La rubrique nd-1 dans la locution KEY de l'instruction START peut désigner une clé secondaire (ou une La gestion de cette clé pour les lectures et les écritures non séquentielles relève du programmeur qui
partie gauche de celle-ci). Elle devient alors clé de référence pour toutes les lectures séquentielles choisira une méthode de calcul de la clé adaptée au contexte de travail (voir les modes d'adressage relatif
ultérieures. des fichiers).
On notera qu'après une lecture séquentielle réussie, le système de gestion des fichiers met à jour la
rubrique, si la locution (facultative en séquentiel) RELATIVE KEY est spécifiée, en y chargeant la
valeur correspondant à l'enregistrement qui vient d'être lu. Il en est de même pour l'écriture
d'enregistrements en accès séquentiel. On peut ainsi constituer une table des clés relatives des différents
articles écrits au fur et à mesure de la création du fichier.
9. Le Module Relatif

2.2. Les symboles d'insertion simple
LES FORMATS EDITES Ce sont la virgule (,), l'espace (B), le zéro (0) et le slash (/).
Chaque symbole provoque la génération du caractère correspondant à condition de ne pas figurer dans
1.Principe de l'édition une partie de suppression de zéros non significatifs (cf. § 3 de ce chapitre).
Exemple : E2 PIC 9B999.99 décrit une rubrique de 8 caractères

L'édition consiste à transformer en mémoire centrale une valeur numérique ou alphanumérique pour MOVE 1500 TO E2 donne 1b500.00
en améliorer la présentation en vue de sa visualisation sur un support externe (écran, listing).
Attention !
Pour cela, deux techniques peuvent être utilisées : Ne pas confondre les symboles , et . ; la virgule n'assure pas l'alignement sur la marque décimale.
♦ l'insertion : on insère dans la suite des chiffres des caractères tels que le point, le signe (+ ou -), le
symbole monétaire, etc...
2.3. Les symboles d'insertion fixe
♦ la suppression et le remplacement de zéros non significatifs.
Ce sont le symbole monétaire ($) et les caractères d'édition du signe (+, -, CR, DB). Ils ne doivent
Le recours à ces moyens s'exprime par des symboles spéciaux qui figurent dans la description de apparaître qu'une seule fois par format (PICTURE).
l'image de la rubrique dite éditée ou d'édition (clause PICTURE).
• Le symbole $ doit être le premier symbole du format ; il peut toutefois être précédé d'un symbole
Pour réaliser l'édition d'une valeur, il suffit alors de la transférer dans une rubrique d'édition ; ceci peut + ou d'un symbole -.
se faire par une instruction MOVE (voir règles chap. 3 paragraphe 4.8) ; si la valeur est le résultat d'un
calcul, la rubrique d'édition peut être précisée par l'option GIVING de la dernière instruction • Les symboles + et - se placent en première ou en dernière position du format ; le symbole +
arithmétique. provoque l'édition du signe sous forme d'un caractère + (valeur positive) et d'un caractère - (valeur
négative) ; le symbole - provoque l'édition d'un espace si la valeur est positive et d'un caractère - si
la valeur est négative.
Attention !
Exemple :
• Une rubrique d'édition est toujours décrite en USAGE DISPLAY. E3 PIC +$99 +$31
E4 PIC $99 $31
La valeur obtenue après tranformation n'est en général plus de type numérique pur : de ce fait E5 PIC 99- 31b
elle ne peut intervenir dans des calculs ultérieurs.
MOVE 31 TO E3 E4 E5 donne les résultats respectifs
2. Les symboles d'insertion • Les symboles CR et DB, exclusifs des symboles + et -, se placent en dernière position du format ;
ils provoquent la génération des chaînes respectives "CR" et "DB" si la valeur est négative ; sinon
ils sont remplacés par deux espaces.
Exemple :
2.1. Le point décimal
E6 PIC 99DB
Le point . remplace le symbole V ; il assure l'alignement sur la marque décimale mais en plus génère
un caractère ".". MOVE +31 TO E6 donne 31bb
MOVE -31 TO E6 donne 31DB
Exemple : E1 PIC 99.99 décrit une rubrique de 5 caractères
MOVE 2.51 TO E1 donne 02.51
Cobol Edition 6-1 Cobol Edition 6-2

3. Les symboles de suppression et de remplacement
2.4. Les symboles d'insertion flottante :
Le principe est le même que celui que nous venons d'étudier pour l'insertion flottante excepté le fait
Ce sont le symbole monétaire ($) et les caractères d'édition du signe (+ et -) ; l'insertion flottante est que tous les zéros concernés sont remplacés par le même caractère.
indiquée par la présence d'au moins deux occurrences consécutives de l'un des trois symboles cités.
Ces trois symboles s'excluent mutuellement dans ce cas.
• La chaîne des symboles "flottants" ne peut être précédée que de symboles d'insertion simple ou 3.1. Remplacement par des espaces
fixe et éventuellement du point décimal ; elle ne peut être entrecoupée que par des symboles
d'insertion simple ou par le point décimal ; dans ce dernier cas, la partie fractionnaire de la valeur Il s'agit du symbole Z ; il représente un chiffre.
doit être décrite en totalité par le màme symbole "flottant".
Exemple 1 :
• Une occurrence d'un de ces symboles représente un chiffre ; les zéros qui figureraient à gauche
sont remplacés par des espaces sauf celui qui précède le premier chiffre non nul : celui-ci sera E10 PIC Z(5) décrit une rubrique de 5 caractères
remplacé par $ ou + ou - (règles identiques à celle de l'insertion fixe). MOVE 500 TO E10 donne bb500
Exemple 1 : Exemple 2 :
E7 PIC $$$99 décrit une rubrique de 5 caractères
E11 PIC Z(5).ZZ décrit une rubrique de 8 caractères
MOVE 500 TO E7 donne b$500 MOVE 500 TO E11 donne bb500.00
MOVE 1000 TO E7 donne $1000 MOVE 0.05 TO E11 donne bbbbb.05
MOVE 1 TO E7 donne bb$01 MOVE 0 TO E11 donne 8 espaces
Dans le dernier cas, l'édition des chiffres est "forcée" à la rencontre du premier symbole 9, d'où le Exemple 3 :
zéro.
E12 PIC ZZ,ZZZ décrit une rubrique de 6 caractères
Exemple 2 :
MOVE 1000 TO E12 donne b1,000
E8 PIC $(4).$$ décrit une rubrique de 7 caractères MOVE 20 TO E12 donne bbbb20
MOVE 50.1 TO E8 donne b$50.10 MOVE 0 TO E12 donne 6 espaces
MOVE 0.01 TO E8 donne bbb$.01
Dans le dernier cas, l'édition est forcée par le point décimal et par le fait que la partie fractionnaire est 3.2. Remplacement par des astérisques
non nulle ; le chiffre 0 édité a un sens et ne peut être supprimé.
MOVE 0 TO E8 donne 7 espaces Il s'agit du symbole * ; son utilisation est identique à celle du symbole Z.
A noter que $(4).$9 est un format incorrect. Exemple 1 :
E13 PIC *(5) décrit une rubrique de 5 caractères

• Si la chaîne des symboles "flottants" contient des symboles d'insertion simple, ceux-ci sont MOVE 100 TO E13 donne **100
remplacés par le caractère qui leur correspond à condition de ne pas figurer dans une partie de MOVE 0 TO E13 donne *****
remplacement des zéros de gauche ; sinon ils sont systématiquement remplacés par des espaces.
Exemple 2 :
Exemple 3 :
E14 PIC *(5).** décrit une rubrique de 8 caractères
E9 PIC ++,++9.99 décrit une rubrique de 9 caractères MOVE 0 TO E14 donne *******
MOVE 1000 TO E9 donne +1,000.00

MOVE -50 TO E9 donne bbb -50.00
MOVE 0 TO E9 donne bbbb+0.00

4. Remarques générales
7. Modification du sens de certains symboles d'édition
♦ la longueur d'une rubrique d'édition est constante et correspond au nombre de symboles du
format.
Les règles standards appliquées sont celles du système numérique anglo-saxon. Il est possible de
♦ parmi les dispositifs étudiés, certains s'excluent mutuellement ainsi, pour un format donné : réaliser deux adaptations pour se rapprocher du système français.
• les symboles Z et * et d'insertion s'excluent. Elles se font dans le paragraphe SPECIAL-NAMES de l'ENVIRONMENT DIVISION.
• on ne peut faire qu'une seule spécification du signe (par + ou - en insertion fixe à gauche
ou à droite, par CR ou DB, par + ou - en insertion flottante). 7.1. Changement de symbole monétaire
♦ insertion fixe et insertion flottante du symbole monétaire s'excluent. CURRENCY SIGN IS lit
♦ Le panachage à l’intérieur d’un même format des symboles d’édition et du symbole 9 est possible, lit est un littéral non numérique d'un caractère, différent des chiffres, des caractères spéciaux, de
à condition de respecter les deux règles suivantes : l'espace et des lettres A, B, C, D, P, R, S, V, X, Z.
1) Les symboles d’édition doivent figurer en début de format, les symboles 9 en fin de format. CURRENCY IS "F" oblige le programmeur à remplacer toutes les occurrences du caractère $ dans
2) La partie fractionnaire de la valeur éditée doit être décrite en totalité à l’aide du même symbole. les formats numériques édités par la lettre F.
Exemple : E17 PIC F(5)9.99
5. Rubrique numérique éditée 7.2. Inversion des rôles de la virgule et du point
Une rubrique numérique éditée peut être décrite à l'aide de tous les symboles étudiés. DECIMAL-POINT IS COMMA
Il faut toutefois se souvenir que la valeur qu'elle contient est assimiliée à une chaîne de caractères ; ce Dans les formats édités et les littéraux numériques, le point devient un symbole d'insertion simple et
fait a une incidence sur l'utilisation des instructions arithmétiques, de l'instruction MOVE et de la c'est la virgule qui assure l'alignement sur la marque décimale.
clause VALUE
Exemple 1 : Exemple : E18 PIC Z.ZZZ.ZZ9,99
E15 PIC *(4)9.99 VALUE "**21.50". MOVE 1500000 TO E15 donne 1.500.000,00
littéral non numérique
L'utilisation conjointe de la clause BLANK est possible à condition que le format ne contienne pas de
symbole *.
6. Rubrique alphanumérique éditée
Une rubrique alphanumérique éditée ne peut être décrite que par les symboles A, X, 9 et les symboles
d'insertion simple B, 0, /
Exemple : E16 PIC XXBXXBXX
MOVE "ABCDEF" TO E15 donne ABbCDbEF

8. Gestion de page La phrase impérative est exécutée, après que soit effectuée l'écriture :
♦ dès que l'on atteint la zone FOOTING (i.e. dès que la valeur de LINAGE-COUNTER est
8.1. Définition de la page logique supérieure ou égale à entier-2)
♦ ou si l'instruction fait déborder de la page (i.e. dès que LINAGE-COUNTER est supérieur à entier-
Il est possible de définir une PAGE LOGIQUE en termes de nombres de lignes. Une page logique 1).
comprend 3 zones :
Exemple :
• une marge supérieure de page (TOP) FD IMPRIM LABEL RECORD STANDARD
LINAGE 50 TOP 6 BOTTOM 10.
• un corps de page (LINAGE) 01 LIGNE.
• une marge inférieur de page (BOTTOM) -
-
-
♦ On appelle pied de page (FOOTING) un certain nombre de lignes défini en fin de corps. La -
définition de page se fera dans la phrase FD associée au fichier d'édition par les clauses: WRITE LIGNE AT EOP PERFORM FIN-PAGE.
-
-
LINAGE IS entier-1 LINES WITH FOOTING AT entier-2 FIN-PAGE. PERFORM SOUS-TOTAL ...
nd-1 nd-2 WRITE LIGNE FROM EN-TETE AFTER PAGE.
LINES AT TOP entier-3 LINES AT BOTTOM entier-4

nd-3 nd-4
N-B : 1) On pourrait aussi tester après l'écriture d'une ligne "normale" :
WRITE LIGNE
♦ Les entiers (ou les rubriques entières non signées) indiquent le nombre de lignes composant la IF LINAGE-COUNTER > 44 PERFORM FIN-PAGE.
zone concernée ; la valeur par défaut de TOP et BOTTOM est zéro, celle de FOOTING est égale
au corps de page. 2) COBOL prévoir un module d'édition (REPORT-WRITER) complet permettant la
description de l'aspect physique et la production d'états structurés.
♦ La page logique est un concept indépendant de la page physique ; le fichier d'édition est formé
d'une suite de pages logiques CONTIGUES.
♦ La clause LINAGE entraîne la génération automatique d'un compteur de lignes, LINAGE-

COUNTER, contenant à tout moment le n° de ligne auquel l'imprimante est positionné à
l'intérieur du corps de page courant. Il doit être qualifié par le nom du fichier s'il y a plusieurs
fichiers d'édition il est réinitialisé à 1 à chaque changement de page logique.
8.2. Utilisation
Les locutions TOP et BOTTOM définissent les espacements (éventuellement variables) entre 2 pages
consécutives.Les valeurs associées à LINAGE et FOOTING permettent de détecter respectivement le
débordement de page et la fin de page et sont utilisées en relation avec la locution END-OF-PAGE
d'une instruction WRITE :
WRITE ... AT END-OF-PAGE phrase impérative-1

EOP
NOT AT END-OF-PAGE phrase impérative-2

EOP

Exercices
EMETTEUR RECEPTEUR
CONTENU IMAGE IMAGE CONTENU
A 12345 S9(5) -ZZBZZ9V,99

B 00345 S9(5) $ZZBZZ9V,99
C 00000 S9(5) -ZZBZZ9V,99
D 00000 S9(5) $ZZBZZ9V,99
E 00000 S9(5) ZZBZZZ
F 12345 9(3)V99 $ZZBZZ9V,99
G 12345 9(5) $****9V,99
H 00234 9(5) $**B**9V,99
I 00000 9(5) $*****V,99
J 00000 9(5) $****9V,99
K 12345 99V9(3) $**B**9V,99
L 12345 9(5) $$$B$$9V,99
M 00345 9(5) $$$,$$9.99
N 00000 9(5) $$$B$$9V,99
O 12345 9(4)V99 $$$B$$9V,99
P 12345 V9(5) $$$B$$9V,99
Q -12345 S9(5) -ZZBZZ9V,99
R -00345 S9(5) -ZZBZZ9V,99
S 00123 S9(5) ---B---V,99
T -00005 S9(5) ---B---V,99
U 12345 S9(5) +ZZZZZV,99
V -12345 S9(5) +ZZBZZZV,99
W 00345 S9(5) ++++++V,99
X 12345 9(5) BB999V,99
Y 12345 S9(5) ZZZBZZZV,99CR
Z 00234 S9(5) ZZZBZZZV,99CR
Cobol Edition 6-9

COMMUNICATION INTER-PROGRAMME 3. Appel d'un sous-programme
1. Principes CALL nd-1 USING [BY REFERENCE] {nd-2} ... ...

lit-1 [BY CONTENT] {nd-2} ...
♦ Un programme principal (ou programme appelant) écrit en COBOL peut appeler un (ou
plusieurs) sous-programme(s) (ou programme(s) appelé(s) rédigés en COBOL ou dans un autre [ON OVERFLOW ph-impér1]
langage, et compilés séparément. Après édition de liens, l'ensemble constituera une seule unité
d'exécution. [ON EXCEPTION ph-impér-1]
[NOT ON EXCEPTION ph-impér-1]
♦ Le contrôle est passé au sous-programme et, après son exécution, le traitement du programme
principal reprend à l'instruction qui suit l'appel du sous-programme. [END-CALL]
♦ Dans la norme ANS74, Les données traitées ou paramètres sont communes aux deux programmes;
programme principal et sous-programme se transmettent, suivant un protocole fixé, les adresses
des paramètres (passage par adresses ou références) ; il n'y a donc PAS de duplication des ♦ lit-1 est le nom de programme appelé
valeurs.
♦ nd-1 est une donnée alphanumérique susceptible de contenir le nom du programme appelé.
La norme ANS85, permet au contraire le choix, lors de l'appel du sous-programme, entre le
passage par par valeurs (CONTENT) et par adresses (REFERENCE). ♦ nd-2 ... sont les paramètres dits d'appels, décrits dans la DATA DIVISION du programme
principal et de niveau 01 ou 77, (ou autre). Les index et les structures de fichier (FD) ne doivent
♦ Dans le sous-programme, les paramètres doivent être décrits en LINKAGE SECTION ; dans le pas être utilisés en paramètres.
programme principal, les trois sections de la DATA DIVISION conviennent. Toutefois, en
ANS74, que ce soit dans le programme principal ou dans le sous-programme, les descriptions des ♦ Option par défaut de passage des paramètres : BY REFERENCE
paramètres doivent être obligatoirement de niveau 01 ou 77. ANS85 lève cette restriction en
autorisant en paramètres des données élémentaires ou de groupe, de niveau quelconque. ♦ Un mode de passage (CONTENT ou REFERENCE) est transitif sur tous les paramètres le suivant.
♦ Les listes de paramètres du programme principal et du sous-programme doivent être en

concordance parfaite du point de vue ordre, type, représentation interne et n° de niveau des
2. Sous-programme COBOL paramètres. Il n'y a aucune corrélation entre les noms de données du sous-programme et ceux du
programme principal.
Un sous-programme est un programme (COBOL) classique dont il diffère éventuellement sur trois ♦ Le sous-programme est initialisé lors du premier appel et conserve son état lors des appels
points : ultérieurs, sauf s'il est doté de l'attribut INITIAL, ou si CANCEL a été exécuté dans le programme
principal.
♦ Il comprend une LINKAGE SECTION pour la description des paramètres dits formels.
♦ Les clauses OVERFLOW et EXCEPTION sont validées si le programme appelé ne peut être chargé
♦ La déclaration de la division des traitements est complétée d'une clause USING fixant l'ordre des (ou ne réside pas) en mémoire, ou si la place disponible pour l'y charger est insuffisante.
paramètres.
PROCEDURE DIVISION [USING nd-1 [,nd-2]...].
Remarque : S'il n'y a aucun paramètre, LINKAGE SECTION et clause USING sont omises.
♦ L'instruction EXIT PROGRAM (ou GOBACK) doit être utilisée pour redonner le contrôle au
programme principal.
Remarque : L'exécution d'une instruction STOP RUN à l'intérieur d'un sous- programme provoque
l'arrêt immédiat et définitif du travail en cours (y compris le programme principal).
Cobol Communication inter-programme 7-1 Cobol Communication inter-programme 7-2

4. Instructions spécifiques des sous-programmes 6. Exemple d'utilisation
4.1. CANCEL MOY est un sous-programme permettant de calculer la moyenne de deux nombres.
CANCEL nd-1 nd-2 ... IDENTIFICATION DIVISION.

lit-1 lit-2 PROGRAM-ID. MOY.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER.
nd-1, nd-2, lit-1, lit-2,.... désignent des noms de sous-programmes. Cette instruction permet de libérer OBJECT-COMPUTER.
la zone mémoire occupée par le(s) sous-programme(s) cité(s) .
DATA DIVISION.
Pratiquement, elle permet de garantir que, lors du prochain appel, le sous-programme sera dans son WORKING-STORAGE SECTION.
77 SOMME PIC 9(5) COMP.
état initial.
LINKAGE SECTION.
77 MOYENNE PIC 9(4)V99 COMP.
4.2 EXIT PROGRAM
01 NOMBRES.
02 N1 COMP-1.
EXIT PROGRAM. 02 N2 PIC 9(4).
♦ Marque la fin logique du sous-programme

PROCEDURE DIVISION USING NOMBRES MOYENNE.
♦ Cette instruction doit être la seule du paragraphe qui la contient PO. ADD N1 N2 GIVING SOMME
DIVIDE 2 INTO SOMME GIVING MOYENNE.
♦ Si le sous-programme possède l'attribut INITIAL, l'instruction est semblable à CANCEL, mais P1. EXIT PROGRAM.
sans libération de ressources mémoire.
♦ Si le programme n'est pas un programme appelé, l'instruction est sans effet. Soit un programme principal comportant en DATA DIVISION les
descriptions suivantes :
♦ Dans les dialectes GOBACK a un fonctionnement similaire.
77 N1 PIC 9(4)V99 COMP.
01 COUPLE1.
04 NB1 COMP-1.
04 NB2 PIC 9(4).
5. Objets externes partagés 01 COUPLE2.
02 A1 COMP-1.
♦ Tout objet défini dans un programme COBOL lui est interne, et les ressources qu'il nécessite sont 02 A2 PIC 9(4).
associées au seul programme.
On peut écrire en division des traitements :
♦ Un objet sera dit externe si ses ressources sont attachées non à un objet (programme) particulier, '
mais à l'unité d'exécution résultante. Pour cela, il faut le doter de l'attribut EXTERNE. '
CALL "MOY" USING COUPLE2 N1
♦ Une clause EXTERNAL peut être associé à une spécification de fichier dans un programme, ou à '
un groupe de niveau 01 en WORKING-STORAGE SECTION. Tous les éléments subordonnés '
(zones de données) sont automatiquement externalisés. CALL "MOY" USING COUPLE1 N1
FD nom-fich [IS EXTERNAL]

.....
Dans ce cas, si un programme appelé contient des structures de mêmes caractéristiques (noms,
formats), l'article chargé dans le programme principal lui sera accessible.
♦ La clause VALUE est interdite pour des objets externalisés (sauf nom-condition).
Cobol Communication inter-programme 7-3 Cobol Communication inter-programme 7-4

PROGRAMMES CONTENUS
En ANS85, un programme-source peut en contenir entièrement un (ou plusieurs) autres .

Cette disposition permet aux programmes de partager certaines ressources.
L'ensemble de ces programmes est compilé en même temps et ne donne création qu'à un seul
programme-objet.
A ne pas confondre avec la notion classique de sous-programmes (programmes appelant et appelé
étant des unités de compilations différentes, liées en une seule unité d'exécution).
IDENTIFICATION DIVISION.
PROGRAM-ID. A.
.............
PROGRAM-ID. B.
END-PROGRAM B.
PROGRAM-ID. C.
.............
PROGRAM-ID. D.
.............
END-PROGRAM D.
END-PROGRAM C.
END-PROGRAM A.
♦ A contient directement B et C et indirectement D
C contient directement D.
♦ Dans cette structure l'en-tête END-PROGRAM nom est obligatoire.
♦ Les programmes contenus peuvent faire référence à des ressources des programmes contenants.
Pour cela, il faut déclarer, dans le programme contenant, la clause GLOBAL pour des groupes de
niveau 01 en FILE SECTION ou WORKING-STORAGE SECTION, ou des phrases FD.
Tout programme contenu, directement ou indirectement dans un tel programme-contenant pourra
référencer la donnée sans la décrire à nouveau.
♦ Tous les éléments subordonnés à une structure globale sont globalisés.
♦ Normalement un programme contenu ne peut être appelé que par celui le contenant directement.
La clause COMMON, dans son PROGRAM-ID permettra qu'il le soit également par des programmes de
la même unité, autres que celui le contenant.
Cobol Communication inter-programme 7-5

BIBLIOTHEQUE
Ce module offre la possibilité, pendant la phase de compilation, d'insérer dans un programme COBOL
n'importe quel texte source enregistré dans une bibliothèque du système.
COPY nom-texte OF bibliothèque

IN
= = pseudo-text-1= = = = pseudo-text-2= =
nd-1 nd-2
REPLACING lit-1 BY lit-2 ....
mot-1 mot-2
♦ l'instruction COPY doit être suivie d'un point
♦ mot désigne un mot COBOL quelconque
♦ pseudo-text-2 peut être vide, mais non pseudo-text-1
♦ le texte à copier ne peut contenir de directive COPY
♦ les remplacements portent sur toutes les occurrences des éléments cités
En ANS85, l'instruction REPLACE permet des remplacements partiels
Format 1 REPLACE {= = pseudo-text-1= = BY = = pseudo-text-2= =} ...
Format 2 REPLACE OFF
♦ les règles sont les mêmes que pour COPY
♦ COPY a pécédence sur REPLACE
♦ le texte est remplacé jusqu'à rencontre de la prochaine instruction REPLACE (avec une nouvelle
spécification ou OFF) ou, par défaut, de la fin du programme.
Cobol Bibliothèque 8-1

Fonctions Intrinsèques 2 Fonctions
• La colonne Arguments indique le type des arguments

Depuis 1985, COBOL comporte un module de fonctions intrinsèques (intégrées), permettant A = alphabétique, I = entier, N = numérique, X = alphanumérique
différentes opérations.
• La colonne type indique le type de la fonction.
N.B.: L'utilisation de certaines fonctions n'est possible que si le module virgule flottante est installé. I = entier, N = numérique, X = alphanumérique
1 Généralités 2.1 Fonctions mathématiques
• Une fonction est un élément temporaire dont la valeur est déterminée au moment de son exécution. Fonction Arguments Type Valeurs
Elle est spécifiée par un nom réservé. ACOS N1 N Arcosinus de N1
ASIN N1 N Arcsinus de N1
• La valeur retournée par une fonction détermine le type de celle-ci: alphanumérique, numérique, ou ATAN N1 N Arctangente de N1
entière. COS N1 N Cosinus de N1
SIN N1 N Sinus de N1
• Les fonctions relatives aux dates reposent sur le calendrier grégorien. Par convention, l'origine des TAN N1 N Tangente de N1
temps est fixée au Lundi, 1er janvier 1601, correspondant à l'entier 1. FACTORIAL I1 I Factorielle de I1
LOG N1 N Logarithme népérien de N1
• Une fonction peut nécessiter zéro, un ou plusieurs arguments positionnels, dont les types peuvent LOG10 N1 N Logarithme décimal de N1
être: MAX N1 … N Valeur maximale des arguments
1. Numérique: toute expression arithmétique MIN N1 … N Valeur minimale des arguments
2. Alphabétique: rubrique élémentaire ou littéral alphabétique MEAN N1 … N Moyenne arithmétique des arguments
3. Alphanumérique: toute rubrique ou tout littéral non-numérique MEDIAN N1 … N Valeur médiane des arguments (après) tri
4. Entier: une expression arithmétique dont l'évaluation aboutit à un entier (signé ou pas). MIDRANGE N1 … N Moyenne des arguments minimal et maximal
INTEGER N1 N Plus grand entier inférieur ou égal à N1
• Si une fonction accepte qu'un argument soit répété un nombre variable de fois, on peut spécifier
INTEGER-PART N1 N Partie entière de N1
une table avec ALL en indice; dans ce cas, les entrées de la table correspondant à l'échelle des
MOD I1, I2 I I1 modulo I2
valeurs de l'indice correspondant seront sélectionnées.
RANDOM I1 N Nombre pseudo-aléatoire (entre 0 et 1)
01 EXEMPLE. RANGE N1 … N Différence entre les arguments maximal et minimal
05 TOTAL PIC 999. REM N1,N2 N Reste de N1/N2 (quotient arrondi à l'entier)
05 VECTEUR. SQRT N1 N Racine carrée de N1
10 IND OCCURS 5 PIC 99. STANDARD-DEVIATION N1 N Ecart-type des arguments
SUM N1 … N Somme des arguments
VARIANCE N1 N Variance des arguments
COMPUTE TOTAL = FUNCTION SUM (IND(1), IND(2), IND(3), IND(4), IND(5))
Est équivalent à :
COMPUTE TOTAL = FUNCTION SUM (IND(ALL))
2.2 Fonctions financières
Fonction Arguments Type Valeurs

ANNUITY N1,I2 N Taux de l'annuité pour I2 périodes à intérêt N1,
pour un investissement de 1 F
PRESENT-VALUE N1, N2 … N Valeur actuelle d'une série de versements
périodiques N2 au taux N1
Cobol Fonctions Intrinsèques 9-1 Cobol Fonctions Intrinsèques 9-2

2.3 Fonctions sur les caractères

CHAR I1 X Caractère de rang I1 dans l'alphabet-machine
LENGTH A1 ou X1 N Longueur de l'argument
LOWER-CASE A1 ou X1 X Lettres mises en minuscules
UPPER-CASE A1 ou X1 X Lettres mises en majuscules
MAX X1 … X Valeur maximale de la liste
MIN X1 … X Valeur minimale de la liste
NUMVAL X1 N Valeur numérique d'une chaîne de chiffres
NUMVAL-C X1 N Valeur numérique d'une chaîne de chiffres avec
séparateurs de milliers et symbole monétaire
ORD X1 I Rang de l'argument dans l'alphabet-machine
ORD-MAX X1 I Rang de l'argument maximum dans l'alphabet-
machine
ORD-MIN X1 I Rang de l'argument minimum dans l'alphabet-
machine
REVERSE X1 X Ordre inverse des caractères
2.4 Fonctions sur les dates

CURRENT-DATE Aucun X Date, heure et fuseau (1)
DATE-OF-INTEGER I1 I Date (YYYYMMDD) équivalente à I1
DAY-OF-INTEGER I1 I Date julienne (YYYYDDD) équivalente à I1
INTEGER-OF-DATE I1 I Entier équivalent à la date I1 (YYYYMMDD)
INTEGER-OF-DAY I1 I Entier équivalent à la date julienne I1
(YYYYDDD)
WHEN-COMPILED Aucun X Date et heure de compilation
(1)
La fonction CURRENT-DATE renvoie une valeur de 21 caractères:
année 9999
mois 99
jour 99
heure 99
minute 99
seconde 99
cent.sec. 99
fuseau X (+ ou - par rapport à Greenwich, 0 si le système ne le gère pas)
heure fuseau 99
minutes fuseau 99
Exemple
COMPUTE JOUR = FUNCTION REM (FUNCTION INTEGER-OF-DATE (date), 7)
renvoie le jour de la semaine correspondant à une date donnée (0 = dimanche
Cobol Fonctions Intrinsèques 9-3 Cobol Fonctions Intrinsèques 9-4

4. Procédure division
TRI – FUSION INTEGRES
4.1. Instruction SORT
Elle permet d'ordonner, grâce au fichier de tri, les articles provenant d'un ou plusieurs fichiers d'entrée
1. Généralités puis de les placer dans un fichier de sortie. Une PROCEDURE D'ENTREE permet éventuellement de
traiter les articles AVANT de les délivrer au tri (p. ex. les modifier, en rajouter ou supprimer) ; une
PROCEDURE DE SORTIE permet éventuellement de traiter les articles APRES la phase de tri, avant de
Le module de tri-fusion permet de trier ou de combiner un ou plusieurs fichiers à l'intérieur d'un les écrire dans le fichier de sortie.
programme COBOL. De plus, il est possible d'appliquer des traitements particuliers aux
enregistrements concernés juste avant ou après la phase de tri (ou fusion) par des procédures N-B : On ne peut faire aucune opération sur le fichier de tri les seules instructions autorisées pour
spécifiques. Les principes généraux du tri-fusion intégré sont similaires à ceux des utilitaires respectifs. traiter ce fichier sont RELEASE et RETURN.
SORT fichier-tri
2. Environment Division ON ASCENDING KEY critère-1 [critère-2] ...

DESCENDING
Les fichiers d'entrée (locution USING de l'instruction) et de sortie (locution GIVING) sont définis de ON ASCENDING KEY critère-3 [critère-4] ... ...
DESCENDING
façon classique dans le programme ; les fichiers de travail du tri seront définis par une phase SELECT
limitée à la clause ASSIGN
[ WITH DUPLICATES IN ORDER ]
SELECT fichier -tri ASSIGN TO fspec INPUT PROCEDURE IS section-1 [THRU section-2]
USING fichier-entrée-1 [fichier-entrée-2] ...

3. Data Division
OUTPUT PROCEDURE IS section-3 [THRU section-4]
Les fichiers d'entrée et de sortie seront décrits classiquement par FD.
Le fichier de travail sera décrit de manière analogue, mais sa description : GIVING fichier-sortie
- commence par SD (Sort Description) au lieu de FD,
- ne peut comporter que les clauses RECORD CONTAINS et DATA RECORD
L'article du fichier de tri sera décrit classiquement ; il contiendra en particulier tous les critères utilisés • THRU peut s'écrire THROUGH
dans l'instruction de tri. Il peut y avoir plusieurs descriptions d'articles pour le fichier de tri, mais les
critères ne seront décrits que dans une seule (la première). Une rubrique servant de critère ne peut
comporter de clause OCCURS, ni être subordonnée à une rubrique contenant OCCURS. • USING (resp. GIVING) et procédure d'entrée (resp. sortie) sont mutuellement exclusifs.
• Le fichier-tri doit être défini en SD.

Exemple
SD FITRI. • Les critères doivent être définis dans l'article de fichier-tri ; leur ordre reflète leur hiérarchie
01 ENRTRI. (premier = majeur).
05 CRIT4 PIC 9(5).
05 FILLER PIC X(52). • Avec WITH DUPLICATES IN ORDER les doublons seront traités dans l'ordre où ils figurent
05 CRIT2 PIC XXX.
05 RUB-A PIC X(25). dans le(s) fichier(s) d'entrée ou sont délivrés par la procédure d'entrée.
05 CRITERE PIC X(10).
05 RESTE PIC X(68). • Une procédure d'entrée ou de sortie ne peut contenir d'instruction SORT ou MERGE ; elle ne peut
non plus inclure d'instruction ALTER, GO, PERFORM référençant des procédures extérieures.
• L'instruction RELEASE sert à transférer un article dans le fichier de travail, depuis la procédure
d'entrée ; l'instruction RETURN rend disponible à la procédure de sortie un article du fichier de
travail.
Cobol Tri - Fusion 10 - 1 Cobol Tri - Fusion 10 - 2

• Si la locution USING est utilisée, les fichiers d'entrée ne doivent PAS être ouverts lorsque
l'instruction SORT est exécutée ; idem pour GIVING et le fichier de sortie.
5. Exemples
5.1. Tri sans procédure
4.2. Instructions RELEASE et RETURN
PROCEDURE DIVISION.
RELEASE enreg [FROM zone] DEBUT. OPEN INPUT (ou OUTPUT) FIENT.
TRAIT. traitement du fichier FIENT...
L'instruction RELEASE transfère un article à la phase initiale du tri. enreg est le nom d'article figurant CLOSE FIENT.
dans la description SD ; zone désigne une rubrique à partir de laquelle sera renseigné l'article (cf WRITE
FROM). TRI. SORT FITRI ASCENDING CRIT2 DESCENDING CRIT4
USING FIENT GIVING FISOR.
Après exécution d'une instruction RELEASE, l'article n'est plus disponible dans le buffer du fichier-tri.
SUITE. OPEN INPUT FISOR
traitement du fichier FISOR ...
CLOSE FISOR.
RETURN fichier-tri RECORD [INTO zone] AT END phrase impérative
...
[NOT AT END phrase impérative ]
[ END-RETURN ]
5.2. Tri avec procédure d'entrée
L'instruction RETURN permet d'obtenir un article issu de la phase finale du tri. La condition AT END
est validée lorsque le dernier article du fichier de travail a été délivré à la procédure de sortie. PROCEDURE DIVISION.
-
-
4.3. Instruction MERGE TRI. SORT FITRI ON ASCENDING CRIT3
INPUT PROCEDURE ENTRI GIVING FISOR.
Elle permet de combiner deux ou plusieurs fichiers ordonnés sur des critères identiques puis rend les -
articles disponibles pour une procédure de sortie ou un fichier de sortie. -
ENTRI SECTION.
MERGE fichier-fusion E1. OPEN INPUT FIENT.
E2. READ FIENT AT END GO E9.
ON ASCENDING KEY critère-1 [critère-2]... -
DESCENDING - traitement
-
E5. RELEASE ENTRI FROM ARTICLE. GO E2.
ON ASCENDING KEY critère-3 [critère-4] ... ... E9. CLOSE FIENT.
DESCENDING
5.2. Fusion avec procédure de sortie

USING fichier-entrée-1 fichier-entrée-2 [fichier-entrée-3]…
PROCEDURE DIVISION.
OUTPUT PROCEDURE IS section-1 [THRU section-2] -
-
-
GIVING fichier-sortie FUSION. MERGE FITRI DESCENDING RUB-A ASCENDING CRIT2
USING FIENT1 FIENT2 FIENT3
OUTPUT PROCEDURE FUSOR.
-
• RETURN sera utilisée en cas de procédure de sortie. -
-
FUSOR SECTION.
F1. OPEN OUTPUT FISOR.
F2. RETURN FITRI AT END GO F9.
-
Cobol Tri - Fusion 10 - 3 Cobol Tri - Fusion 10 - 4

- traitement
-
F6. WRITE ARTICLE FROM ENTRI.
GO F2.
F9. CLOSE FISOR.
Cobol Tri - Fusion 10 - 5

GIVING GLOBAL GO
GREATER GROUP HEADING
LISTE DES MOTS RESERVES HIGH HIGH-VALUE HIGH-VALUES
ACCEPT ACCESS ADD IDENTIFICATION IF IN
ADVANCING AFTER ALL INDEX INDEXED INDICATE
ALPHABET ALPHABETIC ALPHANUMERIC INITIAL INITIALIZE INITIATE
ALPHANUMERIC-EDITED ALPHANUMERIC-LOWER ALPHANUMERIC-UPPER INPUT INPUT-OUTPUT INSPECT
ALSO ALTER ALTERNATE INSTALLATION INTO INVALID
AND ANY ARE I-O I-O-CONTROL IS
AREA AREAS ASCENDING JUST JUSTIFIED KEY
ASSIGN AT AUTHOR LABEL LAST LEADING
BEEP BEFORE BINARY LEFT LENGTH LESS
BLANK BLINK BLOCK LIMIT LIMITS LINAGE
BOTTOM BY CALL LINAGE-COUNTER LINE LINE-COUNTER
CANCEL CD CF LINES LINKAGE LOCK
CH CHARACTER CHARACTERS LOW LOW-VALUE LOW-VALUES
CLASS CLOCK-UNITS CLOSE MEMORY MERGE MESSAGE
COBOL CODE CODE-SET MODE MODULES MOVE
COLLATING COLUMN COMMA MULTIPLE MULTIPLY NATIVE
COMMON COMMUNICATION COMP NEGATIVE NEXT NO
COMP-3 COMP-6 COMPUTATIONAL NOT NUMBER NUMERIC
COMPUTATIONAL-3 COMPUTATIONAL-6 COMPUTE NUMERIC-EDITED OBJECT-COMPUTER OCCURS
CONFIGURATION CONSOLE CONTAINS OF OFF OMITTED
CONTENT CONTINUE CONTROL ON OPEN OPTIONAL
CONTROLS CONVERTING COPY OR ORDER ORGANIZATION
CORR CORRESPONDING COUNT OTHER OUTPUT OVERFLOW
CRT CRT-UNDER CURRENCY PACKED-DECIMAL PADDING PAGE
CURSOR DATA DATE PAGE-COUNTER PERFORM PF
DATE-COMPILED DATE-WRITTEN DAY PH PIC PICTURE
DAY-OF-WEEK DE DEBUG-CONTENTS PLUS POINTER POSITION
DEBUGGING DEBUG-ITEM DEBUG-LINE POSITIVE PRINT PRINTING
DEBUG-NAME DEBUG-SUB-1 DEBUG-SUB-2 PROCEDURE PROCEDURES PROCEED
DEBUG-SUB-3 DECIMAL-POINT DECLARATIVES PROGRAM PROGRAM-ID PROMPT
DELETE DELIMITED DELIMITER PURGE QUEUE QUOTE
DEPENDING DESCENDING DESTINATION QUOTES RANDOM RD
DETAIL DISABLE DISPLAY READ RECEIVE RECORD
DIVIDE DIVISION DOWN RECORDS REDEFINES REEL
DUPLICATES DYNAMIC ECHO REFERENCE REFERENCES RELATIVE
EGI ELSE EMI RELEASE REMAINDER REMOVAL
ENABLE END END-ALL RENAMES REPLACE REPLACING
END-CALL END-COMPUTE END-DELETE REPORT REPORTING REPORTS
END-DIVIDE END-EVALUATE END-IF RERUN RESERVE RESET
END-MULTIPLY END-OF-PAGE END-PERFORM RETURN REVERSE REVERSED
END-READ END-RECEIVE END-RETURN REWIND REWRITE RF
END-REWRITE END-SEARCH END-START RH RIGHT ROUNDED
END-STRING END-SUBTRACT END-UNSTRING RUN SAME SD
END-WRITE END-OF-PAGE ENTER SEARCH SECTION SECURITY
ENVIRONMENT EOL EOP SEGMENT SEGMENT-LIMIT SELECT
EOS EQUAL ERASE SEND SENTENCE SEPARATE
ERROR ESI EVERY SEQUENCE SEQUENTIAL SET
EXCEPTION EXIT EXTEND SIGN SIZE SORT
EXTERNAL FALSE FD SORT-MERGE SOURCE SOURCE-COMPUTER
FILE FILE-CONTROL FILLER SPACE SPACES SPECIAL-NAMES
FINAL FIRST FOOTING STANDARD STANDARD-1 STANDARD-2
FOR FROM GENERATE START STATUS STOP
STRING SUB-QUEUE-1 SUB-QUEUE-2
Cobol Mots réservés A0 - 1 Cobol Mots réservés A0 - 2

SUB-QUEUE-3 SUBTRACT SUM
SUPRESS SW0 SW1
SW8 SWITCH0 SWITCH-0
SWITCH-1 SWITCH-2 SWITCH-3
SYMBOLIC SYNC SYNCHRONIZED
SYSIN SYSOUT TAB
TABLE TALLY TALLYING
TAPE TERMINAL TERMINATE
TEXT THAN THEN
THROUGH THRU TIME
TIMES TO TOP
TRAILING TRUE TYPE
UNDERLINE UNIT UNLOCK
UNSTRING UNTIL UP
UPDATE UPON USAGE
USE USING VALUE
VALUES VARYING WHEN
WITH WORDS WORKING-STORAGE
WRITE ZERO ZEROES
ZEROS
Cobol Mots réservés A0 - 3

♦ Si nom-donnée contient une clause OCCURS ou est subordonné à une rubrique la contenant, on ne
spécifie pas l'indice ou l'index normalement nécessaire.
MISE AU POINT
Règles d'application
♦ Lorsqu'un nom-fichier est spécifié, la section déclarative est exécutée après exécution valide d'une
1. GENERALITES instruction OPEN, CLOSE, READ, START ou DELETE.
♦ Lorsqu'un nom-procédure est spécifié, la section déclarative est exécutée immédiatement avant
Le module de mise au point (Debugging) de COBOL offre au programmeur des moyens de contrôler chaque exécution de la procédure citée; s'il s'agit de ALL PROCEDURES, cette règle s'applique
l'exécution de son algorithme. Ils consistent en : pour chaque procédure du pg.
♦ des lignes de mise au point (D en colonne 7)
♦ des sections déclaratives (USE FOR DEBUGGING) ♦ Lorsqu'un nom-donnée est spécifié seul, la section déclarative est exécutée:
♦ un registre spécial (DEBUG-ITEM) géré par le système et accessible au pg a) avant toute instruction WRITE ou REWRITE qui cite explicitement le nom-donnée (cas de
l'article), ou après la locution FROM;
Ces outils seront mis en (ou hors) fonction grâce à des inverseurs (commutateurs, "switchs") logiques, b) après chaque initialisation, modification, évaluation de nom-donnée quand cette rubrique
soit lors de la compilation, soit lors de l'exécution. apparaît après VARYING, AFTER, UNTIL dans une instruction PERFORM;
c) après toute autre instruction qui cite explicitement nom-donnée ET entraîne la modification
Ce module est classé obsolète en ANS85. de son contenu.
♦ Lorsqu'un nom-donnée est spécifié précédé de la locution ALL REFERENCES OF,

la section déclarative est exécutée :
2. INVERSEURS a) idem a) ci-dessus
b) idem b) ci-dessus
c) avant transfert du contrôle quand nom-donnée est cité dans la locution DEPENDING ON d'une
L'inverseur de compilation est constitué par la clause WITH DEBUGGING MODE
instruction GO TO;
du paragraphe SOURCE-COMPUTER. Sa présence dans le pg entraîne la compilation
d) apres execution de toute autre instruction qui cite explicitement nom-donnée (même si elle ne
de toutes les instructions de mise au point (D en col. 7 et sections de mise au point) y figurant. Son
modifie pas son contenu).
absence implique que les instructions précédentes seront ignorées du compilateur (i.e. considérées
comme des commentaires).
Remarques :
L'inverseur d'exécution est un switch logique mis en ou hors fonction lors de l'appel de l'exécutable, • Si nom-donnée est spécifié dans une phrase qui n'est ni exécutée ni évaluée, la section déclarative
grâce à un ordre ou un paramètre particulier. n'est PAS exécutée.
S'il est ON, les phrases USE FOR DEBUGGING sont validées; sinon (OFF), elles sont inhibées. • Pour une instruction donnée, la déclarative n'est exécutée qu'une seule fois, quel que soit le
nombre de fois où nom-donnée est cité dans l'instruction; pour une itérative (PERFORM), elle est
exécutée à chacue iteration.
3. SECTIONS DECLARATIVES DE MISE AU POINT 4. DEBUG-ITEM

Ce sont des sections spécifiques placées dans la partie déclaratives, au début de celle-ci (donc avant
toute éventuelle section de traitement des erreurs d'entrée-sortie), identifiées par une phrase USE FOR Ce registre spécial, généré automatiquement, est associé à chaque exécution d'une section déclarative
DEBUGGING ... et constituant des blocs autonomes (pas de référence d'une procédure déclarative à de mise au point; il fournit des informations sur les conditions gui ont provooué l'exécution de cette
une procédure non-déclarative, dans un sens ou dans l'autre). Cf chap.5 "Gestion des Fichiers". dernière; sa description implicite est la suivante :
01 DEBUG-ITEM.
{[ALL REFERENCES OF] nd } ...
02 DEBUG-LINE PIC X(6).
{nom-fichier} ...
02 FILLER PIC X VALUE SPACE.
USE FOR DEBUGGING ON {nom-procédure} ... ... 02 DEBUG-NAME PIC X(30).
ALL PROCEDURES 02 FILLER PIC X VALUE SPACE.
02 DEBUG-SUB-1 PIC S9999 SIGN LEADING SEPARATE.
♦ Toute variable apparaissant après ON peut 02 DEBUG-SUB-2 PIC S9999 SIGN LEADING SEPARATE..
- n'apparaître que dans une seule phrase USE 02 FILLER PIC X VALUE SPACE.
- n'y figurer qu'une seule fois. 02 DEBUG-SUB-3 PIC S9999 SIGN LEADING SEPARATE.
♦ Si ALL PROCEDURES est cité dans une phrase USE, aucun nom de procédure ne peut figurer 02 DEBUG-CONTENTS PIC X(n).
dans aucune phrase USE.
Tous les noms cités sont des mots réservés.
Cobol Mise au point A1 - 1 Cobol Mise au point A1 - 2
• DEBUG-CONTENTS a une taille suffisante pour contenir la donnée definie par les règles ci-après.
• Le contenu de DEBUG-ITEM est mis à blanc avant chaque exécution d'une section déclarative; sa
mise à jour s'exécute suivant les règles de MOVE (sans aucune conversion pour DEBUG-
CONTENTS) .
• DEBUG-LINE contient un numéro de ligne-source (listing).
• DEBUG-NAME contient les 30 premiers caractères du nom qui a provoqué l'exécution de la section
déclarative.
• Si la donnée qui provoque l'exécution de la déclarative est indicée ou indexée , le rang de chaque
niveau est placé respectivement dans DEBUG-SUB-1,DEBUG-SUB-2,DEBUG-SUB-3.
Règles d'application
A - Exécution résultant d'un nom-donnée

DEBUG-LINE contient le n° de ligne de l'instruction origine,
DEBUG-NAME contient le nom-donnée,
DEBUG-CONTENTS contient le contenu de cette rubrique.
B - Exécution résultant d'un nom-fichier

DEBUG-LINE contient le n° de ligne de l'instruction origine,
DEBUG-NAME contient le nom-fichier,
DEBUG-CONTENTS contient l'article lu en entier.
C - Exécution résultant d'une procédure citée dans PERFORM

DEBUG-LINE contient le n° de ligne de l'instruct'on PERFORM,
DEBUG-NAME contient le nom-procédure appelé,
DEBUG-CONTENTS contient "PERFORM LOOP".
D - Exécution résultant d'un nom-procédare rencontré séquentiellement

DEBUG-LINE contient le n° de ligne de l'instruction précédente,
DEBUG-NAME contient nom-procédure ,
DEBUG-CONTENTS contient "FALL THROUGH".
E - Exécution résultant d'un nom-procédure cité dans une locution INPUT ou OUTPUT d'une
instruction SORT ou MERGE
DEBUG-LINE contient le no de ligne de l'instruction SORT ou MERGE,
DEBUG-NAME contient le nom-procédure d'entrée (ou de sortie),
DEBUG-CONTENTS contient suivant le cas "SORT INPUT", "SORT OUTPUT"
ou "MERGE OUTPUT".
F - Exécution résultant d'un nom-procédure cité dans GO TO

DEBUG-LINE contient le n° de ligne de l'instructionGO TO,
DEBUG-NAME contient le nom-procédure,
DEBUG-CONTENTS est à blanc.
G - Exécution résultant du premier nom-procédure cité dans le pg

DEBUG-LINE contient le n° de la première instruction;
DEBUG-NAME contient nom-procédure,
DEBUG-CONTENTS contient "START PROGRAM".
H - Exécution résultant d'un nom-procédure cité dans ALTER

DEBUG-LINE contient le n° de ligne de l'instruction ALTER,
DEBUG-NAME contient nom-procédure,
DEBUG-CONTENTS contient le nom de la procédure à exécuter (associée à TO).
Cobol Mise au point A1 - 3

PRINCIPALES DIFFERENCES
ENTRE ANS74 ET ANS85
Programmes contenus
Données GLOBALES et EXTERNES
Portée des instructions (END-...)
Lettres minuscules
Modificateurs de référence
Fonctions intrinsèques (1989)
EVALUATE
Option CONVERTING dans INSPECT
INITIALIZE
Opération nulle CONTINUE
Passage de paramètres par valeur
Dimensions de tableaux à 7
En-têtes de division facultatifs
Clause VALUE autorisée avec OCCURS
Transfert numérique édité vers numérique
Clause WITH NO ADVANCING dans DISPLAY
Cobol Différences 74-85 A2 - 1

CODAGE Code EBCDIC
Valeurs hexadécimales: h1 = demi-octet gauche (forts poids)
h2 = demi-octet droit (faibles poids) h1
4 5 6 7 8 9 A B C D E F
0 SP & - { } \ 0
1 / a j ~ A J 1
Code ASCII 2 b k s B K S 2
3 c l t C L T 3
4 d m u D M U 4
h1 5 e n v E N V 5
h2 0 1 2 3 4 5 6 7 6 f o w F O W 6
0 NUL DLE SP 0 @ P ` p 7 g p x G P X 7
1 SOH DC1 ! 1 A Q a q 8 h q y H Q Y 8
2 STX DC2 “ 2 B R b r 9 ` i r z I R Z 9
3 ETX DC3 # 3 C S c s A ! | :
4 EOT DC4 $ 4 D T d t B . $ , #
5 ENQ NAK % 5 E U e u C < * % @
6 ACK SYN & 6 F V f v D ( ) _ '
7 BEL ETB ’ 7 G W g w E + ; > =
8 BS CAN ( 8 H X h x F ^ ? " ç
9 HT EM ) 9 I Y i y
A LF SUB * : J Z j z
B VT ESC + ; K [ k {
C FF FS , < L \ l |
D CR GS - = M ] m }
E SO RS . > N ^ n ~
F SI US / ? O _ o DEL
Perforation Hors-texte
1 2 3 4 5 6 7 8 9 0
+ A B C D E F G H I {
- J K L M N O P Q R }
Cobol Codage A3 - 1 Cobol Codage A3 - 2

Langage Cobol

Transféré par

Droits d'auteur :

Formats disponibles

Langage Cobol

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

Langage Cobol

Transféré par

Droits d'auteur :

Formats disponibles

AVERTISSEMENT

3 LES INSTRUCTIONS DU NOYAU

1 GENERALITES DU LANGAGE COBOL

5. Structure d'un programme 4. La division PROCEDURE

2. Représentation interne des données

1. Organisation et accès supportés

Depuis, d'autres organisations, nationales ou internationales, ont réalisé de nouvelles versions, en

2.1. Indépendance de la machine utilisée

2.2. Un langage adapté à la résolution des problèmes de gestion

2.3. Apprentissage facile

2.4 Interfaçage avec d’autres outils

Cobol Généralités 1-1 Cobol Généralités 1-2

Il comporte les caractères suivants:

Cobol Généralités 1-3 Cobol Généralités 1-4

♦ les opérateurs arithmétiques et de relation : + - * / = > < **

Exemples : 15.2E18 -458E-42 4.2.3. Les noms-système

Exemple: "*** Liste des Fournisseurs ***"

4.2.2. Les mots-réservés

Cobol Généralités 1-5 Cobol Généralités 1-6

Le nom de division est un mot clé.

4.4. Les phrases

5.1. IDENTIFICATION DIVISION

Cobol Généralités 1-7 Cobol Généralités 1-8

♦ La REPORT SECTION permet la spécification et la description des états.

Le programme-source se termine à la fin de la dernière ligne, ou à la rencontre de l’en-tête

6.7. Abréviations utilisées dans ce support

6.4. Les crochets [ ] délimitent une partie du format facultative

Exemple : ACCEPT nd FROM DATE

Cobol Généralités 1-9 Cobol Généralités 1 - 10

2.1. Caractéristiques d'une donnée

Verbes d'entrée-sortie :READ, WRITE, REWRITE, DELETE, ACCEPT, DISPLAY, START,

Verbes de communication inter-programmes : CALL, CANCEL, EXEC

Directives de compilation : COPY, INSERT, REPLACE, USE

• des rubriques structurées : elles regroupent un ensemble quelconque de rubriques, élémentaires ou

Cobol Concepts fondamentaux 2-1 Cobol Concepts fondamentaux 2-2

♦ alphabétique : la rubrique ne contient que des lettres ou des espaces

On distingue deux représentations de base :

Cobol Concepts fondamentaux 2-3 Cobol Concepts fondamentaux 2-4

2.5.2.2.1 La représentation décimale étendue (DISPLAY) 4 D 44 M 4D

Cobol Concepts fondamentaux 2-5 Cobol Concepts fondamentaux 2-6

00 95 3C 8 octets (dont aucun pour la marque décimale)

2.5.3 Longueur d'une rubrique :

- Format binaire --> Longueur : 4 octets 3.1. Règle d'alignement numérique

Cobol Concepts fondamentaux 2-7 Cobol Concepts fondamentaux 2-8

4.3. Les parenthèses s'utilisent toujours par paires.

Soit la rubrique R2 d'image X(5) 6. Feuille de saisie COBOL

Elle comprend cinq zones, respectivement de gauche à droite :

nd-1 IN nd-2 ... IN fich-1

Cobol Concepts fondamentaux 2-9 Cobol Concepts fondamentaux 2 - 10

Cobol Concepts fondamentaux 2 - 11 Cobol Concepts fondamentaux 2 - 12

PROCEDURE DIVISION. LIRBAS. READ BASE.

END DECLARATIVES. * Ecriture des erreurs

* Traitement majeur NONSUP. IF M-CD-ADR = B-CD-ADR

* Finalisation du traitement PERFORM LIRMAJ.

Cobol Concepts fondamentaux 2 - 13 Cobol Concepts fondamentaux 2 - 14

LES INSTRUCTIONS DU NOYAU SPECIAL-NAMES.

[définition des mnémoniques du réalisateur]

Généralement, seuls les 8 premiers caractères du nom du programme sont évalués.

PROGRAM-ID. nom-de-programme [IS [COMMON] [INITIAL] PROGRAM].

Exemple: "* Liste des Fournisseurs *"