Parcours Accueil Tour guidé Initiation 1 h Initiation 24 h Révisions Exercices

🧾 10-2 – Exemple complet : automatisation d’un traitement de factures en  COBOL 

Ce traitement batch lit un fichier de factures, calcule le montant TTC pour celles au statut "VALIDE", et écrit les résultats dans un second fichier.

📁 Déclarations simplifiées

SELECT F-IN ASSIGN TO "FACTURES.DAT".
SELECT F-OUT ASSIGN TO "VALIDEES.DAT".

FD F-IN.
01 ENTR.
  05 CODE       PIC X(6).
  05 HT         PIC 9(5)V99.
  05 TVA        PIC 9(2).
  05 STATUT     PIC X(10).

FD F-OUT.
01 SORTIE.
  05 CODE-S     PIC X(6).
  05 TTC        PIC 9(6)V99.
  

⚙️ PROCEDURE DIVISION

OPEN INPUT F-IN
OPEN OUTPUT F-OUT
PERFORM UNTIL EOF = "OUI"
  READ F-IN AT END
    MOVE "OUI" TO EOF
  NOT AT END
    IF STATUT = "VALIDE"
      COMPUTE TTC = HT + (HT * TVA / 100)
      MOVE CODE TO CODE-S
      WRITE SORTIE
    END-IF
END-PERFORM
CLOSE F-IN
CLOSE F-OUT
STOP RUN.
  

📌 Résumé

Ce programme illustre :

• 📥 Lecture fichier  READ 
• 🧮 Calcul conditionnel  COMPUTE 
• 📤 Écriture filtrée  WRITE 
• 🔁 Logique batch complète