/*****************************************************************/
   /*                                                               */
   /*  ce pgm recoit une date (decimal 8 dt 0)                      */
   /*  retourne un libellé de date ( Jour, JJ Mois YY)              */
   /*                                                               */
   /*  Utilisation des API CEEDAYS (cvt char vers integer [lilian] )*/
   /*                      CEEDATE (integer vers CHAR              )*/
   /*                                                               */
   /*                                                               */
   /*****************************************************************/
 
             PGM        PARM(&DATE &DATCHAR)
             dcl        &date    *dec (8 0)
             dcl        &datc    *char 8
             dcl        &datchar *char 50
             dcl        &days    *int
             chgvar     &datc    &date
             CALLPRC    PRC(CEEDAYS) PARM(&DATC 'YYYYMMDD' &DAYS)
             CALLPRC    PRC(CEEDATE) PARM(&DAYS 'Wwwwwwwwwz, DD Mmm +
                          YY' &DATCHAR)
             endpgm