AndreasH
12-08-03, 15:51
Hallo Forum,
das folgende Miniprogramm liefert mir einen RNQ0103 Fehler (Empfängerwert zu klein)
H DATFMT(*ISO)
D Feld_1 S 8S 0 INZ(20030813)
D datum S D DATFMT(*ISO)
C EVAL Datum=%date(Feld_1:*YMD)
C eval *inlr = *on
Ich hab schon als Parameter 2 *CYMD ausprobiert, mit dem gleichen Ergebnis.
Ich mag nicht glauben, dass die %DATE() Funktion nur mit 6-stelligen Datumsfeldern umgehen kann.
Bei Kodierung von
H DATFMT(*ISO)
D Feld_1 S 8S 0 INZ(030813)
D datum S D DATFMT(*ISO)
C EVAL Datum=%date(Feld_1:*YMD)
C eval *inlr = *on
läuft es problemlos, aber ich muss auch Werte kleiner Jahr 2000 bearbeiten können
Was mach ich falsch??
danke für alle Antworten
das folgende Miniprogramm liefert mir einen RNQ0103 Fehler (Empfängerwert zu klein)
H DATFMT(*ISO)
D Feld_1 S 8S 0 INZ(20030813)
D datum S D DATFMT(*ISO)
C EVAL Datum=%date(Feld_1:*YMD)
C eval *inlr = *on
Ich hab schon als Parameter 2 *CYMD ausprobiert, mit dem gleichen Ergebnis.
Ich mag nicht glauben, dass die %DATE() Funktion nur mit 6-stelligen Datumsfeldern umgehen kann.
Bei Kodierung von
H DATFMT(*ISO)
D Feld_1 S 8S 0 INZ(030813)
D datum S D DATFMT(*ISO)
C EVAL Datum=%date(Feld_1:*YMD)
C eval *inlr = *on
läuft es problemlos, aber ich muss auch Werte kleiner Jahr 2000 bearbeiten können
Was mach ich falsch??
danke für alle Antworten