IDENTIFICATION DIVISION.
        PROGRAM-ID. connection.

       ENVIRONMENT DIVISION.
        Input-output section.
         file-control.

          select parameterfile
           assign to "parbest.txt"
           organization is line sequential
           access mode is sequential.

          select logfile assign to "logfile.txt"
           organization is sequential
           access mode is sequential.

       DATA DIVISION.
        File section.
         FD logfile.
      *    linage 60
      *    with footing at 56
      *    lines at bottom 3.
      *    linage mag gebruikt worden in UC 2, maar is hier niet nodig.
         01 logMessage   pic x(100).

        FD parameterfile.
         01 viewingRecord.
          88 end-file    value high-values.
          02 readline    pic x(1000).


        EXEC SQL BEGIN DECLARE SECTION END-EXEC
          77 SQLCODE     pic S9(3).
          77 SQLSTATE    pic x(5).
        EXEC SQL END DECLARE SECTION END-EXEC
      * SQLCODE is 0 for success, 100 for no data, -1 for failure
        01 SQLCODE       pic S9(3).
      * SQLSTATE is a 5 character communication code; 00xxx is success.
        01 SQLSTATE      pic x(5).


        Working-storage section.
         01 endOfFile    pic x.
         01 inputString  pic x(255).
         01 email        pic x(100).
         01 name         pic x(50).
         01 firstName    pic x(50).
         01 pass         pic x(100).


       PROCEDURE DIVISION.
        Pgm.
         open output logfile
         open input parameterfile
      *  Initial read of parameterfile
         read parameterfile next at end
          move high-values to viewingRecord
          perform LOG-EMPTYFILE
          perform EXITPROGRAM
         end-read.
         move readline to inputString
      *  Test read string
         display inputString

         perform CONNECT
         if SQLCODE = 0
          perform LOG-CONNECTION
      *   Read email, name, firstName & pass
          perform READPARAMETERFILE
          unstring readline delimited by " " into
           email name firstName pass
          end-unstring
      *   Read & execute SQL instructions
          perform until end-file
           perform READPARAMETERFILE
           move readline to inputString
           EXEC SQL
            EXECUTE IMMEDIATE :inputString
           END-EXEC
          end-perform
          EXEC SQL
           COMMIT
          END-EXEC
          EXEC SQL
           DISCONNECT
          END-EXEC
         else
      *   TODO: Specifieke fouten loggen.
          perform LOG-CONNECTIONERROR
         end-if.

        perform EXITPROGRAM.

      * PROCEDURES
        READPARAMETERFILE.
         read parameterfile next at end
          move high-values to viewingRecord
          perform LOG-ENDOFFILE
         end-read.

        CONNECT.
         EXEC SQL
          CONNECT TO :inputString
          DRIVER "com.microsoft.sqlserver.jdbc.SQLServerDriver"
         END-EXEC.

        EXITPROGRAM.
         close logfile
         close parameterfile
         exit program.


      * LOG PROCEDURES
        LOG-EMPTYFILE.
         move "ERROR FILE      : Read file is empty" to logMessage
         write logMessage.

        LOG-CONNECTION.
         move "STATUS DATABASE : Connection was made" to logMessage
         write logMessage
         move "STATUS FILE     : Parameterfile is being read.."
          to logMessage
         write logMessage.

        LOG-CONNECTIONERROR.
         move "ERROR DATABASE  : Connection could not be made."
          to logMessage
         write logMessage.

        LOG-ENDOFFILE.
         move "STATUS FILE     : End of file." to logMessage
         write logMessage.