C'est l'ensemble complet du code source qui forme une application COBOL fonctionnelle. Il est composé de plusieurs divisions.
IDENTIFICATION DIVISION.
La première et obligatoire DIVISION. Elle identifie le programme et fournit des informations descriptives.
IDENTIFICATION DIVISION.
PROGRAM-ID. MonApp.
PROGRAM-ID.
Un PARAGRAPHE obligatoire qui donne un nom unique au programme.
PROGRAM-ID. MonApp.
AUTHOR.
Un PARAGRAPHE optionnel pour indiquer l'auteur du programme.
AUTHOR. JohnDoe.
ENVIRONMENT DIVISION.
Cette DIVISION décrit l'environnement informatique du programme, comme les fichiers ou les périphériques.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
INPUT-OUTPUT SECTION.
Une SECTION qui gère l'association des fichiers internes aux fichiers externes.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
FILE-CONTROL.
Un PARAGRAPHE où les fichiers sont déclarés et associés à des noms externes.
FILE-CONTROL.
SELECT MonFichier ASSIGN TO "data.txt".
SELECT MonFichier ASSIGN TO "data.txt".
Une PHRASE qui associe un fichier logique à un fichier physique. Elle se termine par un point.
SELECT MonFichier ASSIGN TO "data.txt".
SELECT
Un MOT-clé, un verbe COBOL.
MonFichier
Un MOT, le nom logique du fichier.
ASSIGN TO
Des MOTS-clés, pour l'association.
"data.txt"
Un MOT, le nom physique du fichier (littéral).
DATA DIVISION.
Cette DIVISION est dédiée à la description de toutes les données manipulées par le programme.
DATA DIVISION.
WORKING-STORAGE SECTION.
WORKING-STORAGE SECTION.
Une SECTION où sont définies les variables de travail internes au programme.
WORKING-STORAGE SECTION.
01 MonGroupe.
05 NomUtilisateur PIC X(20).
01 MonGroupe.
Un PARAGRAPHE de niveau 01, définissant une structure de données complexe.
01 MonGroupe.
05 NomUtilisateur PIC X(20).
05 NomUtilisateur PIC X(20).
Une PHRASE qui déclare un élément de données au sein de MonGroupe.
05 NomUtilisateur PIC X(20).
NomUtilisateur
Un MOT, le nom de la variable.
PIC X(20)
Des MOTS, la clause PICTURE définissant le format (alphanumérique, 20 caractères).
PROCEDURE DIVISION.
Cette DIVISION contient toutes les instructions exécutables du programme, définissant sa logique.
PROCEDURE DIVISION.
MainProgram.
DISPLAY "Démarrage du programme.".
MainProgram.
Un PARAGRAPHE qui sert de point d'entrée principal pour la logique du programme.
MainProgram.
DISPLAY "Démarrage du programme.".
DISPLAY "Démarrage du programme.".
Une PHRASE qui affiche un message sur la console.
DISPLAY "Démarrage du programme.".
DISPLAY
Un MOT-clé, le verbe pour afficher des données.
"Démarrage du programme."
Des MOTS, un littéral (chaîne de caractères).
STOP RUN.
Une PHRASE qui termine l'exécution du programme.
STOP RUN.
STOP
Un MOT-clé, le verbe pour arrêter.
RUN
Un MOT-clé, modificateur du verbe STOP.