containerizedCOBOL/myAddCobol.cob at main · idjohnson/containerizedCOBOL · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
IDENTIFICATION DIVISION.
PROGRAM-ID. ADD-NUMBERS.

ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
   SELECT INPUT-FILE
      ASSIGN TO "input.txt"
      ORGANIZATION IS LINE SEQUENTIAL.
   SELECT OUTPUT-FILE
      ASSIGN TO "output.txt"
      ORGANIZATION IS LINE SEQUENTIAL.

DATA DIVISION.
FILE SECTION.
   FD  INPUT-FILE.
   01  INPUT-RECORD.
      05  INPUT-NUMBER-1 PIC 9(4).
      05  INPUT-NUMBER-2 PIC 9(4).
   FD  OUTPUT-FILE.
   01  OUTPUT-RECORD.
      05  OUTPUT-NUMBER PIC 9(4).
WORKING-STORAGE SECTION.
   01 INDICATORS.
      05  END-OF-FILE PIC XXXX  VALUE "FLSE".
PROCEDURE DIVISION.
   OPEN INPUT INPUT-FILE
   OPEN OUTPUT OUTPUT-FILE
   READ INPUT-FILE
      AT END MOVE "TRUE" TO END-OF-FILE
      NOT AT END ADD INPUT-NUMBER-1 TO INPUT-NUMBER-2 GIVING OUTPUT-NUMBER
   END-READ
   PERFORM UNTIL END-OF-FILE = "TRUE".
      WRITE OUTPUT-RECORD
      READ INPUT-FILE
           AT END
               MOVE "TRUE" TO END-OF-FILE.
         NOT AT END ADD INPUT-NUMBER-1 TO INPUT-NUMBER-2 GIVING OUTPUT-NUMBER.
           END-READ.
   END-PERFORM
   CLOSE INPUT-FILE, OUTPUT-FILE
   STOP RUN.