/*   CONVERSION DATE                                                 */
/*   ESSAI AVEC UTILISATION VARIABLE DE RETOURS RNTVAL(*YES)         */
/*   ATTENTION UTILISATION EN PGM CL UNIQUEMENT                      */
/*   CRTCMD ------- ALLOW(*IPGM *BPGM)                               */
             CMD        PROMPT('conversion date')
             PARM       KWD(DATDEBUT) TYPE(*CHAR) LEN(06) +
                          PROMPT('date a convertir')
             PARM       KWD(DATRETOUR) TYPE(*CHAR) LEN(06) +
                          RTNVAL(*YES) PROMPT('date convertie')