      IDENTIFICATION DIVISION.
      PROGRAM-ID. 085A.
      DATA DIVISION.
      WORKING-STORAGE SECTION.
      01 S.
      	03 S-Y PIC X(4).
      	03 S-1 PIC X(1).
      	03 S-M PIC X(2).
      	03 S-2 PIC X(1).
      	03 S-D PIC X(2).
       
      PROCEDURE DIVISION.
      ACCEPT S.
      MOVE "2018" TO S-Y.
      DISPLAY S.
      STOP RUN.