Tous les articles par Mr COBOL

Limites du compilateur

18 février 2023 Mr COBOL

COBOL a les limites du compilateur suivantes pour les programmes et les définitions de classe.

Bien que le compilateur COBOL prenne en charge l’adressage de plusieurs zones de mémoire au sein d’une unité de compilation jusqu’aux limites décrites dans cette annexe, une application complète, généralement composée de plusieurs unités de compilation, est toujours limitée par la quantité de stockage privé disponible dans l’espace d’adressage à laquelle il court.

En d’autres termes, une application peut manquer d’espace de stockage avant d’atteindre les limites décrites.

Limites du compilateur

Élément de langue	Limite du compilateur
Longueur maximale des mots définis par l’utilisateur (par exemple, `nom-données` , `nom-fichier` , `nom-classe` )	30 octets
Taille du programme	999 999 lignes
Nombre de littéraux	4 194 303 ^{(Remarque 1)}
Longueur totale des littéraux	4 194 303 octets ^{(Remarque 1)}
Entrées de table de mots réservés	1536
COPY REPLACING . . . BY . . . (éléments par déclaration COPY)	Sans limites
Nombre de bibliothèques COPY	Sans limites
Taille de bloc de la bibliothèque COPY	32 760 octets
IDENTIFICATION DIVISION
ENVIRONMENT DIVISION
Configuration section
Paragraphe des noms spéciaux
`nom-mnémonique` IS	18
UPSI- `n` … (commutateurs)	0-7
`nom-alphabet` IS . . .	Sans limites
Littéral THRU . . . ou ALSO. . .	256
Input-Output section
File-control paragraphe
SELECT `nom-fichier` …	Un maximum de 65 535 noms de fichiers peuvent être attribués à des noms externes
ASSIGN `nom-système` …	Sans limites
ALTERNATE RECORD KEY `nom-données` …	253
RECORD KEY Longueur	Aucune limite ^{(Remarque 3)}
RESERVE `entier` (buffers)	255 ^{(Remarque 4)}
I-O-control paragraphe
RERUN ON `nom-système` …	32 767
RERUN `entier` RECORDS	16 777 215
SAME RECORD AREA	255
SAME RECORD AREA FOR `nom-fichier` …	255
SAME SORT/MERGE AREA	Aucune limite ^{(Remarque 2)}
MULTIPLE FILE `nom-fichier` …	Aucune limite ^{(Remarque 2)}
DATA DIVISION
77 taille de l’élément de données	999 999 999 octets
01-49 taille de l’élément de données	999 999 999 octets
Total 01 + 77 (éléments de données)	Sans limites
88 noms-condition . . .	Sans limites
Clause VALUE de niveau 88 . . .	Sans limites
66 RENAMES . . .	Sans limites
Clause PICTURE, nombre de caractères dans `chaîne-caractères`	50
Clause PICTURE, positions des chiffres des éléments numériques	Avec ARITH(COMPAT): 18 Avec ARITH(EXTEND): 31
Clause PICTURE, positions de caractères éditées numériquement	249
Réplication du symbole d’image ( )	999 999 999 octets
Réplication de symboles d’image (édition)	32 767
Réplication de symbole d’image ( ), éléments DBCS de classe	499 999 999 octets
Reproduction d’un symbole d’image ( ), classer les éléments nationaux	499 999 999 octets
Taille de l’élément élémentaire	134 217 727 octets
OCCURS entier	999 999 999
Nombre total d’ODO	4 194 303 ^{(Remarque 1)}
Taille du tableau	999 999 999 octets
Taille des éléments du tableau	999 999 999 octets
ASCENDING or DESCENDING KEY . . . (par clause OCCURS)	12 CLÉS
Longueur totale des clés (par clause OCCURS)	256 octets
INDEXED BY . . . (noms d’index par clause OCCURS)	12
Nombre total d’index (noms d’index) par classe ou programme	65 535
Taille de l’index relatif	32 765
FILE SECTION
Saisie de la description de l’enregistrement FD	1 048 575 octets
`nom-fichier` FD . . .	65 535
LABEL `nom-donnée` . . . (si pas de clauses facultatives)	255
Longueur d’enregistrement de l’étiquette	80 octets
BLOCK CONTAINS `entier`	2 147 483 647 ^{(remarque 8)}
RECORD CONTAINS `entier`	1 048 575 ^{(remarque 5)}
Valeurs de la clause LINAGE	99 999 999
`nom-fichier` SD . . .	65 535
DATA RECORD `nom-donnée` . . .	Aucune limite ^{(Remarque 2)}
LINKAGE SECTION
Taille totale	Sans limites
LOCAL-STORAGE SECTION
Taille totale	2 147 483 646 octets
WORKING-STORAGE SECTION
Taille totale des éléments sans l’attribut externe	2 147 483 646 octets
Taille totale des éléments avec l’attribut externe	2 147 483 646 octets
PROCEDURE DIVISION
Procédure et aire constante	4 194 303 octets ^{(Remarque 1)}
PROCEDURE DIVISION USING `identifiant` . . .	32 767
Procedure-names	1 048 575 ^{(Remarque 1)}
Noms de données en indice par instruction	32 767
Relevés par ligne (TEST)	7
Instruction ACCEPT, longueur d’enregistrement sur le périphérique d’entrée	32 760
ADD `identifiant` . . .	Sans limites
ALTER `nom-procédure-1` TO `nom-procédure-2` . . .	4 194 303 ^{(Remarque 1)}
CALL . . . BY CONTENT `Identifiant`	2 147 483 647 octets
CALL `identifiant` ou `littéral` USING `identifiant` ou `littéral` . . .	16 380
CALL `littéral` . . .	4 194 303 ^{(Remarque 1)}
Programmes actifs dans une unité d’exécution	32 767
Nombre de noms appelés (option DYN)	Sans limites
CANCEL `identifiant` ou `littéral` . . .	Sans limites
CLOSE nom-fichier . . .	Sans limites
COMPUTE `Identifiant` . . .	Sans limites
DISPLAY `identifiant` ou `littéral` . . .	Sans limites
DIVIDE `Identifiant` . . .	Sans limites
ENTRY USING `identifiant` ou `littéral` . . .	Sans limites
EVALUATE . . . sujets	64
EVALUATE . . . WHEN clause	256
GO `nom_procédure` . . . DEPENDING	255
INSPECT TALLYING et REPLACING Clauses	Sans limites
MERGE `nom-fichier` ASC ou DES KEY . . .	Sans limites
Longueur totale de la clé de fusion	4 092 octets ^{(Remarque 6)}
MERGE USING `nom-fichier` . . .	16 ^{(Note 7)}
MOVE Identifiant ou littéral TO `identificateur` . . .	Sans limites
MULTIPLY `Identifiant` . . .	Sans limites
OPEN nom-fichier . . .	Sans limites
PERFORM	4 194 303
PERFORM . . . TIMES `identifiant` ou `littéral`	999 999 999
SEARCH ALL . . . longueur de clé maximale	Sans limites
SEARCH ALL . . . longueur totale des clés	Sans limites
SEARCH . . . WHEN . . .	Sans limites
SET `index` ou `identifiant` . . . TO	Sans limites
SET `indice` . . . UP/DOWN	Sans limites
SORT `nom-fichier` ASC ou DES KEY	Sans limites
Longueur totale de la clé de tri	4 092 octets ^{(Remarque 6)}
SORT USING `nom-fichier` . . .	16 ^{(Remarque 7)}
STRING `Identifiant` . . .	Sans limites
STRING DELIMITED `Identifiant` ou `littéral` . . .	Sans limites
UNSTRING DELIMITED `identifiant` ou `littéral` . . .	Sans limites
UNSTRING INTO `identifiant` ou `littéral` . . .	Sans limites
USE . . . ON `nom-fichier` . . .	Sans limites
Instruction XML PARSE, taille maximale de `identifiant`	999 999 999 octets

