containerizedCOBOL/myAddCobol2.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
43
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-REAL-DP PIC S9(4)V9(4).
   FD  OUTPUT-FILE.
   01  OUTPUT-RECORD.
      05  OUTPUT-NUMBER PIC S9(4)V9(4).

WORKING-STORAGE SECTION.
       01  TOTAL PIC S9(04)V9(4).
       01  END-OF-FILE  PIC X(3) VALUE 'FLS'.

PROCEDURE DIVISION.
   OPEN INPUT INPUT-FILE
   OPEN OUTPUT OUTPUT-FILE
   READ INPUT-FILE
      AT END MOVE 'TRU' TO END-OF-FILE
      NOT AT END ADD INPUT-REAL-DP TO TOTAL
   END-READ
   PERFORM UNTIL END-OF-FILE = "TRU"
      READ INPUT-FILE
         AT END MOVE 'TRU' TO END-OF-FILE
         NOT AT END ADD INPUT-REAL-DP TO TOTAL
      END-READ
   END-PERFORM
   MOVE TOTAL TO OUTPUT-NUMBER
   WRITE OUTPUT-RECORD
   CLOSE INPUT-FILE, OUTPUT-FILE
   STOP RUN.