PROGRAM-ID. DAY-OF-WEEK.
       
       CONFIGURATION SECTION.
       REPOSITORY.
           CLASS LocalDate AS "java.time.LocalDate"
           CLASS DayOfWeek AS "java.time.DayOfWeek"
           . 

       WORKING-STORAGE SECTION.
       77 w-LocalDate object reference LocalDate.
       77 w-DayOfWeek object reference DayOfWeek.
       77 ws-date pic 9(8).
       01 ws-date-formated redefines ws-date.
           05 ws-yyyy pic x(4).
           05 ws-mm   pic x(2).
           05 ws-dd   pic x(2).
       
       PROCEDURE DIVISION chaining ws-date.

       MAIN.
      *Put the passed date into the correct format using LocalDate  
           SET w-LocalDate TO LocalDate:>of(ws-yyyy, ws-mm, ws-dd)
      *Get the day of the week by passing the LocalDate value to DayOfWeek
           SET w-DayOfWeek TO w-LocalDate:>getDayOfWeek
      *Display the date
           display w-DayOfWeek.
           GOBACK.