Remarques:

Éléments inclus dans la limite de 4 194 303 octets pour la procédure plus la zone constante.
Syntaxe vérifiée, mais n’a aucun effet sur l’exécution du programme ; il n’y a pas de limites.
Pas de limite de compilateur, mais VSAM le limite à 255 octets.
QSAM.
Limite du compilateur affichée, mais QSAM la limite à 32 760 octets.
Pour QSAM et VSAM, la limite est de 4088 octets si EQUALS est codé dans l’instruction de contrôle OPTION.
Limite SORT pour QSAM et VSAM.
Nécessite la prise en charge de l’interface LBI (Large Block Interface) fournie par OS/390® DFSMS Version 2 Release 10.0 ou ultérieure.
Sur les systèmes OS/390 avec des versions antérieures de DFSMS, la limite est de 32 760 octets.

COBOL Exemple

Exemple – MOVE COORESPONDING

17 février 2023 Mr COBOL

Programme utilisant MOVE COORESPONDING :

IDENTIFICATION DIVISION.
PROGRAM-ID. MOVECORR.
AUTHOR.     LA COMMUNAUTE DU COBOL.

DATA DIVISION.
FILE SECTION.

WORKING-STORAGE SECTION.

01          WS-DATE-HEURE.
    05      WS-DATE.
            10  WS-ANNEE            PIC X(004).
            10  WS-MOIS             PIC X(002).
            10  WS-JOUR             PIC X(002).
    05      WS-HEURE.
            10  WS-HEURES           PIC X(002).
            10  WS-MINUTES          PIC X(002).
            10  WS-SECONDES         PIC X(002).
    
01          WS-DATE-HEURE-FORMAT.
    05      WS-DATE-FORMAT.
            10  WS-JOUR         PIC X(002).
            10                  PIC X(001) VALUE "/".
            10  WS-MOIS         PIC X(002).
            10                  PIC X(001) VALUE "/".
            10  WS-ANNEE        PIC X(004).
    05      WS-HEURE-FORMAT.
            10  WS-HEURES        PIC X(002).
            10  FILLER          PIC X(001) VALUE ":".
            10  WS-MINUTES      PIC X(002).
            10  FILLER          PIC X(001) VALUE ":".
            10  WS-SECONDES     PIC X(002).

PROCEDURE DIVISION.

    MOVE FUNCTION CURRENT-DATE TO WS-DATE-HEURE
    DISPLAY "WS-DATE-HEURE - " WS-DATE-HEURE
	
    MOVE CORRESPONDING WS-DATE  TO WS-DATE-FORMAT 
    MOVE CORRESPONDING WS-HEURE TO WS-HEURE-FORMAT 
	
    DISPLAY "WS-DATE-FORMAT  : " WS-DATE-FORMAT
    DISPLAY "WS-HEURE-FORMAT : " WS-HEURE-FORMAT

    STOP RUN.

Resultat:
WS-DATE-HEURE - 20230301020008
WS-DATE-FORMAT  : 01/03/2023
WS-HEURE-FORMAT : 02:00:08

COBOL Sommaire

8.8 LES INSTRUCTIONS CONDITIONNELLES

17 février 2023 Mr COBOL

Il existe différents types de conditions en COBOL. Une condition peut-être :
– de relation
– de classe
– de signe

Une condition de relation a la structure suivante :

IF MONTANT IS EQUAL TO 25.00 …. IF TOTAL > MONTANT …. IF SALAIRE-BRUT NOT < LIMITE ….

Une condition de classe a la structure suivante :

IF CODE-PROV IS NOT ALPHABETIC …. IF MONTANT IS NUMERIC ….

Une condition de signe a la structure suivante :

L ’item doit être numérique (PIC 9)

IF TOTAL-CREDITS IS NEGATIVE …. IF MONTANT IS POSITIVE …. IF MONTANT-EN-CAISSE - DEBOURSES IS NOT ZERO ….

Les conditions peuvent être combinées pour former des conditions complexes avec AND et OR .

IF MOYENNE = 0 AND NBR-ETUDIANT NOT EQUAL TO ZERO …. IF A = B OR C > D ….

La structure de sélection est traduite en COBOL par l ’énoncé IF :

IF condition THEN Instruction impérative …. [ELSE Instruction impérative ….] END-IF

Exemple :

