dann ist euer Systemdatum auf der AS400 falsch eingestellt !

nachfolgender Code stimmt definitiv:

Code:
 
 H DECEDIT('0,') DATEDIT(*DMY.)                            
 D   aktdat        S               D                       
 d MyDay           S              3S 0                     
  *                                                        
 C                   time                    aktdat        
  *                                                        
 C/exec sql set :MyDay = DAYOFWEEK(:aktdat)                
 C/end-exec                                                
  *                                                        
  *                                                        
 C                   EVAL      *INLR = *ON                 
 ******************Datenende ******************************
Inhalt von Myday nach Aufruf ist = 4

Gruß
Maxx