Cours d informatique complet sur Cobol

HEB - ESI

COBOL

2 ^ème G e s t i o n

S u p p o r t d e c o u r s

M. CODUTTI

 Ce document est régi par la licence Creative Commons CC-BY-NC

version de juin 2001

Versions du document

Ø   septembre 2000 – première version publique – complet à 85 % ? décembre 2000 – complet à 90 %

–   quelques nouvelles fiches

–   mise à jour de nombreuses fiches

–   nombreuses corrections typographiques

Ø   mars 2001 – complet à 95 %

–   corrections des fiches concernant les fichiers et les sous-programmes

–   informations sur V/SAM

Ø   juin 2001 – complet à 97 %

–   ajout fiche INSPECT et complétion fiche SEARCH

–   corrections typographiques

Page 2 sur 77

Avant-propos

Ce document est destiné aux étudiants suivant les cours de COBOL à l'ESI; Il ne prétend pas couvrir tous les aspects de COBOL ni même être exempt d'erreurs; toutefois, il couvre l'essentiel de la matière vue aux cours de 2^ème et 3^ème sauf les aspects trop fortement liés à l'AS/400. Je me suis inspiré du bon manuel de A. Detaille; qu'il en soit remercié. Il est à remarquer que ce manuel, plus pédagogique dans sa forme, reste d'actualité.

Bibliographie

•    A. Detaille, COBOL – 2^ème année Informatique – 1^ère partie, ESI, Notes de cours

•    A. Clarinval, Comprendre, connaître et maîtriser le COBOL, Presses Universitaires de Namur, 1981, 1^ère édition

•    VS COBOL II, Application Programming Language Reference, Release 4, IBM Press, Mars 1993

•    AS/400 Languages: Systems Application Architecture AD/Cycle COBOL/400 Reference, Version 2, IBM Press, Septembre 1992

•    Lawrence R. Newcomer, Programmation en COBOL structuré. Théorie et applications, Série Schaum, 1986

•    Mo Budlong, Le programmeur COBOL, S&SM, 1998

Conventions d'écriture

Pour décrire le format des instructions nous utiliserons le méta-langage suivant

•    Un mot en majuscule doit être tapé tel quel

•    S'il n'est pas souligné, il est facultatif (sa présence ne modifie pas le sens)

•    Les crochets indiquent un groupe facultatif

•    Les accolades indiquent un choix entre plusieurs possibilités

•    Les … indiquent une répétition facultative de ce qui précède

•    Un nom en minuscule doit être remplacé par une valeur appropriée

•    id : identificateur

•    lit : littéral

