hallo marc,

muss es unbedingt in einer formel sein ??
sonst hier ein beispiel
Code:
d                 ds                                                                   
d zeit_datum                    12s 0                                                  
d zeit                    1      6s 0                                                  
d heute                   7     12s 0                                                  
d                                                                                      
d heute_iso       s              8a                                                    
d heute_iso_num   s              8s 0                                                  
d                                                                                      
d dat_tmj6        s               d   datfmt(*dmy)                                     
d dat_jmt6        s               d   datfmt(*ymd)                                     
d dat_tmj8        s               d   datfmt(*eur)                                     
d dat_jmt8        s               d   datfmt(*iso)                                     
                                                                                       
c                   time                    zeit_datum                                 
c                                                                                      
c                   move      heute         dat_tmj6                                   
c                   eval      dat_jmt8   =  dat_tmj6                                   
c                   move      dat_jmt8      heute_iso_num                              
c                   move      heute_iso_num heute_iso                                  
c                                                         
c                   eval      *inlr      =  *on
gruß ronald