Datum in RPGIII

[seth]

Hallo zusammen!

Folgendes Problem:
In einer DDS-Maske wird ein Datum eingegeben. (Bsp 18.10.2004)
Jetzt soll in einer Schleife das Datum immer um 1 erhöht werden.

Jetzt die Frage: Geht das überhaupt so einfach? Und wenn ja wie??


(Zur näheren Erläuterung:
es wird ein Von- und ein Bis-Datum eingegeben. Eine Schleife soll so lange laufen bis das Bis-Datum erreicht ist)

Schonmal danke im Vorraus.

(Bin erst seit 6 Wochen dabei, also noch blutiger Anfänger )

[Fuerchau]

Mit RPGIII hast du da eher schlechte Karten.
Ab RPGIV/RPGLE gehts da schon etwas einfacher.

Definiere das Datum als Feldtyp "L".

Mittels
ADDDUR 1:*DAY MYDATE
wird dann 1 Tag hinzuaddiert.

[seth]

Hmm, leider müsst ich es nur irgendwie in RPGIII hinkriegen.

[mk]

Vieleicht hilft ein kleiner Trick.
Du könntest Dir ein CL erstellen das das Datum in ein julijanisches Format umwandelt. Damit kann man das von und bis Datum vergleichen
und die Schleife solange ausführen bis das bis Datum errreicht ist.

Gruss Michael

[Fuerchau]

Dann benötigst du halt eine einfache Schleife:

Addiere 1 auf den Tag.
Wenn Tag > Anz.Tage des Monats (Schaltjahr berücksichtigen), dann addiere 1 auf den Monat und setze Tag wieder auf 1.
Wenn Monat > 12, dann addiere 1 aufs Jahr und setze Monat wieder auf 1.

So haben wir das früher mal programmiert.

[seth]

vielen Dank für die Hilfe.
Ich glaube ich hebs geschafft.