Les numéros de niveau 01–49 en COBOL

Items élémentaires vs Items de groupe

En une phrase :
Les numéros de niveau indiquent la hiérarchie des données.
• 01 à 49 → niveau de regroupement
• Plus le chiffre est petit → plus haut dans l’arborescence

Deux grands types d’items

1. Item élémentaire (feuille)

01  NOM                 PIC X(30).
01  AGE                 PIC 9(3).
01  PRIX                PIC 9(5)V99.

Ces variables contiennent directement des données.
Elles ont une clause PIC → ce sont des items élémentaires.

2. Item de groupe (nœud)

01  CLIENT.
    05  NUMERO          PIC 9(8).
    05  NOM             PIC X(30).
    05  ADRESSE.
        10  RUE         PIC X(40).
        10  CP          PIC X(5).
        10  VILLE       PIC X(30).
    05  SOLDE           PIC S9(7)V99.

CLIENT, ADRESSE → items de groupe (pas de PIC)
Ils servent uniquement à regrouper d’autres items.

Règles simples des niveaux

01 → toujours le niveau le plus haut (racine d’un enregistrement)
05, 10, 15… → sous-niveaux (on augmente généralement de 5 pour la lisibilité)
Le niveau doit être plus grand que celui du parent
Les items de même niveau sont des frères

Exemple 1 – Date complète

01  DATE-NAISSANCE.
    05  ANNEE           PIC 9(4).
    05  MOIS            PIC 9(2).
    05  JOUR            PIC 9(2).

On peut accéder à :
• DATE-NAISSANCE (les 8 chiffres)
• ANNEE (seulement l’année)

Exemple 2 – Ligne de facture

01  LIGNE-FACTURE.
    05  NUM-LIGNE       PIC 9(3).
    05  REFERENCE       PIC X(15).
    05  DESIGNATION     PIC X(40).
    05  QUANTITE        PIC 9(5).
    05  PRIX-UNITAIRE   PIC 9(6)V99.
    05  MONTANT         PIC 9(8)V99.

→ LIGNE-FACTURE = toute la ligne (enregistrement)
→ On peut MOVE ou DISPLAY des sous-parties facilement

À retenir en 3 points :

01 = début d’un enregistrement ou d’une zone importante
Pas de PIC → c’est un groupe (parent)
Avec PIC → c’est une feuille (donnée réelle)

Pourquoi c’est utile ?
Les niveaux permettent d’organiser les données comme un arbre → plus facile à lire, à déplacer en bloc, à passer en paramètre, ou à écrire dans un fichier.