Apprendre COBOL, ce tutorial présente les concepts généraux liés à la structure d’un programme en COBOL TUTORIAL.
Apprendre COBOL – Introduction
Cette article fait suite à mon introduction au langage COBOL. Je vous conseille de relire la première partie qui traite des principes généraux de COBOL. Ici : https://128mots.com/index.php/2020/10/07/ibm-cobol/ et en anglais https://128mots.com/index.php/en/2020/10/07/ibm-cobol-3/
Nous traitons ici les concepts généraux liés à la structure d’un programme en COBOL.
DATA DIVISION
Toutes les données qui vont être utilisées par le programme sont situées dans la Data Division . C’est l’endroit où toutes les allocations de mémoire requises par le programme sont prises en charge. Cette division est facultative.
GESTION DES FICHIERS :
La FILE SECTION décrit les données envoyées ou provenant du système, en particulier les fichiers.
Lorsqu’on apprend COBOL la syntaxe est trèc importante. La syntaxe en COBOL est la suivante
DATA DIVISION.
FILE SECTION.
FD/SD NameOfFile
[RECORD CONTAINS intgr CHARACTERS]
[BLOCK CONTAINS intgr RECORDS]
[DATA RECORD IS NameOfRecord].
[RECORDING MODE IS {F/V/U/S}]
FD décrit les fichiers et SD les fichiers de tri.
FICHIER EN ENTRÉE
En FILE-CONTROL la déclaration sera :
SELECT FMASTER ASSIGN FMASTER
FILE STATUS W-STATUS-FMASTER.
Si le fichier d'entrée est indexée:
SELECT FMASTER ASSIGN FMASTER
ORGANIZATION IS INDEXED
RECORD KEY IS FMASTER-KEY
FILE STATUS W-STATUS-FMASTER..
Dans ce cas au niveau de la FILE-SECTION on va avoir :
* FMAITRE en entrée
FD FMAITRE.
01 ENR-FMAITRE.
* Déclarations des zones de l’enregistrement
Au niveau JCL la déclaration sera de la forme :
//ENTREE DD DSN=SAMPLE.INPUTF,DISP=SHR
FICHIER EN SORTIE
La déclaration JCL sera alors :
//OUTFILE DD DSN=SAMPLE.OUTPUTF,DISP=(,CATLG,DELETE), // LRECL=150,RECFM=FB
RECFM spécifie les caractéristiques des enregistrements avec longueur fixe (F), longueur variable (V), longueur variable ASCII (D) ou longueur indéfinie (U). Les enregistrements qui sont dit bloqués sont décrits comme FB, VB ou DB.
OUVERTURE ET FERMETURE FICHIER EN PROCEDURE DIVISION
COBOL utilise des mécanismes en PROCEDURE DIVISION pour effectuer des lecture écriture, fermeture et ouverture de fichier.
Ouverture de fichier d’entrée :
OPEN INPUT FICENT
Ouverture de fichier de sortie :
OPEN OUTPUT FICSOR
Fermeture de fichier :
CLOSE FICENT CLOSE FICSOR
Lecture de fichier:
READ ACTENR AT END MOVE 'O' TO DERNIER-ENREGISTREMENT END-READ
Ecriture fichier
WRITE SOR-ENR
Un langage dans lequel deux programmes de programmation sont construits en combinant les deux programmes de programmation représentés par un symbole spécial
Cobol (avec un type de symbole spécial) peut avoir des caractéristiques spéciales (par exemple, spéciales pour le type d’un symbole spécial utilisé au moment de l’exécution) ou est généralement une expression spéciale telle que: (fonction) ou (une nouvelle ligne; une expression, telle comme:
La fonction au début est considérée comme une expression spéciale.
Certaines langues ne sont pas spéciales et utilisent donc une expression spéciale, même s’il ne s’agit généralement pas d’un symbole spécial. Souvent, un type de symbole avec à la fois un type de symbole spécial et le symbole qui a été défini dans une expression particulière a une expression spéciale. Donc:
La fonction dans la clause la plus interne d’une fonction est une expression spéciale.
En C, cependant, la fonction n’a qu’une expression spéciale. Dans un programme comme celui en C:
(définir f (x) (* x)? / * … * /)
en C (qui n’est pas une expression spéciale telle que définie dans function), une expression spéciale est appliquée à la place de tout symbole spécial de son programme parent. Ainsi C a une expression spéciale, c’est-à-dire,
(une (x 4) -> 4))
Dans ces deux exemples, la fonction n’a qu’un type de symbole spécial (car x dans le programme contient en fait le type de symbole spécial de la fonction).
Qu’est-ce que la syntaxe cobol?
Le langage cobol est un programme C écrit en langage C. Il peut être utilisé pour générer des données pour interagir avec les informations d’un programme. Le programme peut également être utilisé pour contrôler d’autres types de systèmes informatiques, tels que des ordinateurs, des téléphones portables, etc.
Qu’est-ce que l’exemple Cobol?
Le langage cobol génère des programmes qui représentent et manipulent des données en manipulant ses propriétés. Ces programmes peuvent être lus, écrits, interprétés, exécutés et renvoyés. Ils peuvent tous être utilisés en même temps ou réécrits ensemble dans un seul fichier.
Qu’est-ce que le format de données Cobol?
Le format de données cobol se compose de chaînes de texte et de tableaux.
Le programme cobol peut être écrit en insérant la ligne suivante dans le code source pour chacune des quatre valeurs au format suivant:
valeur 1
valeur 2
valeur 3
valeur 4
valeur 5
valeur 6
valeur 7
valeur 8
Valeur 9
Le format cobol comprend également des fonctions qui peuvent être utilisées pour renvoyer des informations.
Cobol fournit un tableau de variables nommées variables. Cela permet au programme cobol de produire divers types de données, notamment:
temps ,
des graphiques, des données et, dans une certaine mesure, plus important encore,
Les données .
cobol est également écrit en C. La syntaxe est la suivante:
Apprendre COBOL – LIENS EXTERNES VERS DES RESSOURCES
Ci-dessous quelques liens que j’ai trouvé intéressants qui traitent également de la gestion des fichiers avec COBOL.
Exemple de gestion de fichier du site IBM : Website www.ibm.com
REFM Format : https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.2.0/com.ibm.zos.v2r2.idad400/d4037.htm
Tutorialspoint un article sur la gestion fichier Website www.tutorialspoint.com
COURSERA COBOL with VSCODE : Website www.coursera.org
MEDIUM un article intéressant pour les débutants COBOL : Website medium.com
Egalement sur son blog : http://yvanscher.com/2018-08-01_7-cobol-examples-with-explanations–ae1784b4d576.html
Beaucoup d’exemple COBOL de tutoriaux et sample code gratuits : Website www.csis.ul.ie
GITHUB Awesome-cobol vous Website github.com
Apprendre COBOL – COBOL TUTORIAL LIENS INTERNES
IBM COBOL FREE TRAINING