IF HRES-TRAV > 40 THEN COMPUTE HRES-SUPP = HRES-TRAV - 40 COMPUTE PAYE-SUPP = HRES-SUPP * TAUX-HOR MOVE 40 TO HRES-REG ELSE MOVE ZERO TO PAYE-SUPP MOVE HRES-TRAV TO HRES-REG. COMPUTE PAYE-REG = HRES-REG * TAUX-HOR. COMPUTE PAYE-TOTALE = PAYE-REG + PAYE-SUPP END-IF.

Il est possible de donner un nom à une condition et d ’utiliser celui-ci à sa place.
Un nom de condition est défini à l ’aide du niveau 88.

88 nom-condition VALUE const-1 [{THRU} const-2 ….]

La description de niveau 88 doit suivre immédiatement celle de l ’item élémentaire auquel on fait référence. La constante doit être du même type.

05 note PIC X. 88 echec VALUE ‘E’.

Quand le nom de condition est utilisé, la valeur de l ’item et la valeur indiquée dans la description de niveau 88 sont comparées.

IF echec THEN PERFORM traiter-echec
ELSE PERFORM traiter-reussite END-IF.

EVALUATE

Il est utilisé pour représenter une structure de sélection de type ‘CASE’ :

EVALUATE CHOIX WHEN ‘A’ PERFORM TRAITER-AJOUT WHEN ‘M’ PERFORM TRA

COBOL Sommaire

8.7 L’INSTRUCTION UNSTRING

17 février 2023 Mr COBOL

Le but de cette instruction (UNSTRING) est d’éclater une variable DISPLAY en plusieurs morceaux. La règle d’éclatement est donnée par DELIMITED BY.

Format :

Les mêmes règles que pour le STRING sont d’application. ALL est destiné à éliminer les redondances d’un caractère délimiteur. Par exemple ALL “AB” signifie que AB ou même ABABAB sont délimiteurs.

NOM-DE-POINTEUR , numérique DISPLAY, que le programmeur doit initialiser à 0 permet de compter le nombre de caractères examinés dans la zone nom-de-donnée-1.

NOM-DE-COMPTEUR, numérique DISPLAY, compte le nombre de zones réceptrices créées.

OVERFLOW, arrête le déroulement de l’instruction si le contenu du pointeur est négatif ou > à la taille de la zone nom-de-donnée-1, ou lorsque la zone nom-de-donnée-1 n’est pas entièrement examinée mais que l’instruction UNSTRING ne dispose plus de zones réceptrices i,j,…

Si un OVERFLOW est déclenché sans que l’option ne soit spécifiée, l’instruction UNSTRING est arrêtée et le programme passe à l’instruction suivante.

Les zones nom-de-donnée-i etc. sont les zones réceptrices.

DELIMITER IN spécifie la variable dans laquelle on désire transférer le délimiteur qui a été utilisé pour cet éclatement.

COUNT IN indique le nombre de caractères transférés par cet éclatement.

Exemple :
01 ZONE PIC X(12). 01 NOM PIC X(5). 01 AN PIC XXXX. UNSTRING ZONE DELIMITED BY SPACE INTO NOM AN. Si ZONE = "ANNEE 1999 "

alors le résultat est NOM = “ANNEE” et AN = “1999”.

UNSTRING A delimited by ‘.’ or ‘/’ ….

COBOL Sommaire

8.6 L’INSTRUCTION STRING

17 février 2023 Mr COBOL

Voici la syntaxe de STRING :

Les zones de données émettrices et réceptrices doivent être alphanumériques et les transferts de données suivent les règles correspondantes. Si la zone réceptrice est plus grande il n’y a pas remplissage par des blancs à droite. De même nom-de-donnée-résultat n’est jamais réinitialisée à blanc, c’est le travail du programmeur.

DELIMITED BY permet de spécifier une limite de transfert de données, soit en fonction de la taille “SIZE”, soit en fonction du ou des caractères de nom-de-donée-3 ou litéral-3. Ces caractères là ne sont pas transmis.

POINTER permet de préciser la position de gauche du début du transfert dans la zone résultat. La variable nom-de-pointeur est un numérique. Normalement cette valeur est incrémentée de 1 par caractère transféré.
OVERFLOW en option avec POINTER indique l’ordre impératif à exécuter.

Exemple :

STRING "CECI EST LE TITRE " GROUPE BLANC "1999"
DELIMITED BY SIZE INTO L80.

STRING INFO DELIMITED BY SIZE INTO L80 WITH POINTER PT ON OVERFLOW PERFORM PAR-ERREUR.

String A delimited by size B delimited by space C delimited by ‘*’ into …

COBOL Sommaire

8.5 L’INSTRUCTION INSPECT

17 février 2023 Mr COBOL

Cette instruction (INSPECT) permet de compter le nombre de fois qu’une configuration particulière de caractères apparaît dans une zone de données et/ou de remplacer ces caractères par d’autres. Cette instruction ne s’applique pas aux variables avec index même à un niveau 01.

Format 1 :

Nom-de-donnée-1 est la zone que l’on désire inspecter. Elle doit être en USAGE DISPLAY.

TALLYING signifie que l’on désire compter le nombre de fois qu’une configuration de caractères désignée par nom-de-donnée-3 ou litéral-3 apparaît dans nom-de-donnée-1 et que le résultat du comptage soit placé dans nom-de-donnée-2.

ALL signifie que toutes les occurrences doivent être comptées. Les caractères déjà utilisés dans un comptage ne sont jamais réutilisés.
Exemple: INSPECT VARA TALLYING COMPTEUR FOR ALL "NN".
Si VARA contient “NNNNN+NNN” COMPTEUR contiendra après l’opération de comptage 3, car le 5ème et le 9ème N ne peuvent pas être regroupés avec ceux déjà utilisés.

LEADING signifie que seules les premières apparitions contiguës doivent être comptées.
Exemple: INSPECT VARB TALLYING COMPTEUR FOR LEADING "N".
Si VARB contient “NN+NNN+NNN” COMPTEUR contiendra 2 puisqu’il y a 2 N en tête.
L’opération VARE contiendra “00000000”.

CHARACTERS compte le nombre de caractères contenu dans nom-de-donnée-1.
Exemple: INSPECT VARC TALLYING COMPTEUR FOR CHARACTERS.
Si VARC contient “N&N+MOI+123” COMPTEUR contiendra 11.
Pour rendre l’usage de cette instruction plus partiel nous disposons des options BEFORE et AFTER.

