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

[ExAzubi]

Das geht leider nicht, da *DMY *ISO etc Sonderwerte sind vom Quasityp Datumsformat ...

Das einzige was helfen würde wäre ein SELECT außenrum, mit dem du das Variable Format abfragst und das dann so umsetzt

SELECT 
WHEN ZZDATFMT = '*ISO'
var1 = %date(datvar:*ISO)
WHEN ZZDATFMT = '*EUR'
var1 = %date(datvar:*EUR)
...
ENDSELECT

[camouflage]

Danke, wäre ja fast zu schön gewesen. Hab mir's schon gedacht - aber fragen darf man ja.

Dann gibt es nur zwei Varianten:
a) fix
b) den Select in einem Serviceprogramm - geht auch.

[Fuerchau]

Dynamisches SQL geht auch:
dcl-s MySQL varchar(100);
dcl-s MyCharDate varchar(10);

MySQL = 'values(char(current date, iso)) into ?';
exec sql execute immediate : MySQL using : MyCharDate;

Andererseits: wofür brauchst du das?
Im Normalfall benötigt man das Datum statt in ISO in anderen Formaten doch nur für die Ausgabe.

[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;