IDENTIFICATION DIVISION.
PROGRAM-ID. RENAME-SINGLE.

DATA DIVISION.
WORKING-STORAGE SECTION.
01 DATE-SYSTEME.
   05 ANNEE         PIC 9(4).
   05 MOIS          PIC 99.
   05 JOUR          PIC 99.

66 ANNEE-COURANTE RENAMES ANNEE.



PROCEDURE DIVISION.
DEBUT.
    MOVE 2026 TO ANNEE-COURANTE
    MOVE 12   TO MOIS
    MOVE 25   TO JOUR


    DISPLAY "Date systeme : " JOUR "/" MOIS "/" ANNEE-COURANTE

    STOP RUN.