From 3f75383e35e4fa08ff681ed4239bd8356366f6d1 Mon Sep 17 00:00:00 2001
From: rick <rick@gnous.eu>
Date: Sun, 7 Mar 2021 11:35:12 +0100
Subject: [PATCH] Lecture du fichier de test input

---
 jour05/input    |  2 ++
 jour05/test.cob | 39 +++++++++++++++++++++++++++++++++++++++
 2 files changed, 41 insertions(+)
 create mode 100644 jour05/input
 create mode 100644 jour05/test.cob

diff --git a/jour05/input b/jour05/input
new file mode 100644
index 0000000..ab41c95
--- /dev/null
+++ b/jour05/input
@@ -0,0 +1,2 @@
+ugknbfddgicrmopn
+jchzalrnumimnmhp
diff --git a/jour05/test.cob b/jour05/test.cob
new file mode 100644
index 0000000..086afce
--- /dev/null
+++ b/jour05/test.cob
@@ -0,0 +1,39 @@
+       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 STR PIC A(17).
+           01 WS-STATUS PIC X VALUE 'N'.
+             88 EOF VALUE 'Y'.
+      
+       PROCEDURE DIVISION.
+         main.
+           OPEN INPUT FILE1.
+           PERFORM UNTIL EOF
+              READ FILE1 RECORD INTO MY-FILE
+              AT END MOVE 'Y' TO WS-STATUS
+              NOT AT END DISPLAY MY-FILE
+              END-READ
+           END-PERFORM.
+           CLOSE FILE1.
+           STOP RUN.
+      
+       END PROGRAM jour-cinq-prem-part.
+       
+      *deuxième étape, lire car par car
+      *troisième étape, check si voyelle
+      *retenir lettre act et pred pour check mot interdit
+      *retenir lettre jusqu’à double