BEFORE INITIAL : (nom-de-donnée-4 ou litéral-4) signifie que le comptage doit s’arrêter dès que la première apparition du ou des caractères désignés est rencontrée.
Exemple:
INSPECT VARD TALLYING COMPTEUR FOR CHARACTERS BEFORE INITIAL "+".
Si VARD contient “N&N+MOI++123” COMPTEUR contiendra 3.

AFTER INITIAL est l’inverse du BEFORE, on compte les caractères qui se trouvent après nom-dedonnée-4 ou litéral-4.
Exemple:
INSPECT VARDAF TALLYING COMPTEUR FOR CHARACTERS AFTER INITIAL "+".
Si VARD contient “N&N+MOI++123” COMPTEUR contiendra 8.

REPLACING : indique que nous voulons remplacer certains caractères par d’autres.

CHARACTERS, tous les caractères de nom-de-donnée-1 doivent être remplacés par le caractère désigné par nom-de-donnée-5 ou litéral-5.
Exemple: INSPECT VARE REPLACING CHARACTERS BY "0".
Si VARE contient “N&N+MOI3” après l’opération VARE contiendra “00000000”.

ALL indique que toutes les occurrences désignées par nom-de-donnée-7 ou litéral-7 doivent être remplacées par nom-de-donnée-8 ou litéral-8. Il n’y a jamais réutilisation de caractères déjà utilisés dans une occurrence préalable.
Exemple: INSPECT VARF REPLACING ALL "N" BY "0".
Si VARF contient “NN+NT23N” après l’opération VARF contiendra “00+0T230”.

LEADING indique que le remplacement s’arrêtera dés qu’un autre caractère que nom-de-donnée-7 est rencontré.

FIRST indique que le remplacement ne doit être effectué que pour la première apparition de nom-dedonnée-7.
Exemple: INSPECT VARG REPLACING FIRST "N" BY "0".
Si VARG contient “NN+NT23N” après l’opération VARG contiendra “0N+NT23N”.

Les options BEFORE et AFTER sont utilisées de la même manière que dans TALLYING.

Les clauses TALLYING et REPLACING peuvent être utilisées en même temps.
Exemple:
INSPECT VARTOT TALLYING COMPTE FOR CHARACTERS
BEFORE “+” REPLACING ALL “N” BY ““.
Si VARTOT contient “NN+NT23N” après l’opération VARTOT contiendra “+T23*” et COMPTE contiendra 2.

!!!!Le programmeur doit initialiser nom-de-donnée-2 à zéro car TALLYING additionne sans remettre à zéro.!!!!

Format 2:

Exemple:
INSPECT VAR11 CONVERTING "ABCD" TO "WXYZ" AFTER QUOTE BEFORE "=".

Si VAR11 contient (AC”AEBDFBCD=AB”D) alors le résultat est (AC”WEXZFXYZ=AB”D)

INSPECT CHAINE CONVERTING MIN TO MAX
Avec MIN pic x(26) value ‘abc…yz’.
Et Max pic x(26) value ‘A Z’.

Remarque :
Inspect ZONE TALLYING CPT1 FOR ALL ‘A’
CPT2 FOR ALL ‘E’
CPT3 FOR ALL ‘I

COBOL Sommaire

8.4 L’INSTRUCTION INITIALIZE

17 février 2023 Mr COBOL

Syntaxe de INITIALIZE:

Identifier-1 est la variable ou la structure qui reçoit l’initialisation. Elle peut être tout ou partie de table mais ne peut jamais contenir les options DEPENDING ON POUR UN OCCURS. Les index sont interdits.

Identifier-2 ou litéral-1 représente le contenu d’initialisation, par défaut les numériques et les numériques édités sont initialisés à 0 et les alphabétiques les alphanumériques et les alphanumériques édités à blancs.

Si REPLACING est utilisé, identifier-2 ou litéral-1 doivent être compatible avec la catégorie indiquée (en respectant les règles du MOVE).

Lorsqu’une catégorie est indiquée après un REPACING, alors seulement les variables appartenant à identifier-1 et reprisent dans cette catégorie sont initialisées.

Exemple :
INITIALIZE VAR1. INITIALIZE STRUCTURE1. INITIALIZE VAR2 BY "*".

COBOL Sommaire

8.3 LES MOUVEMENTS DE DONNEES – MOVE

17 février 2023 Mr COBOL

Quels que soient les PICTURE et USAGE, il n’existe qu’un seul ordre de mouvement de données en mémoire centrale, l’ordre MOVE.

Format 1 :

|nom-de-donnée-1|
MOVE | littéral | TO nom-de-donnée-2 nom-de-donnée-3

Exemple :
MOVE TVA TO TVAED. (TVAED = TVA)
MOVE "EXERCICE N° 1 " TO TITRE. ( TITRE = EXERCICE N° 1)
MOVE ZERO TO V1 V2 V3 V4 V5. MOVE STRUCTURE1 TO STRUCTURE2.

Remarque : le fait d’avoir un seul verbe MOVE pour tous les types de données implique de veiller à ne pas mouvementer n’importe quel type de donnée sur n’importe quel type de zone de données.
Dans le cas des alphabétiques A : ne pourront être mouvementés que sur des zones élémentaires A ou X et sur des zones groupes ( les structures sont toujours considérées comme des PIC X).

Les alphanumériques X : ne pourront en principe être mouvementés que sur des zones PIC X ou sur des structures. Toutefois, le mouvement sur une zone numérique est autorisé, mais le programmeur doit être certain que la zone ne contient que des données numériques sans quoi il provoquera un arrêt du programme (MCH1202).

Les numériques, ne peuvent être mouvementés que vers des numériques ou des numériques d’édition. L’instruction MOVE convertit immédiatement n’importe quel usage en n’importe quel autre usage, pour passer d’un DISPLAY à un BINARY ou d’un PACKED-DECIMAL vers un DISPLAY aucune information ou instruction complémentaire n’est demandée au programmeur, la conversion est immédiate.

Principes de cadrage :

Les règles de cadrage sont toujours dictées par la zone réceptrice.

