       IDENTIFICATION DIVISION.
       PROGRAM-ID. HELLO.

       ENVIRONMENT DIVISION.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.

           SELECT STDIN ASSIGN TO KEYBOARD ORGANIZATION LINE SEQUENTIAL.


       DATA DIVISION.


       FILE SECTION.

           FD STDIN.
           01 LN PIC X(65535) USAGE DISPLAY.
             88 EOF VALUE HIGH-VALUES.

       WORKING-STORAGE SECTION.
       
           01 OUT PIC X(65535) USAGE DISPLAY.

       PROCEDURE DIVISION.

           INITIALIZE LN, OUT.

           MAIN-PROCEDURE.
               
             OPEN INPUT STDIN
             READ STDIN
               AT END SET EOF TO TRUE
             END-READ
             CLOSE STDIN
             
             MOVE LN TO OUT
             INSPECT OUT REPLACING
               FIRST "2017" BY "2018"

             DISPLAY OUT
             
             STOP RUN.

       END PROGRAM HELLO.
