      * https://stackoverflow.com/a/65341247/18595765
        IDENTIFICATION DIVISION.
        PROGRAM-ID. AGECONV.

        DATA DIVISION.
        WORKING-STORAGE SECTION.
        01  WS-CURRENT-DATE-DATA.
            05  WS-CURRENT-DATE.
                10  WS-CURRENT-YEAR         PIC 9(04).
                10  WS-CURRENT-MONTH        PIC 9(02).
                10  WS-CURRENT-DAY          PIC 9(02).
            05  WS-CURRENT-TIME.
                10  WS-CURRENT-HOURS        PIC 9(02).
                10  WS-CURRENT-MINUTE       PIC 9(02).
                10  WS-CURRENT-SECOND       PIC 9(02).
                10  WS-CURRENT-CENTISECONDS PIC 9(02). *> Centisecondes !

        01  YEAR-OF-BIRTH                   PIC 9(04).

        PROCEDURE DIVISION.
            MOVE FUNCTION CURRENT-DATE TO WS-CURRENT-DATE-DATA.
            DISPLAY WS-CURRENT-YEAR.
            
            SUBTRACT 22 FROM WS-CURRENT-YEAR GIVING YEAR-OF-BIRTH.
            DISPLAY YEAR-OF-BIRTH.
