IDENTIFICATION DIVISION.
PROGRAM-ID. UTILISATION-FILLER.

DATA DIVISION.
WORKING-STORAGE SECTION.
01  D.
    03  ANNEE       PIC 9(4).
    03  MOIS        PIC 9(2).
    03  JOUR        PIC 9(2).
    03  FILLER      PIC X(13).   *> pour ignorer heure + offset

01  DATE-FORMATTEE  PIC X(10) VALUE SPACES.

PROCEDURE DIVISION.
    MOVE FUNCTION CURRENT-DATE TO D

    STRING ANNEE "-" MOIS "-" JOUR
           DELIMITED BY SIZE
           INTO DATE-FORMATTEE
    END-STRING

    DISPLAY "Date du jour (AAAA-MM-JJ) : " DATE-FORMATTEE

    STOP RUN.