Frage Datumscheck

[Fuerchau]

Am besten mittel %date(mydate) in einer Monitor-Gruppe in ein Datum wandeln.
Gibts einen Fehler, ist das Datum ungültig.

[B.Hauser]

Wenn's nur darum geht, ob in einem numerischen Feld ein gültiges Datum steht, würde ich TEST(D) vorziehen:

 /Free
    Test(DE) *EUR MyDate;
    If %Error;
       //Ungültiges Datum
    Endif;
 /End-Free 

Im Faktor 1 muss das Format, sofern es sich nicht um das ISO-Format (JJJJMMDD) handelt angegeben werden. In Deinem Fall ist das Datum mit 4-stelligem Jahr im Format TTMMJJJJ angegeben, also im *EUR (europäischen Format).

Das Format muss übrigens auch bei der Built-In-Funktion %Date(MyDateNum: *EUR) angegeben werden, sonst wird auf *ISO geprüft.

Birgitta

[prsbrc]

Guten Morgen!
Also ich benutze gerne den CL-CMD CVTDAT. Dieser gibt dir auch einen Fehler zurück wenn es sich um ein ungültiges Datum handelt.

Convert Date (CVTDAT)

[Fuerchau]

Aus RPG heraus aber auch nicht einfach zu verwenden

[prsbrc]

Ich hab mir ein CLP gebastelt. Da ich die Datumskonvertierung von YYYYMMDD auf YYYY.MM.DD öfters brauche.
Dieses CLP rufe ich mit den notwenigen Paramtern aus einem RPG auf.
Fehler fang ich mit dem altbewährten MONMSG ab und gib dann einen Fehlerflag an das RPG zurück .

[CaddyMajor]

Vielen Dank für die vielen Tipps.

Problem gelöst :-)