      * 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-FIELDS.
            05  WS-CURRENT-DATE.
                10  WS-CURRENT-YEAR    PIC  9(4).
                10  WS-CURRENT-MONTH   PIC  9(2).
                10  WS-CURRENT-DAY     PIC  9(2).
            05  WS-CURRENT-TIME.
                10  WS-CURRENT-HOUR    PIC  9(2).
                10  WS-CURRENT-MINUTE  PIC  9(2).
                10  WS-CURRENT-SECOND  PIC  9(2).
                10  WS-CURRENT-CS      PIC  9(2). *> Centisecondes !
            05  WS-DIFF-FROM-GMT       PIC S9(4) SIGN IS LEADING
            SEPARATE.   
        
        PROCEDURE DIVISION.
            MOVE FUNCTION CURRENT-DATE TO WS-CURRENT-DATE-FIELDS
            DISPLAY WS-CURRENT-YEAR.