– Dans le cas des alphabétiques et alphanumériques :
La donnée est cadrée à gauche avec troncature à droite si la zone émettrice est trop grande ou complétée avec des caractères blancs à droite si la zone est plus courte.
MOVE " " TO L120 avec 01 L120 PIC X(120).
MOVE 120 blancs dans L120

– Dans le cas des numériques :
Les nombres sont alignés sur la partie décimale, si celle-ci est absente de la zone réceptrice elle est considérée comme étant à l’extrême droite.
Il a ensuite troncature éventuel ou complément de zéros à droite et à gauche si le nombre de chiffres désignés par la PIC de la zone réceptrice l’exige.
Si la zone réceptrice n’a pas de signe alors c’est la valeur absolue qui est transférée.
Si la zone émettrice n’est pas purement numérique le résultat est alors imprévisible.

Un INDEX est formellement interdit dans un MOVE.

Le contenu de la zone émettrice reste exactement le même après l’instruction MOVE.

MOVE et REDEFINES :

Dans le cas d’une redéfinition de zone
02 B……
02 C REDEFINES B…

Le fait d’exécuter un MOVE B TO C ou MOVE C TO B alors qu’il s’agit de la même zone mémoire entraîne un résultat inconnu!!

LE MOVE CORRESPONDING

Format :
MOVE CORR nom-de-groupe-1 TO nom-de-groupe-2

Le MOVE CORRESPONDING suit le même principe que l’option CORR des instructions arithmétiques. Les données de la zone groupe-1 sont mouvementées sur les zones de même nom de la zone groupe-2.

Toutefois, avec MOVE, il n’est pas exigé que les zones de même nom soient toutes deux élémentaires , mais qu’au moins l’une des deux zones le soit.

Mais, toute zone élémentaire décrite avec une clause OCCURS ou REDEFINES est ignorée.

Utilisation des constantes figuratives.

Les constantes figuratives SPACE(S) et ZERO(S) peuvent être utilisées dans un MOVE.

SPACE : pour mettre une zone PIC X ou PIC A à blanc, toute la zone est remplie de blancs, il peut également être question d’une structure.

Exemple :
MOVE SPACE TO VAR.
La variable VAR PIC XX ou PIC AA est remplie de blancs

MOVE SPACE TO STRUCTURE.
Ici toutes les variables contenues dans le groupe STRUCTURE sont mises à blancs. Il s’agit donc d’être très prudent, car si dans la description de structure nous avons une variable en PIC 9 son contenu sera un BLANC.

ZERO : permet de mettre n’importe quel variable PIC 9 usage…… à ZERO. Il en ira exactement de même avec un groupe et dans ce cas toutes les variables du groupe seront initialisées à 0.

Exemple :
MOVE ZERO TO VAR ——-> Dans ce cas VAR PIC 99.

MOVE ZERO TO STRUCTURE.
Et dans ce cas 01 STRUCTURE.
02 A PIC 9999 BINARY.
02 B PIC 9(5).

A et B sont mises à 0.

Remarque : l’usage d’un caractère de la chaîne est possible par l’option
MOVE CHAINE(i:j) TO A
Ou de l’hexadécimal : MOVE X"09" TO A

COBOL Sommaire

8.2 LES INSTRUCTIONS ARITHMETIQUES

17 février 2023 Mr COBOL

Les instructions arithmétiques sont de 2 types:

les opérations simples :
– ADD
– SUBTRACT
– MULTIPLY
– DIVIDE
les opérations complexes :
– COMPUTE et ses opérateurs + – * / **

Ces instructions disposent d’options communes :

GIVING nom-de-donnée :
qui indique que le résultat de l’opération sera mémorisé dans nom-de-donnée.
ADD VAR1 VAR2 GIVING RESULTAT

ROUNDED :
après une opération le résultat tronque les décimales au-delà de ce qui
a été déclaré dans la PIC. Ainsi la quantité 234,478 sera de 234,4 si la
PIC de la variable résultat est de 999V9.
Avec ROUNDED, COBOL ajoute 5 au premier chiffre non significatif de droite pour réaliser l’arrondi à l’unité supérieure du chiffre le moins significatif si le premier chiffre non significatif de droite est >= 5.
Avec rounded notre exemple devient 234,5.

ON SIZE ERROR ordre impératif

Cette option permet de prévenir des incidents de calcul comme :
– la division par zéro
– les dépassements de capacité (pour rappel un numérique est limité à 18 chiffres)

exemple : DIVIDE A BY B ON SIZE ERROR MOVE ZERO TO B

!!!! Les calculs ne pourront se faire naturellement qu’avec des zones élémentaires numériques, il en ira de même pour les constantes. !!!!

L’ADDITION – ADD

Format n°1 :

    | nom-de-donnée-1      | | nom-de-donné-2       |
ADD |                                                         |     |                                                          |
    | littéral-numérique-1 | | littéral-numérique-2 |     TO nom-de-donnée [ ROUNDED].      nom-de-donnée-n [ ROUNDED].    [ ON SIZE ERROR ordre-impératif].

On ajoute nom-de-donnée-1 ou littéral-numérique-1 et nom-de-donnée-2 ou littéral-numérique-2 à la variable nom-de-donnée et le résultat peut être arrondi.

Exemple :

ADD 1000 QTE1 TO TOTAL ROUNDED ON SIZE ERROR MOVE 0 TO TOTAL

Ce qui signifie ajouter 1000 + QTE1 + TOTAL arrondir, transférer le résultat de l’opération dans TOTAL. En cas d’erreur mettre TOTAL à 0.

Format n° 2 :

    |nom-de-donnée-1| |nom-de-donné-2| |nom-de-donné-n|
ADD |                                         |    |                                      | … |                                        |
    | littéral-1   | | littéral-2 | | littéral-n   |     GIVING nom-de-donnée [ ROUNDED].    [ ON SIZE ERROR ordre-impératif].

Dans ce cas on ajoute nom-donnée-1 à nom-donnée-2 à….. nom-donnée-n le résultat est placé dans nom-de-donnée, éventuellement arrondi.

Exemple :
ADD TVA TOTHTVA GIVING TOTTVAC

Format n°3 :

