From 0f6b2728534e85f869660b0e7d25d9c8b03acc5a Mon Sep 17 00:00:00 2001
From: rick <rick@gnous.eu>
Date: Wed, 17 Mar 2021 22:28:17 +0100
Subject: [PATCH] Suppression espaces inutiles

---
 jour05/jour5.cob | 28 ++++++++++++++--------------
 1 file changed, 14 insertions(+), 14 deletions(-)

diff --git a/jour05/jour5.cob b/jour05/jour5.cob
index 42f7a82..f2312b3 100644
--- a/jour05/jour5.cob
+++ b/jour05/jour5.cob
@@ -1,18 +1,18 @@
        IDENTIFICATION DIVISION.
         PROGRAM-ID. jour-cinq-prem-part.
-      
+
        ENVIRONMENT DIVISION.
           INPUT-OUTPUT SECTION.
           FILE-CONTROL.
                SELECT FILE1 ASSIGN TO "input"
                ORGANIZATION LINE SEQUENTIAL.
-      
+
        DATA DIVISION.
          FILE SECTION.
          FD FILE1.
            01 INPUT-FILE.
              02 STR PIC A(17).
-      
+
          WORKING-STORAGE SECTION.
            01 MY-FILE.
              02 MY-STR PIC A(17).
@@ -20,7 +20,7 @@
              88 EOF VALUE 'Y'.
            77 NB-NICE-PREM PIC 9(4) VALUE 0.
            77 NB-NICE-DEUX PIC 9(4) VALUE 0.
-      
+
        PROCEDURE DIVISION.
        main.
            OPEN INPUT FILE1.
@@ -41,7 +41,7 @@
            DISPLAY "Dans la partie 2 : " NB-NICE-DEUX END-DISPLAY.
            CLOSE FILE1.
            STOP RUN.
-      
+
       *****************************************************************
       * hub : exécute les 2 fonctions pour les 2 parties
       * STR : la chaine à passer en paramètre aux deux fonctions
@@ -49,10 +49,10 @@
       * NB-DEUX : (REFERENCE) nombre bonnes chaines partie 2
       * Ces 2 variables seront incrémentées
       *****************************************************************
-      
+
        IDENTIFICATION DIVISION.
          PROGRAM-ID. hub.
-         
+
        DATA DIVISION.
          LINKAGE SECTION.
            77 STR PIC A(17).
@@ -81,7 +81,7 @@
 
        IDENTIFICATION DIVISION.
        PROGRAM-ID. parse-prem.
-    
+
        DATA DIVISION.
          WORKING-STORAGE SECTION.
            77 CHAR PIC A.
@@ -103,11 +103,11 @@
       *
       * LINKAGE SECTION contient les paramètres du programme parse-str
       *****************************************************************
-      
+
          LINKAGE SECTION.
            77 STR PIC A(17).
            77 NB PIC 9(4).
-      
+
        PROCEDURE DIVISION USING STR, NB.
        parse.
            MOVE 0 TO NB-VOY.
@@ -144,7 +144,7 @@
 
        IDENTIFICATION DIVISION.
          PROGRAM-ID. parse-deux.
-      
+
        DATA DIVISION.
          WORKING-STORAGE SECTION.
            77 CHAR PIC A.
@@ -159,7 +159,7 @@
            77 DOUBLE-CHAR-NEXT PIC AA.
            77 BETWEEN PIC X.
            77 DOUBLE PIC X.
-      
+
       ******************************************************************
       * PRED le caractère précédent
       * MYNEW le caractère suivant
@@ -168,11 +168,11 @@
       * DOUBLE est mit à Y lorsque 2 pairs sont trouvées
       * BETWEEN est mit à Y lorsque 2 memes lettres en encadrent une
       ******************************************************************
-      
+
          LINKAGE SECTION.
            77 STR PIC A(17).
            77 NB PIC 9(4).
-      
+
        PROCEDURE DIVISION USING STR, NB.
        deuxieme-part.
            MOVE 'N' TO BETWEEN.