Il faut utiliser conjointement deux API :

CEEDATE qui traduit une date lilienne en clair, et en français

DEEDAYS qui permet d'obtenir une date lilienne depuis une représentation alphanumérique.

Prototypes des API :

      // Convert Date to Lilian Format

     d CEEDAYS         PR                  ExtProc( 'CEEDAYS' ) OpDesc

     d   DateString                  32a   Const

     d   FormatString                32a   Const

     d   LilianDate                  10i 0

     d   Error                       12a   Options( *Omit )

      // Convert Lilian Date to Character Format

     d CEEDATE         pr                  ExtProc( 'CEEDATE' ) OpDesc

     d   LilianDate                  10i 0 Const

     d   FormatString                32a   Const

     d   DateString                  32a

     d   Error                       12a   Options( *Omit )

Utilisation :

        CEEDAYS( %char( %date() : *iso0 ) : 'YYYYMMDD' : WrkLilian : *omit );

        // Date sous la forme : Mercredi, 3 Mars 2010

        CEEDATE( WrkLilian : 'Wwwwwwwwwz, ZD Mmmmmmmmmz YYYY' :

                 wrkLibelle : *omit ) ;

        dsply wrkLibelle ;  // Exemple : Mercredi, 3 Mars 2010

Pour les formats possibles, ils sont nombreux, voir la doc IBM : http://publib.boulder.ibm.com/infocenter/iseries/v6r1m0/index.jsp?topic=/apis/CEEDATE.htm

  NB