Du kannst die beiden Felder auch rein numerisch (Workaround)
vergleichen. Im anderen Fall (Char-variante) prüft der Compiler
lediglich welche Werte ascii-mäßig größer oder kleiner sind. Und da
die 2 in der ASCII-Tabelle nach der 1 kommt, ist der Wert auch
größer-
Du definierst einfach folgendes
01 Datum-G.
05 Datum-Jahr.
10 Datum-JH PIC 99.
10 Datum-JJ PIC 99.
05 Datum-Monat PIC 99.
05 Datum-Tag PIC 99.
01 Num-Datum1 PIC 9(8).
01 Num-Datum2 PIC 9(8).
MOVE Tag TO Datum-Tag
MOVE Monat TO Datum-Monat
MOVE Jahr TO Datum-Jahr
* Ist nur beim ersten Datum wichtig, funktioniert aber auch wenn
* beide Daten über die oben definierte Struktur in die Variablen
* Num-Datum1 und Num-Datum2 konvertiert werden
IF Datum-JJ [Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]