PGM PARM(&DATD &DATR)   /* CONVERSION DATE          CPP CMD1         */
DCL &DATD *CHAR 6       /* DATE DE DEPART                            */
DCL &DATR *CHAR 6       /* DATE DE FIN                               */
             CVTDAT     DATE(&DATD)                                  +
                        TOVAR(&DATR)                                 +
                        FROMFMT(*YMD)                                +
                        TOFMT(*DMY)                                  +
                        TOSEP(*NONE)
             MONMSG     MSGID(CPF0500) EXEC(DO)
               CHGVAR     VAR(&DATR)                                 +
                          VALUE('ERREUR')
             ENDDO
ENDPGM