Data update

2026-02-01 16:33:20 -08:00 · 2026-02-01 16:33:20 -08:00 · 4bb20c9b71
commit 4bb20c9b71
parent 5150844a7d
7735 changed files with 38060 additions and 199180 deletions
--- a/Task/Input-loop/COBOL/input-loop.cobol
+++ b/Task/Input-loop/COBOL/input-loop.cobol
@ -1,33 +0,0 @@
-       IDENTIFICATION DIVISION.
-       PROGRAM-ID. input-loop.
-
-       ENVIRONMENT DIVISION.
-       INPUT-OUTPUT SECTION.
-       FILE-CONTROL.
-           SELECT in-stream ASSIGN TO KEYBOARD *> or any other file/stream
-               ORGANIZATION LINE SEQUENTIAL
-               FILE STATUS in-stream-status.
-
-       DATA DIVISION.
-       FILE SECTION.
-       FD  in-stream.
-       01  stream-line                 PIC X(80).
-
-       WORKING-STORAGE SECTION.
-       01  in-stream-status            PIC 99.
-           88  end-of-stream           VALUE 10.
-
-       PROCEDURE DIVISION.
-           OPEN INPUT in-stream
-
-           PERFORM UNTIL EXIT
-               READ in-stream
-                   AT END
-                       EXIT PERFORM
-               END-READ
-               DISPLAY stream-line
-           END-PERFORM
-
-           CLOSE in-stream
-           .
-       END PROGRAM input-loop.