        IDENTIFICATION DIVISION.
        PROGRAM-ID. Example.
        DATA DIVISION.
        WORKING-STORAGE SECTION.
        01 curr-date.
           03 year      pic 9(4).
           03 month     pic 9(2).
           03 ws-day    pic 9(2).
        PROCEDURE DIVISION.
           MOVE FUNCTION CURRENT-DATE TO curr-date
           DISPLAY year.
           STOP RUN.