ADD CORRESPONDING nom-de-groupe-1 TO nom-de-groupe2 [ ROUNDED ] [ ON SIZE ERROR ordre-imp. ]

Avec ce format, les zones élémentaires du groupe-1 sont additionnées aux données élémentaires du groupe-2 ayants des noms-données identiques, et les résultats sont placés dans les zones élémentaires du groupe-2.

L’abréviation COBOL de CORRESPONDING est CORR. Les clauses OCCURS et REDEFINES sont mal supportées.

Prenons par exemple un fichier paie mensuel d’enregistrement ENRMENS et le fichier ENRTOT.

De description :

01 ENRMENS. 02 CODE-EMPLOYEE PIC 999. 02 HEURE-P PIC 999. 02 SAL-BRUT PIC 9(6). 01 ENRTOT. 02 COD-EMPL PIC 999. 02 HEURE-P PIC 999. 02 SAL-BRUT PIC 9(6). 02 SAL-NET PIC 9(6).

Le fait d’écrire ADD CORR ENRMENS TO ENRTOT, engendre les additions suivantes :

HEURE-P OF ENRTOT = HEURE-P OF ENRTOT + HEURE-P OF ENRMENS SAL-BRUT OF ENRTOT = SAL-BRUT OF ENRTOT + SAL-BRUT OF ENRMENS

ADD identifier-1 TO identifier-2 ROUNDED ON SIZE ERROR ordre-impératif-1 NOT ON SIZE ERROR ordre impératif-2 END-ADD ADD identifier-1 TO identifier-2 GIVING identifier-3 ROUNDED ON SIZE ERROR ordre-impératif-1 NOT ON SIZE ERROR ordre-impératif-2 END-ADD

Identifier-1 peut être une constante ou une variable numérique ou un ensemble des deux.
Les ordres impératifs 1 et 2 peuvent être constitués d’une ou de plusieurs instructions.
Avec l’option GIVING identifier-2 peut également être une constante numérique puisque le résultat est placé dans identifier-3.

LA SOUSTRACTION – SUBTRACT

Format 1 :

Format 2 :

Format 3 :

SUBTRACT CORR identifier-1 FROM identifier-2 ROUNDED
ON SIZE ERROR ordre-impératif-1 NOT ON SIZE ERROR ordre-impératif-2 END-SUBTRACT

Remarques:
identifier-1 peut être une série de variables ou de constantes numériques.
Les options ROUNDED et ON SIZE ERROR ne sont pas obligatoires.
END-SUBTRACT ne s’applique que si les options SIZE ERROR sont utilisées.

Exemple :
SUBTRACT V1 V2 12 FROM TOTAL. (TOTAL = TOTAL – (V1 + V2 + 12))
SUBTRACT V1 V2 12 FROM TOTAL GIVING SOUSTOT.
(SOUSTOT = TOTAL – (V1 + V2 + 12))

Dans le 1er cas TOTAL doit être un numérique de travail, dans le 2ème cas SOUSTOT peut être un numérique d’édition car il n’intervient pas dans le calcul.

LA MULTIPLICATION – MULTIPLY

Format 1 :

Format 2 :

         |Identifier-1|     |Identifier-2|
MULTIPLY |                                 |    BY |            |
         | littéral-1 |     | littéral-2 |     GIVING identifier-3   ROUNDED ON SIZE ERROR ordre-impératif-1     NOT ON SIZE ERROR ordre-impératif-2 END-MULTIPLY

Exemple :
MULTIPLY 12 BY V1. ( V1 = V1 * 12) MULTIPLY V1 BY V2 GIVING V3. ( V3 = V1 * V2)

LA DIVISION – DIVIDE

Format 1 :

Format 2 :

         |Identifier-1| |INTO| |Identifier-2|
DIVIDE |                                 | |    | |            |
         | littéral-1 | | BY | | littéral-2 |     GIVING identifier-3   ROUNDED ON SIZE ERROR ordre-impératif-1     NOT ON SIZE ERROR ordre-impératif-2 END-DIVIDE

Format 3 :

         |Identifier-1| |INTO| |Identifier-2|
DIVIDE |                                 | |    | |            |
         | littéral-1 | | BY | | littéral-2 |     GIVING identifier-3   ROUNDED REMAINDER identifier-4 ON SIZE ERROR ordre-impératif-1     NOT ON SIZE ERROR ordre-impératif-2 END-DIVIDE

Exemple :
DIVIDE 10 INTO V1. (V1 = V1 / 10) DIVIDE V1 BY V2 GIVING V3. ( V3 = V1 / V2) DIVIDE V1 BY V2 GIVING V3 REMAINDER RESTE. (V3 = V1 / V2) et RESTE = V1 – (V2 * V3)
le tout en entier sans quoi il n’y a pas de reste

L’INSTRUCTION – COMPUTE

                      |expression-arithmétique|
COMPUTE nom-item-1 = |constante              |
                      |nom-item          |

Les symboles arithmétiques valides sont :

+ pour l’addition
– pour la soustraction
* pour la multiplication
/ pour la division
** pour l’exposant

Un symbole arithmétique doit être précédé et suivi par au moins un espace.

Format :
COMPUTE identifier-1 ROUNDED = expression ON SIZE ERROR ordre-impératif-1 NOT ON SIZE ERROR ordre-impératif-2 END-COMPUTE

L’expression : doit être composée de constantes et de variables numériques séparées par des opérateurs arithmétiques.

Les opérateurs sont : + – * / ** ( )

Avec + pour addition, – pour la soustraction, * pour la multiplication, le / pour la division et ** pour un exposant.

Exemple :
COMPUTE RESULTAT = A + (B – 3) * (G / 4) + ( E ** 2).

L’expression est analysée de la gauche vers la droite en tenant compte des priorités suivantes :
d’abord les exposants **, ensuite les * et / puis les + et -.
Il faut autant de ( gauches que de ) droites.

COBOL Sommaire

8.1 LA GESTION DES FICHIERS – INPUT/OUTPUT

17 février 2023 Mr COBOL

Un fichier est une collection de données répétitives analogues portant sur des individus ou des objets différents. Un fichier est un ensemble d’enregistrements différents mais contenant le même genre de structure.
Un tel ensemble pourrait très bien se trouver en mémoire centrale mais nous ne parlerons de fichier que lorsque l’ensemble des informations se trouve sur un périphérique externe disque ou bande.

