Formation à la programmation COBOL

**mNiko7** · 08/03/2022, 14h55

Bien le bonjour chers COBOListes,

Je me présente, je m'appelle Nicolas et je suis ingénieur d'étude et développement MAINFRAME, développeur COBOL quoi

.

J'ai remarqué la présence de plusieurs sujets clos sur le COBOL où plusieurs développeurs recherchaient des tutoriels en COBOL. Depuis peu, j'ai lancé une chaîne Youtube 'FromZeroToCobol' sur laquelle vous pouvez retrouver du contenu sur le COBOL. Je dispense également une formation sur mon site du même nom.

Beaucoup considère ce langage comme complètement mort. Alors oui, ce n'est pas avec lui que vous allez développer la nouvelle appli de rencontre, mais dans le système bancaire et des assurances, c'est encore massivement employé ! Sachez également que les personnes sachant coder dans ce langage partent doucement à la retraite et qu'il n'est plus trop enseigné en école. Le recrutement dans ce secteur repart de plus belle. Pensez-y, notamment pour les personnes en reconversion

En espérant que cela puisse aider.

Bien à vous,

Nicolas

**escartefigue** · 10/03/2022, 12h40

C'est une bonne idée

J'ai jeté un coup d'oeil sur la vidéo des fonctions, il me vient une remarque :
sur Z/OS, toute variable déclarée sur un niveau "01" utilise 16 octets.
C'est donc ballot de déclarer un liste de variables courtes telles que 9(02) ou X03) sur des level 01, car on "crame" des octets inutilement.
Pour éviter de charger inutilement la working (et donc la région dans laquelle le programme s'exécute) il est préférable de coder ainsi :

Code cobol :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
01  FILLER
    02 VAR1  PIC  9(02) VALUE ZEROES.
    02 VAR2  PIC  X(03) VALUE 'ABC'.   
    03 VAR3  ...

De nos jours c'est moins critique, mais un code optimisé est toujours bon à prendre

**mNiko7** · 10/03/2022, 13h01

Merci beaucoup pour ton retour

Effectivement, c'est bien vu. D'ailleurs, c'est ce que j'applique au boulot dans un programme qui contient, par exemple, plusieurs compteurs (ou autres données communes), je les mets tous dans une zone de groupe sans avoir à cumuler les niveaux 01. Ainsi, un seul 'INITIALIZE' suffit à initialiser tous les compteurs.

J'aurais dû optimiser l'explication en vidéo pour montrer directement les bonnes pratiques

**Luc Orient** · 11/03/2022, 09h56

Envoyé par escartefigue

...
sur z/OS, toute variable déclarée sur un niveau "01" utilise 16 octets.

... Source ?

**escartefigue** · 14/03/2022, 16h21

Source ? L'expérience

Pour s'en assurer, plusieurs moyens

déclencher un dump d'un traitement et vérifier la WSS (plus facile si on a pris le soin de la baliser avec des commentaires)
vérifier dans le résultat d'une compilation, le listing comporte notamment la position de début de chaque variable déclarée
exécuter un programme avec un débugger et visualiser la WSS

Et aussi, autrefois, c'était enseigné dans les formations COBOL, mais je parle d'une époque que les moins de 20 ans (et même moins de 50 probablement) ne peuvent pas connaitre

. Ca date d'une époque ou la RAM coutait une blinde.
Dans les temps anciens, on déclarait souvent des variables en niveau "77" pour éviter cet encombrement inutile, mais ca fait déjà de nombreuses années que les niveau "77" s'alignent également sur 16 octets comme les niveaux "01".

**Luc Orient** · 14/03/2022, 16h38

Envoyé par escartefigue

Source ? L'expérience

Pour s'en assurer, plusieurs moyens

et encore mieux, avec l'option LIST, demander au compilateur le code machine généré.

Hélas, étant retraité je n'ai plus accès à un Mainframe z/OS, mais si qu'un pouvait faire l'essai ça serait sympa ...