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
Bookmarks