Drucken Datum Monat in Buchstaben statt udate

[AndreasH]

Dafür gibts auch APIs

 *  API to parse a character date into lilian format 
D CEEDAYS         PR                  opdesc                      
D   char_date                   80A   const options(*varsize)     
D   date_format                 80A   const options(*varsize)     
D   lilian_date                 10I 0                             
D   feedback                    12A   options(*omit)              
                                                                  
 *                                                                
 *  API to create character date from lilian format               
 *                                                                
D CEEDATE         PR                  opdesc                      
D   lilian_date                 10I 0 const                       
D   date_format                 80A   const options(*varsize)     
D   char_date                   80A   options(*varsize)           
D   feedback                    12A   options(*omit)              
 * ZD = Tag, führende Null unterdrückt
 * Mmmz = Monat, erster Buchstabe groß, folgende Blanks  abgeschnitten
D fmt1            c                   'ZD. Mmmmmmmmmz YYYY' 
D mydate          s             50A      
D temp            s              8A      
D lil             s             10I 0    
D DateFld         s               D      
c                   eval      temp = %char(%date(): *EUR0)      
c                   callp     CEEDAYS(temp: iso: lil: *omit)    
c                   callp     CEEDATE(lil: fmt1: mydate: *omit) 
c                   dsply                   MyDate              
C                   eval      *inlr = *on 

Ergebniss dann 25. März 2004
Gruß