1 files changed, 97 insertions, 0 deletions
diff --git a/treybastian_1brc.cbl b/treybastian_1brc.cbl
new file mode 100644
index 0000000..c417940
--- /dev/null
+++ b/treybastian_1brc.cbl
@@ -0,0 +1,97 @@
+       IDENTIFICATION DIVISION.
+       PROGRAM-ID. 1brc.
+       AUTHOR. Trey Bastian.
+
+       ENVIRONMENT DIVISION.
+       INPUT-OUTPUT SECTION.
+       FILE-CONTROL.
+       SELECT measurements-file ASSIGN TO "./measurements.txt"
+           ORGANIZATION IS LINE SEQUENTIAL.
+
+       DATA DIVISION.
+       FILE SECTION.
+       FD measurements-file.
+         01 measurement-line PIC X(106).
+
+       WORKING-STORAGE SECTION.
+       01 results-table.
+         02 stations OCCURS 10000 TIMES INDEXED BY idx.
+           03 name PIC A(100).
+           03 min-temp PIC S9(2)V9 VALUE ZEROS.
+           03 mean-temp PIC S9(2)V9 VALUE ZEROS.
+           03 max-temp PIC S9(2)V9 VALUE ZEROS.
+           03 temp-count PIC 9(10) VALUE ZEROS.
+           03 total PIC S9(10)V9(2) VALUE ZEROS.
+
+       77 last-idx PIC 9(6) VALUE 1.
+       77 station-name PIC A(100).
+       77 temperature PIC S9(2)V9 VALUE ZEROS.
+       77 temp-str PIC -(2)9.9 VALUE ZEROS.
+       01 pic x.
+             88 eof VALUE "Y".
+             88 eof-n VALUE "N".
+
+       PROCEDURE DIVISION.
+           OPEN INPUT measurements-file.
+           SET eof-n TO TRUE.
+           PERFORM UNTIL eof
+             READ measurements-file AT END
+                 SET eof TO TRUE
+             NOT AT END
+               UNSTRING measurement-line DELIMITED BY ";"
+                 INTO station-name, temperature
+               END-UNSTRING
+              MOVE 1 to idx
+              SEARCH stations
+                AT END
+                  MOVE station-name TO name(last-idx)
+                  MOVE temperature TO min-temp(last-idx)
+                  MOVE temperature TO mean-temp(last-idx)
+                  MOVE temperature TO max-temp(last-idx)
+                  MOVE temperature TO total(last-idx)
+                  ADD 1 TO temp-count(last-idx)
+                  ADD 1 TO last-idx
+                WHEN name(idx) = station-name
+                  ADD 1 TO temp-count(idx)
+                  IF min-temp(idx) > temperature THEN
+                    MOVE temperature TO min-temp(idx)
+                  END-IF
+                  IF max-temp(idx) < temperature THEN
+                   MOVE temperature TO max-temp(idx)
+                  END-IF
+                  ADD temperature TO total(idx)
+                  COMPUTE mean-temp(idx) ROUNDED = total(idx) /
+                  temp-count(idx)
+               END-SEARCH
+
+             END-READ
+           END-PERFORM.
+           CLOSE measurements-file.
+
+           SORT stations ASCENDING name.
+           PERFORM VARYING idx FROM 1 BY 1 UNTIL idx = 10001
+             IF name(idx) NOT EQUAL SPACES THEN
+               DISPLAY FUNCTION TRIM(name(idx) TRAILING)
+                 WITH NO ADVANCING
+               DISPLAY ";" WITH NO ADVANCING
+               MOVE min-temp(idx) TO temp-str
+               DISPLAY FUNCTION TRIM(temp-str LEADING)
+                 WITH NO ADVANCING
+               DISPLAY ";" WITH NO ADVANCING
+               MOVE mean-temp(idx) TO temp-str
+               DISPLAY FUNCTION TRIM(temp-str LEADING)
+                 WITH NO ADVANCING
+               DISPLAY ";" WITH NO ADVANCING
+               MOVE max-temp(idx) TO temp-str
+               DISPLAY FUNCTION TRIM(temp-str LEADING)
+             END-IF
+           END-PERFORM.
+
+       STOP-RUN.
+
+
+
+
+
+
+