View Full Version : *date ; %date()
Moin zusammen,
wir haben bei uns im Hause einen RPG- Entwickler der sich nicht an WDSC und free- RPG gewöhnen will - aber das nur zur Vorgeschichte.
Wir haben nun seit einigen Tagen einen Nachtlauf der, der immer um 00:00 abschmiert, wenn die Programme im nicht free- Format laufen. Fehlermeldung ist "Datums- oder Zeitmarkenwert ungültig" Der Abbruch tritt auf beim "Eval *date tagesdatum" .
Benutzt man nun "tagesdatum = %date()" läuft alles durch.
Hatte jmd. von euch schonmal so ein Problem?
hab nen Thread gefunden, der meine Frage beantwortet... Trotzdem danke und sorry :)
Eigentlich bezeichnet *date das Jobdatum und sollte nicht verändert werden !
Ggf. ist *date unter Schreibschutz und wird ignoriert wenn der selbe Wert zugewiesen werden soll, ansonsten gibts eben die Fehlermeldung.
Man kann auch im Nichtfree mit "eval tagesdatum = %date()" arbeiten.
Nicht nur, dass *DATE das Job-Datum ist, *Date liefert auch einen numerischen Wert zurück und zwar im Datumsformat des Jobs (wahrscheinlich *DMY).
Wird jetzt *DATE über einen MOVE (ohne Angabe des Faktor1) in ein Datumsfeld ausgegeben, geht die Konvertierung davon aus, dass das *Date-Datum im Format ISO ist. (Deshalb auch die Fehlermeldung "Datums- oder Zeitmarkenwert ungültig".) Würde im Faktor 1 das Job-Format z.B. *DMY stehen, würde das Programm auch nicht abbrechen.
Das Äquivalent, um das System-Datum zu ermitteln im klassischen Format ist der OpCode TIME. Die Ausgabe kann auch direkt in ein Datums-Feld erfolgen.
wir haben bei uns im Hause einen RPG- Entwickler der sich nicht an WDSC und free- RPG gewöhnen will - aber das nur zur Vorgeschichte.
... Du bist übrigens nicht der einzige, der mit solchen Mitarbeitern zu kämpfen hat.
Ich habe gerade ein nagelneues Programm gesehen, in dem noch nicht einmal ein einziger EVAL (von Free-Format ganz zu schweigen) verwendet wurde. Ja noch nicht einmal Z-ADD wird eingesetzt, da alle Felder unabhängig vom Datentyp nur mit MOVE oder MOVELs hin- und her geschoben werden.
Um die aktuelle Zeit alphanumerisch im Format JJMMTT auszugeben, werden sage und schreibe 1xTIME und 6xMOVE verwendet.
Um ein Binär-Feld in ein Integer-Feld umzuladen werden 2 MOVEs und 1 Hilfsfeld benötigt!
Wenn ich genügend Zeit hätte, würde ich das Ding so wie es ist in die Tonne treten und neu schreiben.
Birgitta
Aber wer hat schon die Zeit.
Es reicht doch schon sich mit diesem Unsinn herumzuschlagen (und ggf. auch noch Fehler zu suchen).
... Du bist übrigens nicht der einzige, der mit solchen Mitarbeitern zu kämpfen hat.
Ich habe gerade ein nagelneues Programm gesehen, in dem noch nicht einmal ein einziger EVAL (von Free-Format ganz zu schweigen) verwendet wurde. ...
Ein RPG-Programm ohne nur einen einzigen EVAL-Befehl? Und sogar noch ohne free-Format? Ist sowas denn heutzutage überhaupt noch erlaubt? ;)
für das Museum schon
Oder um Leute, die noch nicht so lange dabei sind, zu verwirren
Gruß Ronald
Ein RPG-Programm ohne nur einen einzigen EVAL-Befehl? Und sogar noch ohne free-Format? Ist sowas denn heutzutage überhaupt noch erlaubt? ;)
Theoretisch nicht!
und praktisch eigentlich auch nicht!
Aber solange es Programmierer gibt, die sich seit 30 Jahren keinen Zentimeter weiter bewegt haben (und auch nicht mussten) und
solange es Projektleiter gibt die sagen: "Mir egal wie der Source Code aussieht, Hauptsach' des Ding tut was es tun soll" (wenn es das denn mal auch täte!)
...
Birgitta
Dann liegt das aber auch mit an IBM! Die müßten einfach einmal alle alten Befehle (für die man auch EVALs nehmen kann) aus RPG herauswerfen und das fixed-Format verbieten. ;)
RobertMack
04-07-08, 08:32
Dann liegt das aber auch mit an IBM! Die müßten einfach einmal alle alten Befehle (für die man auch EVALs nehmen kann) aus RPG herauswerfen und das fixed-Format verbieten. ;)
... dann gäbe es unsere geliebte AS/400 wohl nicht mehr. Ein wesentlicher Teil des immer noch anhaltenden Erfolgs ist die Tatsache, dass selbst älteste Software (Investition!) immer noch läuft!
Grüße,
Robert