On utilise des fichiers pour plusieurs raisons, tout d’abord par opposition avec la mémoire ou dés la fermeture de l’ordinateur toutes informations en mémoire est perdue, sur disque nous pouvons les conserver le temps nécessaire.
Les mémoires centrales sont limitées et la masse d’information à traiter peut être supérieure à l’espace disponible.
Les données contenues dans un fichier peuvent être utilisées par différents programmes et peuvent même être échangées entre ordinateurs.

Le COBOL permet 3 types d’organisations de fichier :
– l’organisation séquentielle
– l’organisation séquentiel indexée
– l’organisation relative.

Par organisation, il faut entendre la façon dont le fichier est organisé physiquement sur le support et l’accès à un enregistrement est la manière que nous utilisons pour atteindre cet enregistrement.

Un accès est dit séquentiel lorsque pour lire le 25ème
record du fichier, il est obligatoire de lire les 24 précédents. C’est ce type d’accès qui est utilisé sur bande magnétique.

Un accès est dit sélectif lorsqu’un record bien précis du fichier peut être atteint sans devoir lire tous ceux qui le précédent. Ce type d’accès oblige l’utilisation d’une clé permettant de retrouver la position de l’enregistrement dans le fichier. Ce type d’accès ne s’utilise que pour les périphériques disques.
Tous les ordres d’entrées-sorties ne concernent toujours qu’un seul enregistrement à la fois.
Cobol oblige le programmeur à ouvrir chaque fichier par un ordre OPEN avant de pouvoir lire ou écrire sur un fichier. De même, chaque fichier sera fermé par une instruction CLOSE en fin de travail.

OUVERTURE DES FICHIERS OPEN

Un ordre d’ouverture de fichiers OPEN doit être donné pour tous les fichiers utilisés dans le programme en séparant les fichiers ENTREE de lecture INPUT, des fichiers SORTIE en écriture OUTPUT et EXTEND. Cette instruction OPEN doit toujours précéder les instructions de lecture ou d’écriture.

Un fichier ne peut être cité qu’une seule fois dans une clause OPEN.
Il n’est pas obligatoire d’ouvrir tous les fichiers en même temps.

Un fichier ne doit être ouvert qu’une fois, un second passage dans la même instruction OPEN sans être passé par une instruction CLOSE pour ce fichier entraîne une erreur dans le programme.
L’ouverture d’un fichier positionne le pointeur d’enregistrement au début du fichier sauf pour l’ouverture en EXTEND.

La clause INPUT déclare que le fichier est ouvert uniquement pour être lu. Donc ce fichier doit déjà exister.

La clause OUTPUT déclare que le fichier est ouvert uniquement pour qu’on y écrive. Si le fichier existe déjà avec ses enregistrements, un OPEN OUTPUT les efface, le fichier est alors vidé de son contenu, et un nouveau fichier est créé.

La clause I-O déclare un fichier comme étant ouvert en même temps en lecture et en écriture.

La clause EXTEND déclare le fichier comme étant ouvert en écriture, le fichier n’est pas vidé de son contenu, le pointeur d’enregistrement se positionne à la fin du fichier. Seul un fichier à organisation séquentiel peut être ouvert en extend.

Un essai d’ouverture en lecture d’un fichier non existant génère une erreur d’exécution.

Exemple :
OPEN INPUT FICH1 FICH2 OUTPUT IMPR FPCLIENT. OPEN INPUT FICH1. OPEN INPUT FICH2. OPEN OUTPUT IMPR. OPEN OUTPUT FPCLIENT.

Nous obtenons le même résultat dans les 2 cas mais le premier est plus rapide.

FERMETURE DES FICHIERS – CLOSE.

Format :
CLOSE nom-de-fichier1 nom-de-fichier2 ….

Un ordre de fermeture doit être donné pour tous les fichiers utilisés, donc ouverts et ceci avant l’instruction STOP RUN. Dans cette instruction on ne fait pas de distinction entre les fichiers INPUT ou OUTPUT, tous les fichiers peuvent être fermés en même temps.
Exemple : CLOSE FICH1 FICH2 IMPR FPCLIENT.

LECTURE DE FICHIERS SEQUENTIELS – READ

La description du fichier et celle de son enregistrement ont déjà été réalisées dans la DATA DIVISION, de ce fait pour le programme tout se déroule comme si le fichier n’était composé que d’enregistrements logiques qui lui sont délivrés les uns après les autres à chaque ordre de lecture.

Format :
READ nom-de-fichier | INTO nom-donnée | AT END ordre impératif.

Exemple : READ FPCLIEN INTO STRWSS AT END MOVE 1 TOSWFIN.

Remarque : si le fichier est composé d’enregistrements de différentes structures, ils seront délivrés dans la même zone déclarée en FILE SECTION. (pour rappel : redéfinition implicite)

READ InternalFilename [NEXT] RECORD [INTO Identifier] AT ENDStatementBlock END-READ

AT END ordre impératif est toujours obligatoire et indique l’opération ou la série d’opération qui doivent être exécutées lorsque la fin du fichier est atteinte.

INTO nom-donnée signifie que le programmeur désire travailler dans une autre zone que celle définie sous le FD du fichier. Soit directement dans une autre structure de fichier soit dans une zone de la Working-storage section. INTO est équivalent à un MOVE de structure à structure.

PERFORM UNTIL StudentRecord = HIGH-VALUES READ StudentRecords AT END MOVE HIGH-VALUES TO StudentRecord END-PERFORM.

ECRITURE DE FICHIERS SEQUENTIELS – WRITE

L’instruction WRITE transfère le contenu de la mémoire dans le fichier à la position où l’on se trouve dans le fichier.

Format : WRITE nom-enregistrement [ FROM nom-de-donnée-1 ] .

FROM est équivalent à un MOVE d’une donnée vers la structure d’enregistrement.

Il faut prendre garde au fait que l’on lit un fichier mais que l’on écrit un enregistrement.

FICHIER IMPRIMANTE – WRITE

Format : WRITE nom-enregistrement [ FROM nom-donnée-1 ]

