IDENTIFICATION DIVISION.
PROGRAM-ID.  Dates1.
DATA DIVISION.
WORKING-STORAGE SECTION.
  THIS-DATE.
    05  THIS-YEAR             PIC XX.
    05  THIS-MONTH            PIC XX.
    05  THIS-DAY              PIC XX.

  THIS-TIME.
    05  THIS-HOUR             PIC 99.
    05  THIS-MINUTE           PIC XX.
    05  THIS-SECOND           PIC XX.
    05  THIS-SEC-FRACT        PIC XX.
  FORMAT-TIME.
    05  FORMAT-HOUR           PIC 99.
    05  FILLER                PIC X VALUE :.
    05  FORMAT-MINUTE         PIC XX.
    05                        PIC X VALUE :.
    05  FORMAT-SECOND         PIC XX.
    05  FILLER                PIC X VALUE ..
    05  FORMAT-SEC-FRACT      PIC XX.
    05  FORMAT-AM-PM          PIC XXX VALUE  AM.

  DAY-OF-YEAR-INFO.
    05  THIS-DAY-OF-YEAR.
        10  THIS-DOY-YEAR     PIC 99.
        10  THIS-DOY-DAY      PIC XXX.
    05  FORMAT-DAY-OF-YEAR.
        10  FORMAT-CENTURY    PIC XX VALUE 20.
        10  FORMAT-DOY-YEAR   PIC 99.
        10  FILLER            PIC X VALUE ..
        10  FORMAT-DOY-DAY    PIC XXX.

PROCEDURE DIVISION.
-MAIN.
    ACCEPT THIS-DATE        FROM DATE.
    ACCEPT THIS-TIME        FROM TIME.
    ACCEPT THIS-DAY-OF-YEAR FROM DAY.

    MOVE THIS-HOUR          TO FORMAT-HOUR.
    MOVE THIS-MINUTE        TO FORMAT-MINUTE.
    MOVE THIS-SECOND        TO FORMAT-SECOND.
    MOVE THIS-SEC-FRACT     TO FORMAT-SEC-FRACT.
    IF FORMAT-HOUR > 11
        MOVE  PM          TO FORMAT-AM-PM.
    IF FORMAT-HOUR = ZERO
        MOVE 12             TO FORMAT-HOUR.
    IF FORMAT-HOUR > 12
        SUBTRACT 12         FROM FORMAT-HOUR.

    MOVE THIS-DOY-YEAR      TO FORMAT-DOY-YEAR.
    MOVE THIS-DOY-DAY       TO FORMAT-DOY-DAY.
    IF FORMAT-DOY-YEAR > 90
        MOVE  19          TO FORMAT-CENTURY.

    DISPLAY TODAY IS  THIS-MONTH / THIS-DAY /
        THIS-YEAR   FORMAT-TIME.
    DISPLAY   (THE DAY OF YEAR IS: 
        FORMAT-DAY-OF-YEAR ).

STOP RUN.
