Ach Datum, wie wäre das schön ...

[kitvb1]

You could also write your own little service program to convert from one format and output in another format including specifying the output Trennzeichen and upper/lower case.
This allows you to create any format you want. You can do this using CEEDAYS and CEEDATE :

 
// RtnIndPR Processing                                         
Select;                                                        
  // Incoming format *CYMD                                     
  when InFormatPR = 1;                                         
       ISOdate = %date(InDatePR :*cymd);                       
ENDsl;                                                         
                                                               
monitor;                                                       
  CEEDAYS(%char(ISOdate :*iso) :CEEinFmtTxt :lilian  :*OMIT);  
  on-error;                                                    
    RtnIndPR = 'EE';                                           
    OutDatePR = %char(ISOdate);                                
endmon;                                                        

if RtnIndPR <> 'EE';                                         
Select;                                                 
      // Outgoing format 'DD-Mmm-YYYY'                      
      when OutFormatPR = 1;                                 
           CEEoutFmtTxt = 'DD-Mmm-YYYY';                    
    ENDsl;                                                  
                                                            
    monitor;                                                
    CEEDATE(lilian :CEEoutFmtTxt :OutDatePR :*OMIT);        
      on-error;                                             
        RtnIndPR = 'EE';                                    
        OutDatePR =  %char(ISOdate);                        
    endmon;                                                 
 ENDIF;