BEFORE signifie que l’écriture de la ligne sera faite avant le saut de ligne.

AFTER l’écriture sera faite après le saut de ligne.

Le nombre de lignes qu’il faut sauter est donné par la variable nom-de-donnée-2 ou par le nombre entier.

WRITE L80 FROM LIGNE1 AFTER 4. WRITE L80 FROM LIGNE1 AFTER XLIG.

Nom-de-donnée-2 doit être une zone élémentaire < à 100. La position d’impression est alors avancée de la valeur donnée. Il est conseillé de ne pas mélanger les after et les before.

PAGE signifie que la ligne à imprimer, doit l’être sur la première ligne de la page suivante.

WRITE L80 FROM TITRE AFTER PAGE.

Une bonne organisation du programme consiste à déclarer et définir toutes les lignes d’impression en WORKING-STORAGE SECTION sous la forme suivante :

WORKING-STORAGE SECTION. 01 TITRE PIC X(80) VALUE "CECI EST LE TITRE DE LA PAGE". 01 STITRE PIC X(80) VALUE ALL "_". 01 LIGNE1. 02 FILLER PIC X(25) VALUE " DATE LIBELLE ". 02 FILLER PIC X(30) VALUE " DESCRIPTION ". 02 FILLER PIC XXX VALUE "LE". 02 JJ PIC 99. 02 FILLER PIC X VALUE "/". 02 MM PIC 99. 02 FILLER PIC X VALUE "/". 02 ANNEE PIC 9999. PROCEDURE DIVISION. DEB. ACCEPT MADATE FROM DATE. OPEN OUTPUT IMPR. WRITE LIMPR FROM TITRE. WRITE LIMPR FROM STITRE. MOVE JOUR TO JJ MOVE MOIS TO MM MOVE AN TO ANNEE WRITE LIMPR FROM LIGNE1. CLOSE IMPR. STOP RUN.

Dans le cas d’un fichier de données

OPEN OUTPUT StudentFile. MOVE "9334567Frank Curtain LM051" TO StudentDetails. WRITE StudentDetails. MOVE "9383715Thomas Healy LM068" TO StudentDetails. WRITE StudentDetails. CLOSE StudentFile. STOP RUN.

STATUS KEY

Il est possible de contrôler le bon achèvement d’une instruction d’entrèe-sortie grâce à un indicateur comportant 2 caractères numériques.
Tout d’abord la clause FILE STATUS is nom-de-donnée dans l’ENVIRONMENT DIVISION au niveau de la clause SELECT doit être définie.
Nom-de-donnée doit être déclaré en WORKING-STORAGE SECTION sous la forme d’un PIC XX. Ensuite l’ordinateur fait le reste, à chaque OPEN – READ – WRITE – CLOSE – …. Il vérifie le bon fonctionnement de l’instruction utilisée et dans ce cas la variable nom-de-donnée est remplie d’un “00” ce qui signifie que l’instruction c’est bien déroulée. Dans le cas contraire il existe dans le manuel du compilateur utilisé une série de code 10 30 34 90 92 96 …. Qui indique le mauvais fonctionnement de l’opération, soit que le fichier n’est pas trouvé, que le EOF est rencontré ou une erreur sur la longueur ou sur la clé etc..

Exemple :

SELECT OPTIONAL FPCLIEN ASSIGN TO DISK FILE STATUS IS SKCLIEN. WORKING-STORAGE SECTION 01 SKCLIEN PIC XX VALUE "00". PROCEDURE DIVISION. DEB. OPEN INPUT FPCLIEN. IF SKCLIEN NOT = "00" PERFORM ERREUROPEN.

L’INSTRUCTION ACCEPT

Le verbe ACCEPT est un verbe particulier de lecture de données à partir de l’écran. On lira toujours des blocs de 80 caractères, même si vous ne devez en lire que 16 par exemple.

Format : ACCEPT nom-de-donnée [ FROM nom-symbolique ]

Le nom-de-donnée représente une zone de donnée en WORKING-STORAGE SECTION dans laquelle seront transmis les octets transmis par le périphérique.

Le nom-symbolique permet de définir un système autre que l’écran pour l’introduction des données.

!!! Attention !!! : cette option est différente selon le compilateur ou l’ordinateur utilisé, référencez-vous auprès de votre manuel utilisateur du Labo

Format spécial de l’instruction ACCEPT

| DATE | ACCEPT nom-de-donnée FROM | DAY | | TIME |

Ce format permet de transférer dans la zone nom-de-donnée le contenu de l’un de 3 compteurs spéciaux DATE DAY TIME.

DATE est un PIC 9(6) pour AA MM JJ sous la forme 990526

DAY est un PIC 9(5) pour AA JJJ sous la forme 99236

TIME est un PIC 9(8) pour HH MM SS CS

Exemple :

01 DATE-DU-JOUR. 02 AN PIC 99. 02 MOIS PIC 99. 02 JOUR PIC 99. PROCEDURE DIVISION. ACCEPT DATE-DU-JOUR FROM DATE.

En version 2000
ACCEPT DATE-DU-JOUR FROM CENTURY-DATE 01 DATE-DU-JOUR. 02 AN PIC 9999. 02 MOIS PIC 99. 02 JOUR PIC 99

Ce verbe correspond à l’émission de données vers l’imprimante ou l’écran.

Exemple :
DISPLAY "FIN DU PROGRAMM". DISPLAY MESSAGE1.

Le nom-symbolique PRINTER indique l’écriture sur l’imprimante.

Le nom-de-donnée peut être une structure.

Texte d'origine

La Communauté du Cobol

Tous les articles par Mr COBOL

Limites du compilateur

Limites du compilateur

Exemple – MOVE COORESPONDING

8.8 LES INSTRUCTIONS CONDITIONNELLES

8.7 L’INSTRUCTION UNSTRING

8.6 L’INSTRUCTION STRING

8.5 L’INSTRUCTION INSPECT

8.4 L’INSTRUCTION INITIALIZE

8.3 LES MOUVEMENTS DE DONNEES – MOVE

8.2 LES INSTRUCTIONS ARITHMETIQUES

8.1 LA GESTION DES FICHIERS – INPUT/OUTPUT