rpg-bif test(de) zum Datum-Testen

[wilfried]

Hallo,
die builtin-function "test(de)" soll eine char-variable auf richtiges Datum testen.

Das ist mein Code:

test(de) *iso0 DATUM ;
if %Error ;
OK = 'N' ;
else ;
OK = 'J' ;
endif ;

Warum kommt kein Error, wenn DATUM der Wert "2018015 " hat? (also in der 8. stelle ein Blank).

DAnke.

[Fuerchau]

Mach doch mal ein %date(DATUM:*iso0) um zu sehen, was dabei rauskommt.
Laut Doku werden Leerzeichen am Ende ignoriert, es könnte also der 5.1.2018 dabei rauskommen.

Ich habe mir da eh angewöhnt, in einer Monitor-Gruppe %date() zu verwenden, da in 1 von >1Mio Fälle vielleicht ein ungültiges Datum kommt.

[prsbrc]

Tatsächlich. Bei mir kommt dabei das Datum 2018-01-05 raus.
Das System nimmt wohl die letzte(n) Ziffer(n) egal ob 2-Stellig oder 1-Stellig als Tag.

[wilfried]

... du hast wohl gemeint, das System nimmt die letzen beiden Stellen immer "rechtsbündig" als Tag.
Aus "5 " wird dann " 5" und damit der Tag 5.

:-)

[prsbrc]

Guten Morgen.Ja stimmt. Sorry, hab mich da verschrieben :-)