IDENTIFICATION DIVISION.
       PROGRAM-ID. HIGHESTVAL.

       ENVIRONMENT DIVISION.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
           SELECT COORDINATE-FILE
               ASSIGN TO
               "C:\Users\soyteen\Desktop\ImageBOL\image_coordinates.dat"
               ORGANIZATION IS LINE SEQUENTIAL.

           SELECT OUTPUT-FILE
               ASSIGN TO
               "C:\Users\soyteen\Desktop\ImageBOL\new_coords.dat"
               ORGANIZATION IS LINE SEQUENTIAL.

       DATA DIVISION.
       FILE SECTION.
       FD  COORDINATE-FILE.
       01  COORD-RAW-LINE      PIC X(50).

       FD  OUTPUT-FILE.
       01  OUTPUT-RECORD.
           05 OUT-X            PIC 9(4).
           05 FILLER           PIC X VALUE SPACE.
           05 OUT-Y            PIC 9(4).
           05 FILLER           PIC X VALUE SPACE.
           05 OUT-PIXEL        PIC 9(4).


       WORKING-STORAGE SECTION.
       01  WS-COORDS.
           05 WS-X                     PIC 9(4).
           05 WS-Y                     PIC 9(4).
           05 PIXEL-BRIGHTNESS         PIC 9(3).

       01  END-OF-FILE         PIC X VALUE "N".

      *These are to find the highest point
       01  CHAMPION-VALUES.
           05 MAX-X            PIC 9(4) VALUE 0.
           05 MAX-Y            PIC 9(4) VALUE 0.
           05 MAX-PIXEL        PIC 9(4) VALUE 0.

      *This converts the comma delimited file into a space DELIMITED
      *file
       PROCEDURE DIVISION.
       PROGRAM-INIT.
           OPEN INPUT COORDINATE-FILE.
           OPEN OUTPUT OUTPUT-FILE.

           PERFORM CONVERSION-PROCEDURE.
           PERFORM HIGHEST-VALUE-FINDER.






       CONVERSION-PROCEDURE.

           PERFORM UNTIL END-OF-FILE = "Y"
               READ COORDINATE-FILE
                   AT END
                       MOVE "Y" TO END-OF-FILE
                   NOT AT END
                       UNSTRING COORD-RAW-LINE
                           DELIMITED BY ","
                           INTO WS-X
                                WS-Y
                                PIXEL-BRIGHTNESS
                       END-UNSTRING
      *Note: You assigned zero to MAX-PIXEL from the gate, therefore
      *    The first PIXEL-BRIGHTNESS is always going to initialize this.
           IF PIXEL-BRIGHTNESS > MAX-PIXEL THEN
                           MOVE PIXEL-BRIGHTNESS TO MAX-PIXEL
                           MOVE WS-X             TO MAX-X
                           MOVE WS-Y             TO MAX-Y
                       END-IF

                       MOVE WS-X TO OUT-X
                       MOVE WS-Y TO OUT-Y
                       MOVE PIXEL-BRIGHTNESS TO OUT-PIXEL

                       WRITE OUTPUT-RECORD
               END-READ
           END-PERFORM.

           CLOSE COORDINATE-FILE.

      *This displays the highest pixel and its coordinates.
       HIGHEST-VALUE-FINDER.
           DISPLAY "HIGHEST BRIGHTNESS FOUND: " MAX-PIXEL.
           DISPLAY "LOCATED AT X: " MAX-X " Y: " MAX-Y.
           CLOSE OUTPUT-FILE.
           STOP RUN.