From 1f25b3f0408302c08850e856d8c7dc0d01191e69 Mon Sep 17 00:00:00 2001
From: rick <rick@gnous.eu>
Date: Sun, 7 Mar 2021 15:07:19 +0100
Subject: [PATCH] =?UTF-8?q?D=C3=A9bug=20&=20Ajout=20de=20commentaires=20JP?=
 =?UTF-8?q?P=20j=E2=80=99avais=20juste=20mal=20lu=20l=E2=80=99=C3=A9nonc?=
 =?UTF-8?q?=C3=A9.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 jour05/{test.cob => jour5-prem.cob} | 25 ++++++++++++++++++++-----
 1 file changed, 20 insertions(+), 5 deletions(-)
 rename jour05/{test.cob => jour5-prem.cob} (76%)

diff --git a/jour05/test.cob b/jour05/jour5-prem.cob
similarity index 76%
rename from jour05/test.cob
rename to jour05/jour5-prem.cob
index 20fa859..b86fd97 100644
--- a/jour05/test.cob
+++ b/jour05/jour5-prem.cob
@@ -8,7 +8,6 @@
                ORGANIZATION LINE SEQUENTIAL.
        
        DATA DIVISION.
-
          FILE SECTION.
          FD FILE1.
            01 INPUT-FILE.
@@ -26,20 +25,24 @@
            OPEN INPUT FILE1.
            PERFORM UNTIL EOF
               READ FILE1 RECORD INTO MY-FILE
+      * Lorsqu’on arrive à la fin du fichier, on met Y pour le signaler
               AT END MOVE 'Y' TO FILE-STATUS
               NOT AT END CALL "parse-str" USING 
                       BY CONTENT MY-STR,
                       BY REFERENCE NB-NICE
+      * On passe par référence NB-NICE pour l’incrémenter
                       END-CALL
               END-READ
            END-PERFORM.
            DISPLAY "Nombre de bonnes chaines : " NB-NICE.
            CLOSE FILE1.
            STOP RUN.
-      
-       END PROGRAM jour-cinq-prem-part.
 
       ******************************************************************
+      * parse-str : parse la chaine de caractères pour voir le nombre de
+      * bonnes chaines. Prend en paramètres 2 arguments :
+      * STR : chaine de caractères de taille 16. Sera parser.
+      * NB  : (REFERENCE) le nombre de bonnes chaines. Sera incrémenter.
       
        IDENTIFICATION DIVISION.
          PROGRAM-ID. parse-str.
@@ -47,7 +50,7 @@
        DATA DIVISION.
          WORKING-STORAGE SECTION.
            77 CHAR PIC A.
-               88 VOY VALUE 'a','e','i','o','u','y'.
+               88 VOY VALUE 'a','e','i','o','u'.
            77 I PIC 99.
                88 END-P VALUE 17.
            77 NB-VOY PIC 99.
@@ -55,6 +58,14 @@
            77 TMP PIC AA.
                88 BAD VALUE 'ab', 'cd', 'pq', 'xy'.
            77 DOUBLE PIC X.
+
+      * NB-VOY contient le nombre de voyelles
+      * PRED le caractère précédent
+      * TMP forme la chaine contenant le caractère précédent et courant
+      * BAD les mauvaises formes de chaines
+      * DOUBLE est mit à Y lorsque CHAR = PRED
+      *
+      * LINKAGE SECTION contient les paramètres du programme parse-str
                    
          LINKAGE SECTION.
            77 STR PIC A(17).
@@ -94,5 +105,9 @@
                THEN
                    ADD 1 TO NB
            END-IF.
-
+           EXIT PROGRAM.
        END PROGRAM parse-str.
+
+      *************************************************************************
+      
+       END PROGRAM jour-cinq-prem-part.