•    val : identificateur ou littéral (pas d'expression)

•    expr : expression (peut se réduire à val)

•    cond : condition

•    proc : procédure imbriquée (suite de propositions ne formant pas une phrase)

•    par : nom de paragraphe ou de section

Page 3 sur 77

Table des matières

–  PARTIE I –

INTRODUCTION                                         7

1.Historique 8

2.Petit programme COBOL ..9

3.Structure du langage .10 4.Mise en page d'un programme 12

–  PARTIE II –

IDENTIFICATION ET ENVIRONMENT DIVISION 13

5.Identification et Environment Division ..14 6.SPECIAL-NAMES .15

–  PARTIE III –

DATA DIVISION                                        16

7.Data Division ..17

8.Littéraux et Constantes 18

9.Expression arithmétique .19

10.Expression logique ..

11.Types de variables

12.Variables simples et structurées .

13.Nommer les variables .

14.Clause PIC

15.Clause VALUE .

16.Clause USAGE

17.Clause REDEFINES ..

18.Autres clauses de conditions .

–  PARTIE IV –

PROCÉDURE DIVISION                           31

–  PARTIE V –

TABLE                                                        53

38.Table : Déclaration et indice .54

39.Table : Initialisation .55 40.Table : index .56

–  PARTIE VI –

FICHIER                                                    57

41.Types de fichiers ..58

42.SELECT 59

43.clause : FILE STATUS ..60

/ CLOSE 61

.62

46.WRITE / REWRITE / DELETE ..63

47.START .64

–  PARTIE VII –FONCTION ET

SOUS-PROGRAMME                                65

48.Fonction intrinsèque ..66

49.Programmes imbriqués .68

50.Appel de sous-programmes ..70 51.Passage d'arguments .71

–  PARTIE VIII –

ANNEXES                                                   73

et le traitement BATCH ..74

53.Extensions propres à MVS ..75

54.Extensions propres à AS/400 76

55.Table EBCDIC ..77

Page 5 sur 77

Page 6 sur 77

– PARTIE I –

INTRODUCTION

On introduit ici les notions générales du langage COBOL : Historique, structure du programme, mise en page, …

1.HISTORIQUE

•    COBOL (COmmon Business Oriented Language)  

•    Langage de 2^ème génération (comme FORTRAN) né dans les années '60.

•    Destiné à la gestion informatique de problèmes commerciaux

•    Standardisation par l’ANSI (American National Standard Institute)

•    COBOL 68 : première norme

COBOL 74 : heure de gloire

•    COBOL 85 : norme suivie sur le mainframe et que l’on va étudier ici.

•    OO-COBOL 97 :  COBOL orienté objets + autres nouveautés

•    Caractéristiques

•    Lisibilité : syntaxe proche de l'anglais. L'idée est qu'il puisse être lu par un commercial (mais faut pas rêver). Cela fait néanmoins qu’il est très verbeux.

•    Portable : Devrait pouvoir tourner sur différentes machines sans modification. En pratique, les modifications sont localisées à l'ENVIRONMENT DIVISION.

•    Le standard divise le langage en modules, chacun avec différents niveaux. Chaque compilateur implémente un certain niveau d'un module.

Ex: sur MVS, on a noyau (2/2), relatifs (2/2), debug (1/2), report (0/2)

•    La plupart des compilateurs se permettent des extensions par rapport à la norme. Nous verrons les plus importantes introduites par IBM sur les systèmes MVS et AS/400.

2.PETIT PROGRAMME COBOL

3.STRUCTURE DU LANGAGE

3.1.    STRUCTURE

caractères

3.2.    DIVISION

Un programme COBOL est composé de 4 divisions au nom et au rôle bien définis. Dans la norme ANSI 85, une partie vide peut-être omise.

•    IDENTIFICATION : cette partie a diminué au fil des normes et ne contient plus que le nom du programme.

•    ENVIRONMENT : lien avec le système (matériel, fichiers, OS, …)

•    DATA : description des données

•    PROCEDURE : description du traitement des données.

3.3.       SECTIONS ET PARAGRAPHES

•    Avec un nom réservé pour indiquer le but (sauf dans la procédure division où le nom est libre)

3.4.       PHRASES ET PROPOSITIONS

•    Une phrase est une suite de propositions terminée par un point. Souvent, elle contient une seule proposition.

•    Une proposition recoupe presque parfaitement le concept classique d'instruction. Cela est plus subtil pour les instructions complexes contenant des clauses d'exceptions et pour les structures de contrôle.

3.5.       CARACTÈRES

•    A-Z a-z 0-9 + - * / ( ) < > = $ " ; , .

•    Pas de différence minuscule/majuscule

•    Les autres caractères du système peuvent apparaître dans les chaînes de caractères et les commentaires.

3.6.       NOMS

•    Les noms servent à nommer les variables, les paragraphes, …

•    Suite de 1 à 30 caractères : lettre, chiffre et –

•    Ne peux pas commencer ou terminer par un tiret ni contenir 2 tirets consécutifs

•    Nom réservé : Nom ayant un sens dans le langage (noms d’instructions, …) Exemple : MOVE, DATE, IF

•    Identificateur (variable) : nom non réservé avec au moins 1 lettre Exemple : 1A est correct

•    Nom de procédure (paragraphe, section) : nom non réservé sans autre restriction Exemple : 123 est correct

•    Convention : Il est important de bien choisir un nom de variable ou de paragraphe. Le nom doit expliciter clairement le rôle de la variable.

•    Utiliser des noms longs et explicites

•    Séparer les mots par des tirets

4.MISE EN PAGE D'UN PROGRAMME

Quelques règles simples doivent être suivies dans la mise en page d'un programme COBOL.

La ligne est divisée en différentes parties

•    Colonnes 1 à 6 : réservé pour le numéro de ligne.

Ce numéro n'est plus obligatoire et suppléé automatiquement par le compilateur.

•    Colonne 7 : statut de la ligne (décrit ci-dessous)

•    Colonnes 8 à 11 : zone A

•    Colonnes 12 à 72 : zone B

•    Colonnes 73 à 80 : zone libre de commentaire

4.1.        ZONE A

Certaines instructions COBOL doivent impérativement commencer en zone A.

Essentiellement, tout ce qui concerne la structure du programme. Plus précisément

•    Les noms de divisions, de sections de paragraphes

•    Les clauses FD et SD

•    Les descriptions de variables de niveau 01 et 77

4.2.        ZONE B

Certaines instructions peuvent commencer en zone A ou B :

•    les descriptions de variables de niveau autre que 01 ou 77

Toutes les autres lignes COBOL doivent impérativement commencer en zone B.

4.3.        COLONNE 7

Cette colonne indique le statut de la ligne

•    espace : ligne normale de code

•    étoile (*) : toute la ligne est un commentaire et n'est pas interprétée par le compilateur.

•    barre (/) : idem + saut de page dans le source.

•    tiret (-) : ligne de continuation. Toute instruction COBOL peut librement être répartie sur plusieurs lignes si on reste en ligne B et qu'on ne coupe pas un mot. Si on doit couper un mot (le plus souvent une chaîne), il faut l'indiquer par un tiret. La chaîne comprendra tous les caractères jusqu'à la colonne 72 incluse de la première ligne et reprendra à partir d'un guillemet sur la ligne suivante.

4.4.    UTILISATION DES ESPACES

Les mots COBOL sont séparés par des espaces. Un espace a exactement la même signification qu'un ensemble d'espaces.

4.5.    UTILISATION DU POINT

Il y a 3 signes de ponctuations en COBOL (, ; .). Seul le point est significatif; il indique une fin de phrase. Il doit se placer directement après le mot le précédant, sans espace et être suivi d'un espace. Il est obligatoire après: un nom de division, section ou paragraphe, en fin de paragraphe et phrase (il peut donc modifier le sens d'une suite d'instructions!)

– PARTIE II –

IDENTIFICATION ET ENVIRONMENT DIVISION

On voit ici tout ce qui concerne les deux premières divisions d'un programme COBOL.

5.IDENTIFICATION ET ENVIRONMENT DIVISION

5.1.       IDENTIFICATION DIVISION

Cette division, qui sert à identifier le programme, a vu son rôle diminuer. De manière obligatoire, on ne retrouve plus que

IDENTIFICATIONDIVISION.

PROGRAM-ID. nom-du-programme.

5.2.       ENVIRONMENT DIVISION

Cette division introduit le lien entre le programme et son environnement.

ENVIRONMENTDIVISION.

CONFIGURATION SECTION.

[SOURCE-COMPUTER …]

[OBJECT-COMPUTER …] [SPECIAL-NAMES].

INPUT-OUPUT SECTION.

(description des fichiers)

•    SOURCE-COMPUTER et OBJECT-COMPUTER permettent d'indiquer l'OS où on compile et l'OS pour lequel doit être construit l'exécutable (le même, la plupart du temps). Optionnel.

•    SPECIAL-NAMES permet de configurer le fonctionnement de COBOL. Il est décrit dans une fiche à part.

•    INPUT-OUTPUT SECTION contient essentiellement les clauses SELECT qui permettent de décrire les fichiers externes à utiliser.

6.SPECIAL-NAMES

On peut ici donner quelques directives configurant COBOL. Tout doit figurer dans une seule phrase; attention donc à ne pas terminer les clauses par un point.

6.1.       CLASSES

Permet de donner un nom à un ensemble de caractères. Ce nom sera utilisé dans les tests pour vérifier qu'une variable non numérique ne contient que les caractères requis.

CLASS nom IS lit1 [THRU lit2] …

•    sans THRU, lit1 peut contenir plus d'un caractère et tous les caractères sont intégrés à la classe

•    avec THRU, lit1 et lit2 sont formés d'un seul caractère et tout l'intervalle est intégré à la classe. (pas de problème si lit2 < lit1, on prend tout)

•    On peut combiner à loisir ces clauses

•    Pour tester si une chaîne appartient à la classe, on indique

id IS nom-classe

id ne peut pas être un littéral

6.2.       EUROPÉANISATION

Deux clauses pour indiquer le signe monétaire et l'utilisation de la virgule pour les nombres non entiers

Signe monétaire

CURRENCY SIGN IS lit

lit est un seul caractère qui ne doit pas prêter confusion avec les autres caractères que l'on peut trouver dans une clause PIC.

Signe décimal

DECIMAL-POINT IS COMMA

La virgule doit être utilisée à la place du point et apparaîtra comme une virgule sur les outputs.

– PARTIE III – DATA DIVISION

On étudie ici en détail ce qui compose la DATA DIVISION. On reporte à des parties suivantes la déclaration de tables et de fichiers.

7.DATA DIVISION

Cette division est dédiée à la déclaration des variables. Il y a 3 sections.

DATADIVISION.

FILESECTION.

WORKING-STORAGESECTION.

LINKAGESECTION.

7.1.       FILE SECTION.

Définit le structure des enregistrements se trouvant dans les fichiers. Il n'y a aucune allocation mémoire mais uniquement la définition de masques pour lire les tampons de fichiers.

FD nom-fichier.

01 enr1.

… [01 enr2.

…]

•    nom-fichier est le nom interne à COBOL du fichier (cf. clause SELECT).

•    Chaque enregistrement  concerne donc la même zone mémoire.

7.2.    WORKING-STORAGE SECTION.

C'est ici qu'on définit toutes les variables La syntaxe générale de définition d'une variable est niveau nom-variable [PIC image] [VALUE const] [USAGE …]

plus encore bien d 'autres options qui sont vues dans des fiches à part

7.3.    LINKAGE SECTION.

Cette section est dédiée à la description des variables qui vont être échangées entre programme. Cette notion est liée à l'appel de sous-programme (CALL) et est examinée dans une partie séparée.

8.LITTÉRAUX ET CONSTANTES

8.1.       LITTÉRAUX NUMÉRIQUES

Format simple (il existe également un format scientifique)

•    Suite de chiffres avec utilisation du point décimal et du signe

•    Maximum 18 chiffres

•    Le point ne peut pas être final (mais il peut commencer le nombre)

•    Le signe est placé en tête

8.2.       LITTÉRAUX ALPHANUMÉRIQUES

•    N'importe quels caractères inclus dans des apostrophes.

•    Pour indiquer une apostrophe, on la dédouble.

•    Taille maximale, 160 caractères

8.3.       CONSTANTES FIGURATIVES

Noms représentant des littéraux. Chaque constante représente une suite infinie du caractère spécifié. La taille réellement utilisée dépendra du contexte.

•    ZERO, ZERO(E)S : numérique 0 ou suite de caractères 0, en fonction du contexte

•    SPACE(S) : suite d'espaces

•    HIGH-VALUE(S) : suite du caractère de code le plus élevé. (FF) • LOW-VALUE(S) : suite du caractère de code le plus bas (00)

•    QUOTE(S) : suite d'apostrophes.

•    ALL littéral : suite d'occurrence de la chaîne de caractères spécifiée.

•    Une expression comme ALL SPACES est redondante.

9.EXPRESSION ARITHMÉTIQUE

Les opérateurs intervenant dans une expression arithmétique sont, dans l'ordre de priorité d'évaluation:

•    - +  moins et plus unaires

•    **  exposant

•    * /  multiplication et division

•    - +  soustraction et addition

COBOL impose des règles strictes quant à l'écriture des expressions afin de lever certaines ambiguïtés.

•    Les opérateurs sont entourés d'un espace ou d'une parenthèse. Le non respect de cette règle provoque des avertissements à la compilation

L'utilisation d'expressions complexes étant fortement limitée dans bon nombre de contextes, les expressions les plus générales se rencontreront presque exclusivement dans l'ordre COMPUTE.

10.EXPRESSION LOGIQUE

10.1.    COMPARAISON

La comparaison sera numérique si les 2 opérandes sont numériques. Un opérande numérique édité entraînera une comparaison non numérique. Les opérateurs sont

[IS] [NOT] {GREATER THAN, >}

[IS] [NOT] {LESS THAN, <}

[IS] [NOT] {EQUAL TO =}

[IS] [NOT] {GREATER THAN OR EQUAL TO, >=}

[IS] [NOT] {LESS THAN OR EQUAL TO, >=}

10.2.    TEST DE SIGNE Uniquement pour les numériques

val [IS] [NOT] {POSITIVE, NEGATIVE, ZERO}

10.3.    CONDITION COMPLEXE

On peut combiner les résultats avec les opérateurs logiques NOT, AND et OR, dans cet ordre de priorité. Les opérandes sont évalués de gauche à droite et l'évaluation est arrêtée dès que le résultat peut être déterminé.

10.4.    SIMPLIFICATION ECRITURE

On peut simplifier l’écriture d’expressions logiques complexes en

1.    omettant le membre de gauche d’une relation : il est alors pris égal au précédent membre de gauche.

2.    ommetant également la relation : elle est alors prise identique à la relation précédente.

10.5.    NOM DE CONDITION cf. la fiche associée

10.6.    NOM DE CLASSE

Test d'appartenance à un groupe de caractères (cf. description de la clause CLASS)

[IS] [NOT] {NUMERIC, ALPHABETIC, ALPHABETIC-LOWER,

            ALPHABETIC-UPPER, nom-de-classe}

11.TYPES DE VARIABLES

11.1.    VARIABLE ALPHABÉTIQUE

•    Ne peut contenir que des lettres et des espaces

•    PIC admis : A

•    USAGE admis : DISPLAY

•    VALUE peut recevoir tout littéral non numérique ne contenant que des lettres et des espaces

11.2.     VARIABLE NUMÉRIQUE

•    Nombre entier ou non, signés ou non

•    PIC admis : 9, S et V

•    USAGE admis : DISPLAY, BINARY, COMP, PACKED-DECIMAL, COMP-3,

COMP-4 (fort dépendant d'un compilateur à l'autre)

•    VALUE peut recevoir tout nombre, et ZERO

•    Peuvent intervenir comme opérande d'un calcul

•    Attention : Pour certains compilateurs, on ne peut pas assigner une valeur négative si pas de signe dans la définition. Pour d'autres, le signe est perdu sans message d'erreur.

11.3.     VARIABLE NUMÉRIQUE ÉDITÉE

•    PIC admis : 9, S et V, B, Z, 0, /, ',', '.', +, - , CR, DB, *, $

•    USAGE admis : DISPLAY

•    VALUE doit recevoir une chaîne représentant exactement le contenu mémoire (pas d'édition à partir de cette valeur)

•    Ne peuvent pas être utilisées comme opérande dans un calcul (mais peut recevoir le résultat d'un calcul)

11.4.     VARIABLE ALPHANUMÉRIQUE

•    PIC admis : X, A, 9 (au moins un X, les A et 9 sont considérés comme des X)

•    USAGE admis : DISPLAY

11.5.     VARIABLE ÉDITÉE

•    PIC admis : X, A, 9, B, 0, / (au moins un X ou A et au moins un des caractères d'édition)

•    USAGE admis : DISPLAY

•    VALUE doit recevoir une chaîne représentant exactement le contenu mémoire (pas d'édition à partir de cette valeur)

12.VARIABLES SIMPLES ET STRUCTURÉES

La notion de variable structurée en COBOL est très proche de la notion classique de structure dans les autres langages. On regroupe plusieurs zones d'informations en une seule zone ayant un nom. On définit cela en donnant des niveaux.

On a ici plusieurs structures imbriquées. L'allocation mémoire est la suivante

•    Le niveau supérieur doit porter le niveau 01.

•    Les suivants sont compris entre 02 et 49. On peut sauter des numéros.

•    2 frères doivent avoir le même numéro. Ce n'est plus obligatoire pour les cousins (RUE et JOUR ne doivent pas avoir le même numéro).

•    Seul les variables élémentaires (dernier niveau) peuvent posséder une clause PIC. Une variables structurée a implicitement une clause PIC X(n) où n est le nombre d'octets occupés par les éléments qui composent la structure.

•    Une zone non structurée a le niveau 77 (01 est valable aussi mais non recommandé).

•    Il arrive qu'une partie d'une structure ne sera pas utilisée. On peut alors utiliser le mot clé FILLER ou même omettre le nom. On utilisera beaucoup ce principe dans les fichiers d'entrées si certaines informations ne sont pas pertinentes pour notre cas ou encore dans les fichiers de sortie lorsque des séparateurs sont définis.

13.NOMMER LES VARIABLES

13.1.    NOMS QUALIFIÉS : IN OU OF

On peut, dans un programme, utiliser plusieurs fois le même nom pour désigner des variables pour autant qu'on puisse les distinguer par la structure dans lesquelles elles se trouvent.

13.2.    MODIFICATION DE RÉFÉRENCE On peut extraire facilement une sous-chaîne

id(début:[longueur])

début indique le premier caractère à prendre (on compte à partir de 1).

longueur indique la longueur de la sous-chaîne (jusqu'au bout si non spécifié).

Ce sont 2 littéraux entiers > 0.

On trouve d’abord le nom qualifié puis la modification de référence

id OF structure (debut:longueur)

Attention: Une partie de variable est toujours considérée comme une chaîne (même si extrait d'un numérique)

14.CLAUSE PIC

Les caractères les plus simples ne posent pas de problèmes. Pour certains, il est parfois difficile (et cela peut varier d'un compilateur à l'autre) de déterminer exactement le résultat obtenu dans les cas les plus tordus.

Dans tous les cas, on peut répéter plusieurs fois un même caractère ou indiquer le nombre d'occurrences entre parenthèses

14.1.    CARACTÈRES SIMPLES lettre ou þ tout chiffre 0 à 9

signe virtuel (pas d'octet réservé) point décimal virtuel (pas d'octet réservé)

Le signe virtuel utilise le chiffre hexadécimal de poids fort du dernier octet pour représenter le signe, suivant la table suivante

14.2.     CARACTÈRES D'ALLÉGEMENT DES 0

Les 0 de tête sont remplacés par des þ. (*1) (*2) Les 0 de tête sont remplacés par des *. (*1) (*3)

•    PIC 9Z n'a pas de sens ? interdit.

 (*1) On s'arrête normalement au point décimal.

•    A PIC ZZVZZZ. MOVE 0.003 TO A donne þþ003

•    A PIC . MOVE 0.003 TO A donne þþ.003

(*2)    Si que des Z et valeur 0 ? que des espaces (point décimal supprimé)

•    A PIC ZZVZZZ. MOVE 0 TO A donne þþþþþ

•    A PIC . MOVE 0 TO A donne þþþþþþ

(*3)    Si que des * et valeur 0 ? que des * (point décimal non supprimé)

•    A PIC **.***. MOVE 0 TO A donne **.***

14.3.  CARACTÈRES D'INSERTIONS þ

/ (*4) 0 (*4)

insère une virgule, souvent utilisé pour la virgule séparant les milliers (*4) signe monétaire (en tête ou en fin)

point décimal signe (en tête ou en fin) signe – ou espace (en tête ou en fin) apparaît si nombre négatif, sinon espaces (uniquement en fin) apparaît si nombre négatif, sinon espaces (uniquement en fin)

•    Les zones éditées peuvent juste être assignées (par MOVE ou équivalent); elles ne peuvent pas apparaître comme opérande d'un calcul.

(*4)   N'apparaît pas si le caractère à gauche est un espace.

14.4.     CARACTÈRES FLOTTANTS

•    ++…+        Z avec le signe placé le plus à droite possible

•    --…-           Z avec le signe placé le plus à droite possible (si négatif)

•    $$…$        Z avec le signe monétaire placé le plus à droite possible

14.5.    EXEMPLES RÉCAPITULATIFS ET DIFFICULTÉS

 VALUE

Cette clause permet de donner une valeur de départ à une variable

•    Les variables ont une valeur par défaut mais il est plus prudent de ne pas en ternir compte

•    Cette clause n'a aucun sens en FILE SECTION

•    Pour une variable éditée, on doit assigner une chaîne de caractère qui sera recopiée telle quelle dans la zone mémoire assignée, sans formatage.

•    La valeur assignée ne peut pas déborder de la zone assignée. Il n'y a pas de troncature effectuée

 USAGE

Cette clause permet notamment de définir le format interne de représentation d'une variable numérique; c'est ce que nous étudions ici. Elle est également utilisée pour la déclaration de données index (cf. tableaux). • Pas pour les niveau 66 et 88

•    Si donné pour un groupe, s'applique à tous les éléments du groupe (qui ne peuvent amener une contradiction)

16.1.     DISPLAY (PAR DÉFAUT)

•    La donnée est représentée sous forme de caractère, 1 par octet.

•    Facilite l'écriture mais complique le calcul.

•    Lors d'un calcul, la donnée est convertie en format interne, le calcul est effectué puis, si la variable est modifiée, on revient à la forme DISPLAY.

•    Chaque chiffre d'un nombre sera représenté par un octet. Le signe sera représenté dans les 4 bits de poids fort du dernier caractère.

•    0 à 9 :         F0 à F9 (en EBCDIC)

•    + : C en poids fort, - : D en poids fort

•    exemple  : +1234 est représenté  : F1 F2 F3 C4

(cf. table EBCDIC pour obtenir le caractère équivalent.)

16.2.     BINARY

•    La donnée numérique est représentée en complément à 2, virgule fixe.

•    Le bit de poids fort est utilisé pour représenté le signe.

•    Le nombre de bits dépend du nombre de chiffres déclarés dans la clause PIC

16.3.     COMP(UTATIONAL)

•    Représentation d'un numérique entier. Système dépendant (ici = BINARY)

16.4.     COMP(UTATIONAL)-1

•    Représentation d'un flottant en simple précision (4 octets)

16.5.     COMP(UTATIONAL)-2

•    Représentation d'un flottant en double précision (8 octets)

16.6.     COMP(UTATIONAL)-3

•    Système dépendant (ici = PACKED-DECIMAL)

16.7.     COMP(UTATIONAL)-4

•    Système dépendant (ici = BINARY)

16.8.     PACKED-DECIMAL

•    Comme DISPLAY mais on stocke 2 chiffres par octets (puisque 4 bits suffisent)

•    Le signe est représenté dans la partie faible du dernier octet.

 REDEFINES

Permet de redéfinir une zone mémoire en en donnant une autre interprétation.

niveau id1 REDEFINES id2 …

Doit apparaître directement après le nom de la variable, avant les autres clauses

Indique que id1 redéfinit la zone occupée par id2 plutôt que de définir une nouvelle zone.

Doit suivre immédiatement la définition de id2.

Le niveau doit être le même.

id1 ne peut pas contenir de clause VALUE.

La longueur de la nouvelle donnée ne peut excéder la zone attribuée pour la première.

Interdit en niveau 1 de la FILE SECTION. Inutile puisqu’il y a un REDEFINES explicite.

18.AUTRES CLAUSES

18.1.     MISE A BLANC

La clause BLANK WHEN ZERO permet de mettre tout un champ à blanc si la valeur est nulle.

18.2.     LA CLAUSE JUST(IFIED)

Cette clause, valable pour les variables non numériques indique à cadrage à droite lors des

MOVE.

JUST[IFIED] RIGHT

18.3.     LA CLAUSE SYNC(HRONIZED)

Les variables binaires seront synchronisées sur une adresse paire ce qui est parfois nécessaire pour un accès direct via le processeur

SYNC { LEFT  }

RIGHT

18.4.     LA CLAUSE SIGN

Permet d'indiquer comment va être représenté le signe pour une variable numérique de type

DISPLAY.

SIGN IS { LEADING }  [SEPARATE]

TRAILING

Le signe sera stocké avec le premier ou le dernier chiffre ou séparément (en tête ou en queue).

DE CONDITIONS

19.1.     DÉFINITION

Il est possible d'associer un nom à certaines valeurs d'une variable. Cela permet de clarifier le code.

88 nom-condition {VALUE IS|VALUES ARE} lit-1 [THRU lit2]

                                      [lit-3 [THRU lit-4]] …

•    On peut avoir plusieurs clauses 88.

•    Elles doivent suivre immédiatement la déclaration de la variable. • On peut indiquer des intervalles mais on doit respecter lit-1<lit-2

•    On peut définir des conditions aussi bien en file section qu'en working-storage.

•    Cela peut être une sous-structure.

19.2.     MODIFICATION

Un nom de condition se modifie via la commande SET.

SET nom-condition TOTRUE

•    Modifie la variable associée afin que la condition soit vraie

•    Si plusieurs valeurs sont associées à une condition, la première est choisie

19.3.     UTILISATION

Un nom de condition peut apparaître partout où une condition peut apparaître.

– PARTIE IV –

PROCÉDURE DIVISION

20.ACCEPT

ACCEPT permet de lire sur le fichier standards d'entrée (stdin, sysin, …) ou, variante, de lire une variable système.

20.1.    LECTURE SUR LE FICHIER D'ENTRÉE STANDARD

ACCEPT id

•    Le fichier d'entrée ne doit pas être ouvert ou fermé.

•    Chaque lecture concerne une ligne physique entière (considérée comme composée de 80 caractères).

•    On indique une variable et pas un nom de ficher comme dans un READ.

•    Un seul identificateur est permis (souvent un groupe)

•    Pas de notion de fin de fichier; d'où la connaissance du nombre d'enregistrement ou l'utilisation d'une valeur sentinelle est nécessaire.

•    Si la zone réceptrice est trop grande, il y a remplissage; si elle est trop petite, on tronque.

•    Dans la norme, il n'y a aucune conversion de données à la lecture

20.2.    MVS

Sur MVS, le fichier d'entrée standard est SYSIN, déclaré dans la carte JCL par

20.3.    LECTURE DE PARAMÈTRES SYSTÈME

Cet ordre peut également être utilisé pour lire la date courante

ACCEPT id FROM DATE // AAMMJJ

ACCEPT id FROM DAY  // AAJJJ

ACCEPT id FROM TIME // HHMMSSCC

Addition

21.1.        1° FORMAT

ADD val1 [val2…] TO id3 [ROUNDED] [id4 [ROUNDED]…]

    [ON SIZEERROR proc1]

    [NOT ON SIZEERROR proc2]

[END-ADD]

•    id3 ? id3 + val1 + val2

•    id4 ? id4 + val1 + val2

•    On peut mélanger les USAGE et les formats

•    ROUNDED : ajoute 5 au premier chiffre qui sera perdu (pas forcement un arrondi entier donc!) .

•    ON SIZE ERROR : lancé si dépassement de capacité à gauche. Les variables posant problème restent inchangées.

21.2.        2° FORMAT

ADD val1 [val2…] TO val3

GIVING id4 [ROUNDED] [id5 [ROUNDED]…]

    [ON SIZEERROR proc1]

    [NOT ON SIZEERROR proc2]

[END-ADD]

•    id4 ? val1 + val2 + val3

•    id5 ? val1 + val2 + val3

ATTENTION : Sur MVS, les calculs avec des nombres flottants sont toujours arrondis même si la clause ROUNDED n'est pas spécifiée (cf. Réf MVS p186)

22.COMPUTE

Calcul général

COMPUTE id1 [ROUNDED] = expr

    [ON SIZE ERROR proc1]

    [NOT ON SIZE ERROR proc2]

[END-COMPUTE]

•    Combinaison de : -, +, *, /, **

Cf. règles d'écriture d'une expression arithmétique.

•    COBOL choisit la précision des variables intermédiaires ce qui peut surprendre

23.DISPLAY

DISPLAY permet d'écrire sur le fichier standard de sortie.(stdout, sysout, …)

DISPLAY val1 [val2 …]

•    On peut indiquer plusieurs identificateurs qui seront écrits un à la suite de l'autre.

•    Si la zone réceptrice est trop grande, il y a padding; si elle est trop petite, on tronque.

•    Chaque écriture concerne une ligne physique entière (considérée comme composée de 120 caractères).

•    Dans la norme, il n'y a aucune conversion de données à l'écriture

•    Sur MVS, le fichier de sortie standard est SYSOUT, déclaré dans la carte JCL par

24.DIVIDE

Division

1.1. 1° FORMAT

DIVIDE val1 INTO id2 [ROUNDED] [id3 [ROUNDED]…]

    [ON SIZEERROR proc1]

    [NOT ON SIZEERROR proc2]

[END-DIVIDE]

•    id2 ? id2 / val1

•    id3 ? id3 / val1

•    ROUNDED, ON SIZE ERROR : cf. ADD

•    diviser par 0 équivaut à un dépassement de capacité

24.1.        2° FORMAT

DIVIDE val1 {INTO|BY} val2

GIVING id4 [ROUNDED] [id5 [ROUNDED]…]

    [ON SIZEERROR proc1]

    [NOT ON SIZEERROR proc2]

[END-DIVIDE]

•    INTO : id4 ? val2 / val1

•    BY : id4 ? val1 / val2

24.2.        3° FORMAT

DIVIDE val1 {INTO|BY} val2

GIVING id4 [ROUNDED]

REMAINDER id5

    [ON SIZEERROR proc1]

    [NOT ON SIZEERROR proc2]

[END-DIVIDE]

•    id5 reçoit le reste de la division (dépend de la déclaration, pas forcément entier)

25.EVALUATE

Opérateur à la syntaxe complexe permettant le choix entre plusieurs possibilités

     25.1.    UTILISATION SIMPLE

EVALUATE id

WHEN lit2         proc1

    …

    [WHENOTHER         proc2] [END-EVALUATE]

•    Le plus proche d'un switch en C.

•    Attention à l'ordre. Une fois une  condition remplie, on ne teste pas les autres. • Pas de mécanisme de break comme en C car on ne passe pas au cas suivant

•    Si plusieurs cas sont vérifiés, on ne retient que le premier.

•    Si aucun cas n'est vérifié, on effectue la clause OTHER (ou rien si absente)

     25.2.   GÉNÉRALISATION POUR LES EXPRESSIONS NUMÉRIQUES ET ALPHANUMÉRIQUES

EVALUATE expr1

WHEN [NOT] {expr2} [THRU {expr3}]

        proc1

    …

    [WHENOTHER         proc2] [END-EVALUATE]

•    Sans THRU, le cas est sélectionné si expr1 = expr2

•    Il faut que les 2 expressions soient compatibles (numériques ou alphanumériques) • avec THRU, le cas est sélectionné si expr2<=expr1<=expr3

•    NOT, inverse le test.

     25.3.    GÉNÉRALISATION POUR LES CONDITIONS

EVALUATE {cond1|TRUE|FALSE}     WHEN {cond2|TRUE|FALSE} proc1

    …

    [WHENOTHER         proc2] [END-EVALUATE]

•    Le cas est sélectionné si les 2 éléments ont la même valeur de vérité.

•    on peut utiliser des noms de conditions.

25.4.     ASSOCIATION DE CAS

EVALUATE el1

WHEN el2     WHEN el3         proc1

    …

[END-EVALUATE]

•    où el représente tout ce qui est permis là, à savoir une expression, une condition, TRUE ou FALSE.

•    On peut associer plusieurs clauses WHEN à un paragraphe, il sera exécuté si la comparaison se vérifie pour au moins une des clauses, à savoir el1=el2 ou el1=el3.

25.5. ALSO : PLUSIEURS CONDITIONS ENSEMBLES

EVALUATE el1 ALSO el2

WHEN el3 ALSO el4

    …

    [WHENOTHER proc2]

[END-EVALUATE]

•    Le cas est vérifié si el1=el3 et el2=el4

•    On peut mélanger les expressions arithmétiques et les conditions

25.6. ANY : ELÉMENT UNIVERSEL

•    ANY peut remplacer tout élément.

•    Une comparaison avec ANY est toujours vérifiée.

Branchement conditionnel.

IF cond THEN    proc1 [ELSE    proc2] [END-IF]

•    Attention à l'utilisation judicieuse du point

•    Dans le cas de choix imbriqués, un ELSE se rapporte toujours au dernier IF ouvert.

27.INSPECT

Cet ordre permet

–              de compter des caractères dans une chaîne –         de remplacer des parties de chaîne.

27.1.     COMPTER

INSPECT var TALLYING id

FOR {CHARACTERS   } [{BEFORE} [INITIAL] val2]…]

        {ALL val1     }  {AFTER }

        {LEADING val1 }

    …

•    Analyse la variable var

•    id est incrémenté du nombre de valeurs trouvées.

•    CHARACTERS compte les caractères (quels qu'ils soient)

•    ALL val1 compte les occurrences de val1 (une chaîne quelconque). Pas de recouvrement des chaînes

•    LEADING val1 compte les occurrences de val1 en début de chaîne.

•    AFTER INITIAL val2 ne commence à compter qu'après la rencontre de val2

•    BEFORE INITIAL val2 s'arrête de compter à la rencontre de val2.

27.2.     REMPLACER

INSPECT var REPLACING

    {CHARACTERS BY val2}             

    {ALL|LEADING|FIRST} val1 BY val2} 

        [{BEFORE} [INITIAL] val3] …

         {AFTER }

    …

•    Analyse la variable var afin d'y remplacer des parties de chaînes.

•    id est incrémenté du nombre de valeurs trouvées. • CHARACTERS : on remplace tous les caractères par val2 • ALL val1 BY val2 : On remplace val1 par val2.

•    FIRST val1 BY val2 : On remplace la première occurrence de val1 par val2.

•    LEADING val1 BY val2 : On remplace val1 par val2 pour  tous les val1 en tête de chaîne.

•    Attention : les chaînes de remplacement doivent être de même longueur que les chaînes remplacées.

27.3.    COMPTER ET REMPLACER

Les 2 versions précédentes pour être combinées dans un même ordre. On compte avant de remplacer.

27.4.    REMPLACEMENT DE CARACTÈRES

Si on veut remplacer une série de caractères, il existe une version plus compacte de l'ordre qui est

INSPECT var CONVERTING val1 TO val2

        [{BEFORE} [INITIAL] val3] …

         {AFTER }

•    val1 et val2 ont la même taille

•    Tout caractère de val1 est remplacés dans var par le caractère en même position dans val2.

28.MERGE

Fusion de fichiers.

28.1.     SYNTAXE SIMPLE

MERGE wrk-file

    {ASCENDING|DESCENDING} cle1 [clé2…]

    …

    USING file2 [file3…]

    GIVING file4

•    Le fichier intermédiaire est traité comme avec le SORT

•    Fusionne file2, file3, … et met le contenu dans file4

•    Les fichiers sont triés sur une ou plusieurs clé

•    Tous décrits en FD avec la même structure

28.2.     POST-TRAITEMENT

Ici aussi, on peut effectuer un post-traitement sur le résultat

MERGE wrk-file

    {ASCENDING|DESCENDING} cle1 [clé2…]

    …

    USING file2 [file3…]

    OUTPUT PROCEDURE nom-section

•    La lecture dans le fichier intermédiaire ne se fait pas via un READ mais via un RETURN dont la syntaxe est identique à part cela.

Transfert de données entre zones mémoires

MOVE val1 TO id1 …

Le type de transfert va dépendre de la variable réceptrice (id1)

•    Alphabétique, alphanumérique (édité) : cadrage à gauche avec remplissage d'espaces ou troncature. Si val1 est signé, le signe est perdu.

•    Numérique (édité) : cadrage sur le point décimal avec remplissage de 0. Le signe est gardé. Si val1 est alphanumérique, il ne peut contenir que des chiffres

Types de MOVE valides

: _CLAUSE CORRESPONDING

Cette clause, présente dans les ordres MOVE, ADD et SUBTRACT permet d'effectuer en une seul ordre une opération sur plusieurs champs d'une structure.

30.1.     PRINCIPE DE BASE : LE MOVE

MOVECORRESPONDING struc1 TO struc2

•    S'il existe un champ qui possède le même nom dans les 2 structures, on effectue l'opération, ici le MOVE, sur ces 2 champs. Quand on dit que le nom est le même, il s'agit du nom qualifié total  (relativement à la structure)

•    Le champ doit être élémentaire dans au moins 1 des 2 structures.

•    Les champs non concernés ne sont pas modifiés

•    Les numéros de niveau ne doivent pas forcément être identiques

•    L'ordre d'apparition du champ dans la structure n'a pas d'importance

30.2.     OPÉRATIONS

La clause peut également apparaître dans des formes simples de ADD et SUBTRACT

ADDCORRESPONDING struc1 TO struc2

SUBTRACTCORRESPONDING struc1 FROM struc2

31.MULTIPLY

Multiplication

31.1.     1° FORMAT

MULTIPLY val1 BY id2 [ROUNDED] [id3 [ROUNDED]…]

    [ON SIZEERROR proc1]

    [NOT ON SIZEERROR proc2]

[END-MULTIPLY]

•    id2 *? val1

•    id3 *? val1

•    ROUNDED, ON SIZE ERROR : cf. ADD

31.2.     2° FORMAT

MULTIPLY val1 BY val2

GIVING id4 [ROUNDED] [id5 [ROUNDED]…]

    [ON SIZEERROR proc1]

    [NOT ON SIZEERROR proc2]

[END-MULTIPLY]

•    id4 ? id5 ? val1 * val2

32.PERFORM

Répétition contrôlée d'une partie de code. Une fois le PERFORM terminé, on passe à l'instruction suivante.

32.1.     APPEL SIMPLE

PERFORM par1 [ THRU par2 ]

•    On exécute par1 (jusque par2) puis on revient.

32.2. TIMES : ITÉRATION NOMBRE FIXE DE FOIS

PERFORM par1 [ THRU par2 ] {val} TIMES

•    Si val <=0, on passe directement à l'instruction suivante

•    Modifier val dans la procédure n'a plus d'influence

32.3. UNTIL : TANT QUE

PERFORM par1 [ THRU par2 ] UNTIL cond

•    le test est effectué avant

32.4. VARYING : BOUCLE

PERFORM par1 [ THRU par2 ]

        VARYING id1 FROM {val2} BY {val3} UNTIL cond1

        [AFTER  id4 FROM {val5} BY {val6} UNTIL cond2 …]

•    modification des variables prise en compte.

•    Le cas simple correspond à (en C) : for(id1=val2;!cond1;id1+=val3) {par1}

•    AFTER introduit les boucles imbriquées

•    Le cas double correspond à

for(id1=val2,id4=val5;!cond1;id1+=val3,id4=val5) for(;!cond2;id4+=val6)

32.5.     CLAUSE WITH TEST : RÉPÉTER

PERFORM par1 WITH TEST {BEFORE|AFTER}

•    Permet de forcer un répéter à la place d'un tant que

•    Ne peut apparaître que là où il y a un UNTIL.

•    La clause apparaît avant le reste (UNTIL ou VARYING)

32.6.     UTILISATION ENLIGNE

PERFORM …    proc END-PERFORM

•    Valable pour tout type de PERFORM (sauf clause AFTER). On indique le code plutôt que d'appeler un paragraphe. Seul cas où peut apparaître la clause END-PERFORM.

33.SEARCH

Permet une recherche dans une table possédant un index.

33.1.     RECHERCHE SÉQUENTIELLE

01 table.

    03 element OCCURS …

SEARCH element [VARYING {idx|don-idx|ind}]

    [ATEND proc]

    [WHEN cond1 {proc1|CONTINUE}]

    …

[END-SEARCH]

•    VARYING : Par défaut, on utilise le premier index associé au tableau mais on • indiquer un autre index du tableau qui sera utilisé à la place

•    indiquer un index d'un autre tableau qui suivra l'index principal du tableau

•    indiquer une donnée index qui suivra l'évolution de l'index principal du tableau

•    indiquer un indice qui suivra l'index principal du tableau

•    On commence par l'élément pointé par l'index utilisé pour la recherche

•    Lorsqu'une condition est vérifiée, on exécute la procédure correspondante puis on sort du SEARCH. La condition est quelconque.

•    La recherche est faite sur tout le tableau pas uniquement la partie ayant un sens (sauf si table de longueur variable).

•    Rien n'est prévu pour une recherche dans une table à plus d'une dimension; utilisation de boucles pour les niveaux supérieurs et d'un SEARCH pour le dernier niveau

33.2.     RECHERCHE DICHOTOMIQUE

Lorsque les éléments de la table sont triés, on peut effectuer une recherche plus rapide Il faut indiquer le tri lors de la déclaration de la table.

01 table.

    03 element OCCURS

              [ASCENDING|DESCENDING KEY IS  id1 id2… ] …

•    Indique que la table est triée en majeur sur id1 puis en mineur sur id2. • id1 et id2 sont des parties des éléments de la table (ou tout l'élément)

•    Il incombe au programmeur de respecter son ordre.

•    Un index doit être associé à la table

SEARCHALL element

    [WHEN CLE(idx) = ARG {proc1|CONTINUE}]

    …

[END-SEARCH]

•    Recherche dans toute la table sauf si table variable ? uniquement partie utile.

•    Les conditions sont limitées à des égalités testées sur la clé principale au moins.

Tri d'un fichier.

34.1.     FICHIER INTERMÉDIAIRE

Le tri se fait via un fichier intermédiaire

SELECT wrk-file ASSIGN TO nom-assigné

…

SD wrk-file

01 nom-record

…

•    Le fichier ne doit pas exister sur le système. Il sera crée.

•    Pas de carte JCL pour ce type de fichier

•    Déclaration en FILE SECTION par SD (sort descriptor) au lieu de FD.

34.2.     SYNTAXE SIMPLE

SORT wrk-file

    {ASCENDING|DESCENDING} cle1 [clé2…]

    …

    USING file2

    GIVING file3

•    description des clés de tri dans l'ordre d'importance.

•    file2 : fichier à trier, séquentiel.

•    file3 : fichier trié, séquentiel, indexé (trié en ascending sur la clé primaire) ou relatif

•    Tous les fichiers doivent être fermés. SORT se charge de les ouvrir et de les refermer à la fin.

•    Tous décrits en FD avec la même structure

34.3.     PRÉ-TRAITEMENT

On peut effectuer un pré-traitement sur les enregistrements (sélection d'enregistrements ou de champs)

SORT wrk-file

    {ASCENDING|DESCENDING} cle1 [clé2…] …

    INPUT PROCEDURE IS nom-section

    GIVING file3

•    Dans la section, on a la charge d'ouvrir les fichiers, lire les enregistrements, placer ce qu'il faut dans le fichier intermédiaire et refermer le fichier.

•    L'écriture dans le fichier intermédiaire ne se fait pas via un WRITE mais via un RELEASE dont la syntaxe est identique à part cela.

34.4.     POST-TRAITEMENT

De la même façon, on peut effectuer un post-traitement sur le résultat (typiquement pour une impression)

SORT wrk-file

    {ASCENDING|DESCENDING} cle1 [clé2…] …

    USING file2

    OUTPUT PROCEDURE nom-section

•    La lecture dans le fichier intermédiaire ne se fait pas via un READ mais via un RETURN dont la syntaxe est identique à part cela.

35.STRING

Concaténation de chaînes

STRING

    val1 [val2…] DELIMITED BY {val3|SIZE}

    […]

INTO id

    [WITHPOINTER id2]

    [ON OVERFLOW proc1]

    [NOT ON OVERFLOW proc2]

[END-STRING]

•    Concatène simplement si délimité par SIZE.

•    Sinon, on tronque val1 et val2 à la première occurrence de val3.

•    si id est trop court, il y a troncature

•    Si on ne remplit pas id, il n'y a pas de complétion avec des blancs

35.1.     CLAUSE WITH POINTER

•    indique où on commence dans le résultat et où on termine

35.2.     CLAUSE OVERFLOW

•    Lancé si on dépasse la zone réceptrice. (lié aussi à la valeur initiale du pointeur)

36.SUBTRACT

Soustraction

36.1.     1° FORMAT

SUBTRACT val1 [val2…] FROM id3 [ROUNDED] [id4 [ROUNDED]…]

    [ON SIZEERROR proc1]

    [NOT ON SIZEERROR proc2]

[END-SUBTRACT]

•    id3 ? id3 – (val1 + val2)

•    id4 ? id4 – (val1 + val2)

•    ROUNDED, ON SIZE ERROR : cf. ADD

•    Si la zone réceptrice n'est pas signée, elle reçoit la valeur absolue.

36.2.     2° FORMAT

SUBTRACT val1 [val2…] FROM val3

GIVING id4 [ROUNDED] [id5 [ROUNDED]…]

    [ON SIZEERROR proc1]

    [NOT ON SIZEERROR proc2]

[END-SUBTRACT]

•    id4 ? val3 – (val1 + val2)

•    id5 ? val3 – (val1 + val2)

37.UNSTRING

Opération inverse de STRING. Décompose une chaîne

37.1.     1° FORMAT

UNSTRING id1

DELIMITED BY [ALL] val1 [OR [ALL] val2…]

INTO  id2 [DELIMITER IN id3] [COUNT IN id4]

         [id5 [DELIMITER IN id6] [COUNT IN id7]…]

    [WITH POINTER id8]

    [TALLYING IN id9]

    [ON OVERFLOW proc1]

    [NOT ON OVERFLOW proc2]

[END-UNSTRING]

•    id1 : chaîne à décomposer

•    val1, val2 : délimiteurs pour séparer les éléments (examinés dans l'ordre)

•    ALL indique que plusieurs occurrences successives sont prises comme une seule (ALL SPACE <> SPACE)

•    Si délimiteurs contigus (sans ALL) ? mot vide

•    id2, id5 : reçoivent les parties de id1 (via un MOVE -> padding et troncature)

•    id3, id6 : reçoit le délimiteur trouvé pour cette partie là. (les délimiteurs ne sont pas compris dans les parties de chaîne)

•    id4, id7 : nb de caractères transférés dans id2 ou id5

•    id8 : pointeur pour indiquer où on commence à décomposer.

•    id9 : nb de mots transférés (mots vides compris)

•    overflow si on commence en dehors de la chaîne (mauvaise valeur du pointeur) où pas assez de zones réceptrices.

37.2.     2° FORMAT

UNSTRING id1

INTO  id2 [id3…]

    [WITH POINTER id8]

    [TALLYING IN id9]

    [ON OVERFLOW proc1]

    [NOT ON OVERFLOW proc2]

[END-UNSTRING]

•    On décompose en fonction de la taille des zones réceptrices.

– PARTIE V –

TABLE

Une table est une collection d'éléments de même nature qui sont liés sémantiquement. On présente ici tout ce qui les concerne :

déclaration, initialisation, utilisation, …

38.TABLE : DÉCLARATION ET INDICE

38.1.     INDICE

•    Entier > 0 déclaré WORKING-STORAGE section

•    Pour désigner un élément, seul id +/- littéral est permis

•    Le premier élément a le numéro 1 (pas 0 comme en C). Pas de vérification des bornes

38.2.     DÉCLARATION

01 table.

    03 element OCCURS lit TIMES …

•    La clause ne peut pas apparaître aux niveaux 01 ou 77

•    Permis dans toute la DATA division

•    Référence à un élément : element( indice )

•    Si nom qualifié, d'abord indiquer le qualificatif : element of … (indice)

•    L'indice peut être lui-même un nom qualifié.

•    L'indice peut-être un élément de tableau

38.3.     UN ÉLÉMENT DE TABLE PEUT-ÊTRE UNE STRUCTURE

01 table.

    03 element OCCURS lit TIMES

       05 a1 …

       05 a2 …

• Référence à un champ de l'élément : a1( indice )

38.4.     TABLES IMBRIQUÉES

01 table.

    03 niv1 OCCURS lit1 TIMES

       05 niv2 OCCURS lit2 TIMES

•    Permis : niv1( ind1 ) et niv2( ind1 ind2 ).

•    Pas permis : niv1( ind1 ind2 ) ou niv2( ind1 )

•    Différent d'une structure contenant 2 tableaux séparés (si niv2 est au niveau 3 également)

38.5.    TABLE DE LONGUEUR VARIABLE

01 table.

    03 element OCCURS lit1 TO lit2 TIMES DEPENDING ON id

•    id indique la taille logique de la table mais l'espace maximal est réservé et rien n'empêche d'y aller.

•    Suivant la norme, on a 0 < lit1 < lit2 et la table doit être unique dans une structure et apparaître à la fin de celle-ci. Sur notre compilateur, les règles sont plus souples : 0 <= lit1 <= lit2 et on peut en avoir plusieurs.

•    Toutefois, s'il s'agit d'un enregistrement écrit sur fichier, on écrira la table avec sa longueur courante, économisant ainsi de l'espace disque.

39.TABLE : INITIALISATION

Il existe plusieurs façons d'initialiser une table, en fonction de ce qu'on veut y mettre et du compilateur car certaines méthodes sont récentes.

39.1.    LORS DE LA DÉCLARATION

Assignation générale à la table

Au niveau de la table, on indique la valeur d'un élément (ils auront tous la même valeur). Si l'élément est un groupe, on indique cette valeur en alphanumérique.

Assignation particulière à la table

Si les éléments de la table sont des groupes, on peut indiquer individuellement la valeur de chaque partie.

Via un REDEFINES

Utile pour assigner des valeurs différentes à chaque élément de la table.

39.2.    D_ANSLA PROCEDURE DIVISION

Par des MOVE explicites ou par lecture d'un fichier.

40.TABLE : INDEX

40.1.     INDEX

01 table.

    03 element OCCURS lit TIMES INDEXED BY idx1 [idx2 …]

•    Un index est associé à un et un seul vecteur.

•    Ne doit pas être déclaré ailleurs

•    Il possède une vue externe (comme un indice) et une vue interne (déplacement en octets dans le vecteur). Permet un accès plus rapide.

•    Si un index existe, on peut utiliser des indices aussi mais on ne peut pas mélanger index et indices dans un même accès d'élément (cas des tableaux multi-dimensionnels)

40.2.     DONNÉES INDEX

77 idx USAGE IS INDEX

•    Pas de PIC. Format géré par le compilateur.

•    Pas de valeur externe (puisque pas associé à un tableau). Sert de zone de stockage.

40.3. SET : MODIFIER LA VALEUR D'UN INDEX

Un index ne peut être manipulé par les mêmes ordres qu'une variable classique. On a

SET idx TO {val|idx}

SET idx {UP|DOWN} BY val

•    On peut combiner indices et index si cela a un sens.

40.4. VARYING : INDEX COMME ITÉRATEUR D'UNE BOUCLE

•    Le seul autre endroit où un index peut être utilisé, c'est comme itérateur d'une boucle (clauses VARYING et FROM).

– PARTIE VI – FICHIER

41.TYPES DE FICHIERS

41.1.     FICHIERS SÉQUENTIELS

La difficulté peut venir des fichiers à enregistrements de longueur variable

41.2.    FICHIERS SÉQUENTIELS À ENREGISTREMENTS DE LONGUEUR VARIABLE

Un fichier séquentiel peut avoir des enregistrements de longueur variable pour 2 raisons

•    Le fichier contient des enregistrements de type différent

•    Il contient des enregistrements avec des tables de longueur variable.

•    Au niveau physique, chaque enregistrement est précédé d'un Record Word Descriptor, un nombre sur 4 octets indiquant la taille de l'enregistrement qui suit.

Lecture

•    Au niveau de COBOL, on ne peut pas connaître la taille de l'enregistrement que l'on vient de lire. Il faut donc gérer cela au niveau du programme

Écriture

•    L'ordre d'écriture va indiquer la taille de l'enregistrement à écrire puisqu'on indique le masque à utiliser.

•    Si une table de longueur variables est présente, on ne sauvera que les éléments effectivement présents dans cette table.

41.3.     FICHIERS INDEXÉS

•    Les enregistrements pourront être accédés via une clé primaire ou des clés secondaires.

41.4.     FICHIERS RELATIFS

•    Ensemble d'enregistrements de même longueur.

•    Chaque enregistrement est caractérisé par un numéro (commence à 1)

•    Il peut être libre ou occupé. S'il est libre, il ne sera pas considéré par une lecture séquentielle et une lecture random lancera la clause d'erreur.

•    Tout accès à un enregistrement modifie la variable représentant le numéro de l'enregistrement pour refléter celui qui a été traité (par une lecture par exemple).

41.5.     TABLEAU RÉCAPITULATIF

•    Récapitulatif des ordres possibles en fonction du type de fichier, du mode d'accès et du mode d'ouverture.

•    S (séquentiel), R (relatif), I (indexé)

•    Pour un mode d'accès dynamique, on combine les 2.

42.SELECT

SELECT nom-cobol

ASSIGN TO nom-externe

       [ORGANIZATION IS SEQUENTIAL|INDEXED|RELATIVE]

       [ACCESSMODE  IS SEQUENTIAL|RANDOM|DYNAMIC]

       [RELATIVEKEY IS clé]

       [RECORDKEY IS clé]

       [ALTERNATERECORDKEY IS clé2 [WITH DUPLICATES]] …

       [FILE STATUS  IS id]        .

•    nom-cobol peut être identique à nom-externe

•    Cf fiches sur le JCL et AS/400

•    ORGANIZATION indique l'organisation physique du fichier (SEQUENTIAL par défaut)

•    ACCESS MODE indique la manière d'y accéder

•    SEQUENTIAL (défaut) : purement séquentiel

•    RANDOM : purement à la demande

•    DYNAMIC : combinaison des deux (on passe à volonté du mode séquentiel au mode random)

•    Ces 2 derniers modes ne sont pas valables pour un fichier à organisation séquentielle

•    RELATIVE KEY (fichier relatif uniquement) indique la variable qui donnera le numéro de l'enregistrement courant.

Elle sera décrite comme numérique dans la WORKING-STORAGE.

•    RECORD KEY (fichier indexé uniquement) donne le champ qui servira de clé primaire

•    ALTERNATE RECORD KEY permet de désigner des clés secondaires (avec ou sans duplication possible)

•    FILE STATUS est décrit dans une autre fiche.

clause ASCENDING / DESCENDING ?

•    ALTERNATE RECORD définit une clé secondaire qui doit faire partie de l'enregistrement. (remarque sur le JCL)

43.CLAUSE : FILE STATUS

SELECT nom-cobol …

       [FILE STATUS  IS id]        .

…      77 id PIC XX.

•    La variable reprenant le file status doit être déclarée au WORKING-STORAGE comme un XX.

•    A chaque opération sur le fichier, il reçoit un code indiquant comment l'opération s'est passée

/ CLOSE

44.1.     OPEN

OPEN {INPUT|OUTPUT|EXTEND|I-O} file1 [file2…]  …

•    INPUT : fichier existe, positionné au début, lecture seule

•    OUTPUT : fichier n'existe pas, crée (saufs certains fichiers temporaires qui seront écrasés). Écriture seule

•    EXTEND : fichier existe, positionné à la fin. Écriture seule

•    I-O : fichier existe, positionné au début. On pourra réécrire l'enregistrement qui vient d'être lu.

44.2.     CLOSE

CLOSE file1 [file2…]

•    Les fichiers qui ne sont pas explicitement fermés, le sont par l'instruction STOP RUN.

•    Après fermeture du fichier, le contenu du buffer (associé au fichier dans la FILESECTION) n'est plus garanti.

L'ordre diffère en fonction du mode d'accès au fichier. Dans tous les cas, • Le fichier doit être ouvert en mode INPUT ou I-O.

45.1.     ACCÈS SÉQUENTIEL

READ file [INTO id]

    [ATEND proc1]

    [NOTATEND proc2]

[END-READ]

•    Lit l'enregistrement courant sur le fichier.

•    Avec INTO, un MOVE du buffer vers la variable est effectué après la lecture • La clause AT END est lancée si on essaie de lire au delà de la fin du fichier.

45.2.     ACCÈS RANDOM

READ file [INTO id] [KEY …]

    [INVALIDKEY proc1]

    [NOTINVALIDKEY proc2]

[END-READ]

•    Lit l'enregistrement indiqué par son numéro (fichier relatif) ou sa clé (fichier indexé)

•    KEY : (valable uniquement pour les fichiers indexés) permet de spécifier explicitement la clé (primaire:défaut ou secondaire) utilisée.

•    La clause INVALID KEY est lancée si l'enregistrement demandé n'existe pas.

45.3.     ACCÈS DYNAMIC

•    L'ordre de lecture random ne change pas.

•    L'ordre de lecture séquentielle devient

READ file NEXT [INTO id]

    [ATEND proc1]

    [NOTATEND proc2]

[END-READ]

46.WRITE / REWRITE / DELETE

•    L'ordre pour les fichiers d'impression est décrit dans une fiche séparée.

46.1.     FICHIER SÉQENTIEL

WRITE enregistrement [FROM id]

[END-WRITE]

•    Avec FROM, un MOVE est effectué de la variable vers le buffer avant l'écriture

REWRITE enregistrement [FROM id]

[END-REWRITE]

•    Ne peut être utilisé que pour réécrire le dernier enregistrement lu par un ordre READ (réussi!)

•    L'enregistrement doit être de même longueur.

46.2.     FICHIER INDEXÉ OU RELATIF

WRITE enregistrement [FROM id]

    [INVALIDKEY proc1]

    [NOTINVALIDKEY proc2]

[END-WRITE]

•    On donne une valeur à la clé ou au numéro d'enregistrement et on lance l'écriture.

•    L'enregistrement ne peut pas déjà exister.

•    Si le fichier est ouvert en OUTPUT pour un accès séquentiel (typique lors de la création), les enregistrements doivent être écrits dans l'ordre de la clé (cas indexé) ou seront écrits dans l'ordre croissant sans tenir compte du numéro donné (cas relatif)

•    La clause INVALID KEY est lancée si on tente d'écrire un enregistrement qui existe déjà ou qu'on ne respecte pas la contrainte pour un fichier OUTPUT en mode séquentiel.

REWRITE enregistrement [FROM id]

    [INVALIDKEY proc1]

    [NOTINVALIDKEY proc2]

[END-REWRITE]

•    En accès séquentiel, remplace celui qui vient d'être lu. Doit avoir la même taille.

•    En accès random ou dynamique, on récrit en fonction de la clé.

•    L'enregistrement peut avoir une longueur différente.

•    La clause INVALID KEY est lancée si on tente d'écrire un enregistrement qui n'existe pas

DELETE file

    [INVALIDKEY proc1]

    [NOTINVALIDKEY proc2]

[END-DELETE]

•    Accès séquentiel : supprime le dernier enregistrement lu. (pas de clause INVALID KEY)

•    Autres accès : supprime l'enregistrement donné par la clé.

47.START

Permet de se positionner avant une lecture séquentielle

47.1.     START

START file

    [KEY {=|<|>|<=|NOT >|…} clé]

    [INVALIDKEY proc]

    [NOTINVALIDKEY proc]

[END-START]

•    Valide pour un accès séquentiel ou dynamic.

•    Se positionne sur l'enregistrement donné par la clé (sans lecture)

•    KEY indique à la fois la clé de référence et le test. (défaut: clé primaire et égalité)

•    clé est soit la clé primaire ou une clé secondaire (fichier indexé) soit la varibale utilisée pour référencé le numéro d'enregistrement (fichier relatif).

•    exemple  : MOVE 32 TO clé. START file KEY NOT < clé

se positionne sur le premier enregistrement dont la clé est supérieure ou égale à 32.

•    La clause INVALID KEY est lancée si le positionnement ne peut se faire.

– PARTIE VII – FONCTION ET

SOUS-PROGRAMME

On traite ici les fonctions intrinsèques et la découpe d'une application en différents programmes ce qui permet de simuler le concept de fonction et facilite la réutilisation de code.

48.FONCTION INTRINSÈQUE

Attention : Ce mécanisme est une extension au COBOL-85 présente sur le mainframe mais pas sous AS/400 pour l'instant.

Il existe un certain nombre de fonctions prédéfinies qui peuvent être utilisées pour les calculs.

FUNCTION nom-fonction[(arg1 arg2 …)]

On voit que les parenthèses sont absentes si il n'y a pas d'argument.

Voici ces fonctions groupées par contexte

•    Une fonction peut apparaître partout où une expression le peut.

•    L'ordre MOVE est un cas particulier; il accepte les fonctions non numériques mais pas les fonctions renvoyant un numérique pour lesquelles il faut utiliser un COMPUTE.

49.PROGRAMMES IMBRIQUÉS

Jusqu'à présent, nous avons vu des programmes COBOL uns et indivisibles. Il est possible de définir des exécutables qui sont formés de plusieurs programmes COBOL. Ces programmes peuvent être : imbriquées, un à la suite de l'autre, dans des unités de compilation différentes.

49.1.     END PROGRAM

Cette instruction indique la fin d'un programme COBOL. Elle termine donc la PROCEDURE DIVISION. On doit indiquer le nom donné au paragraphe PROGRAM-ID. Nous ne l'avons pas encore rencontrée parce qu'elle est facultative. Cela permet d'avoir plusieurs programmes

dans le même source. Le programme imbriqué se trouvera dans la PROCEDURE

La structure donnée aux programmes va indiquer leur visibilité. Un programme ne pourra utiliser qu'un programme directement imbriqué ou niveau supérieur d'un programme séparé. En terme de relations familiales, on dira qu'un programme ne peut utiliser que ses filles directs ou les patriarches. En aucun cas, il ne peut y avoir de récursion (A appelle F qui appelle A)

49.3.     COMMON

Cet attribut d'un programme modifie sa visibilité.

PROGRAM-ID. Nom COMMON.

Un tel programme sera également visible par tous les programmes imbriqués (même indirectement) par le programme qui contient ce programme commun. En terme de liens de parenté, et pour être plus clair, il peut-être référencé par les frères et tous leurs descendants.

50.APPEL DE SOUS-PROGRAMMES

Il est possible dans un programme COBOL d'appeler un autre programme COBOL et même un programme écrit dans un autre langage; de même, un programme COBOL peut être appelé à partir d'un programme écrit dans un autre langage. Ici, nous nous intéressons au cas

COBOL -> COBOL.

Appelons PP le programme appelant et SP le sous-programme appelé.

50.1.     APPEL SIMPLE

PP: CALL val1

SP:

PROGRAM-ID. val1.

•    val1 est une chaîne donnant le nom du programme SP; celui-ci est le nom donné par le paragraphe PROGRAM-ID. Si les 2 programmes appartiennent à des sources différents, cela correspond normalement au nom donné pour l'objet mais pas toujours.

•    Si les 2 programmes appartiennent à des sources différents, ils seront regroupés en un seul exécutable à l'édition des liens.

•    SP doit se terminer d'une certaine manière pour que le contrôle revienne au PP pour continuer après l'instruction CALL.

•    Un SP peut lui-même effectuer un CALL et être donc un PP pour un autre SP.

50.2.     TERMINER UN (SOUS) PROGRAMME

Il y a 3 façon de terminer un programme. L'effet est différent s'il s'agit d'un PP ou d'un SP

•    On voit que GOBACK convient dans tous les cas et permet à un programme d'être utilisé dans les 2 situations.

•    Si on n'indique aucun de ces ordres, un GOBACK implicite est exécuté en fin de programme.

51.PASSAGE D'ARGUMENTS

Il y a plusieurs façons pour des programmes que communiquer des informations. Évidemment, on recommandera de toujours utiliser le passage d'arguments mais on peut également définir des variables globales.

51.1.    VARIABLES GLOBALES

Une variable de niveau 01 peut se voir attribuer l'attribut GLOBAL. Elle sera alors connue et utilisable directement dans tous les programmes imbriqués (même indirectement), càd dans tous les descendants. Un programme imbriqué peut définir une variable de même nom (éventuellement globale, elle aussi), auquel cas la variable globale n'est plus accessible.

51.2.    VARIABLES EXTERNES

Une variable de niveau 01 peut se voir attribuer l'attribut EXTERNAL. Elle est alors commune aux autres programmes séparés qui la déclare également comme externe. La clause VALUE n'est pas compatible. Elle doivent porter le même nom et avoir la même définition.

51.3.    PASSAGE D'ARGUMENTS

•    Au niveau du PP, on donne la liste des arguments à passer lors du CALL.

•    Ces arguments sont des variables (on ne peut pas passer un littéral !)

CALL sp USING arg1 arg2 … argn

•    Dans le SP, il faut déclarer ces arguments dans une section à part et indiquer la liste au niveau de la PROCEDURE DIVISION.

DATA DIVISION.

LINKAGE SECTION.

77 arg1 PIC …

…

77 argn PIC … PROCEDURE DIVISION USING arg1 arg2 … argn.

•    Dans la LINKAGE SECTION, on interdit la clause VALUE qui n'a pas de sens.

•    Les variables de cette section doivent être de niveau 01 ou 77 uniquement.

•    Les listes des arguments dans PP et SP doivent correspondre exactement en nombre, en ordre et en type (les noms peuvent être différents)

•    La concordance en type implique qu'il n'y a aucune conversion, même en ce qui concerne la taille. (pas d'erreur générée ni à la compilation ni à l'exécution mais comportement erroné !)

51.4.     TYPES DE PASSAGE D'ARGUMENTS

Par défaut, le passage d'argument se fait par référence mais on peut spécifier un passage par valeur. On remarque que cela est spécifié à l'appel et pas du tout à la définition.

CALL val USING {[BY REFERENCE id …]

                 BY CONTENT   id … } …

–   Dans un passage par valeur, il y a deux zones indépendantes pour stocker les arguments; la zone du PP et celle du SP. A l'appel, il y a recopie de la zone PP vers la zone SP. Dans ce cas, pour certains compilateurs (comme l'AS/400) et pour certains types de variables (pas de numérique), un littéral peut-être passé.

–   Dans un passage par argument, le PP et le SP  partagent la même zone. A l'appel, une modification de variable par le SP est répercutée dans le PP.

– PARTIE VIII – ANNEXES

ET LE TRAITEMENT BATCH

52.1.     UN JOB TYPIQUE

Un job COBOL aura typiquement l'aspect suivant :

Note : Les lignes débutant par //* sont des commentaires et ne sont pas nécessaires.

52.2.     FICHIERS PRODUITS

Les fichiers produits par l'exécution de ce job sont :

•    JES2.JESMSGLG : Résumé du job. Chaque étape y est reprise avec son code de terminaison. Permet de savoir rapidement où a eu lieu l'erreur (syntaxe JCL, compilation, édition des liens, exécution, …)

•    JES2.JESJCL : Le job est repris et agrémenté d'infos indiquant comment il a été compris par la machine (rarement utile)

•    JES2.JESYSMSG : Tous les messages produits par le module de prise en charge du job. Les erreurs de syntaxe dans le job y apparaîtront explicitement ainsi que des problèmes avec les fichiers. très peu lisible mais on est parfois obligé de s'y plonger.

•    CBLEX1.COBOL.SYSPRINT : Le code COBOL compilé. C'est ici qu'on trouve les erreurs de compilation. (note: CBLEX1 est le nom donné à l'étape COBOL dans le JCL; peut-être différent pour vous)

•    .SYSPRINT : Le résultat de l'édition des liens. On verra les erreurs liées à des fichiers inexistants.

•    .SYSOUT : Fichier produit à l'exécution. On y trouvera les résultats des ordres DISPLAY mais aussi les messages d'erreurs produits à l'exécution (division par 0,

…)

•    .LISTE : Fichier produit par le programme (résultats, …)

53.EXTENSIONS PROPRES À MVS

53.1.     RECORDING MODE

Clause accompagnant la description des enregistrements d'un fichier et indiquant le type d'enregistrement.

FD nom-fichier [RECORDINGMODE IS {F V U}].

01 enr1.

…

•    F : enregistrements de taille fixe

•    V : taille variable

•    U : taille indéfinie

•    Si cette clause n'est pas présente, le compilateur la déduit de la structure du fichier et émet un message d'information pour indiquer son choix.

54.EXTENSIONS PROPRES À AS/400

54.1.     TYPE BOOLÉEN

A écrire

54.2.     CLAUSE LIKE

A écrire

54.3.     UTILISATION DE LA DDS

A écrire

55.TABLE EBCDIC

Extraits

 Code déc.         Code hexa          Caractère

---