La structure en colonnes des programmes COBOL

Présentation d’un exemple minimal en COBOL

les colonnes

Historiquement, COBOL a été conçu à une époque où les programmes étaient saisis sur des cartes perforées. Chaque carte comportait exactement 80 colonnes, soit 80 caractères maximum par ligne. Cette contrainte physique a profondément influencé la mise en forme du code COBOL.

💡 Même si les cartes perforées ont disparu, la structure en colonnes continue d’exister dans COBOL pour des raisons de compatibilité avec les compilateurs anciens.

Organisation des colonnes

  • Colonnes 1 à 6 : elles servaient à numéroter les lignes, pour reclasser les cartes tombées par terre. Aujourd’hui, elles sont généralement vides ou ignorées.
  • Colonne 7 : utilisée comme indicateur de contrôle. Un astérisque (*) en colonne 7 transforme toute la ligne en commentaire.
  • Colonnes 8 à 11 : appelées zone A. C’est ici que doivent commencer les mots-clés structurants : DIVISION, SECTION, noms de paragraphes, ou déclarations de variables de haut niveau.
  • Colonnes 12 à 72 : appelées zone B. C’est la zone utilisée pour écrire les instructions et les phrases COBOL. Vous y placez les verbes comme MOVE, ADD, DISPLAY, etc.
  • Colonnes 73 à 80 : rarement utilisées, parfois réservées à des commentaires ou repères techniques pour certains éditeurs.

Exemple avec numéros de ligne (hérité des cartes perforées)

000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. ExempleColonnes.
000003 ENVIRONMENT DIVISION.
000004 DATA DIVISION.
000005 WORKING-STORAGE SECTION.
000006     01  NB-PACTA-COBOL PIC 9(4) COMP.
000007 PROCEDURE DIVISION.
000008     MOVE 475 TO NB-PACTA-COBOL.
000009     DISPLAY NB-PACTA-COBOL.

À retenir

  • Certains compilateurs modernes ignorent ces zones, mais d'autres peuvent encore les exiger.
  • Les éditeurs COBOL aident généralement à respecter ces zones automatiquement.
  • Pour la clarté de lecture, les exemples modernes commencent souvent à la colonne 8 sans utiliser les numéros de ligne.
Note : La structure en colonnes peut sembler archaïque, mais elle fait partie de l’héritage du langage COBOL. Il est bon de la comprendre, même si vous travaillez dans un environnement plus souple.

Téléchargez le code source : 🔍 Voir dans un nouvel onglet | 📥 Télécharger le fichier