      * https://www.ibm.com/docs/en/cobol-zos/6.5.0?topic=functions-current-date
       IDENTIFICATION DIVISION.
       PROGRAM-ID. EXAMPLE.
       
       DATA DIVISION.
       WORKING-STORAGE SECTION. 
       01 WS-CURRENT-DATE PIC X(21).
       01 WS-YEAR PIC X(4).
       PROCEDURE DIVISION.
           MOVE FUNCTION CURRENT-DATE TO WS-CURRENT-DATE.
           DISPLAY WS-CURRENT-DATE.
           MOVE FUNCTION CURRENT-DATE TO WS-YEAR.
           DISPLAY WS-YEAR.
           MOVE FUNCTION CURRENT-DATE (1:4) TO WS-YEAR.
           DISPLAY WS-YEAR.
