*date ; %date()

[B.Hauser]

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

[Pikachu]

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]

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

[Pikachu]

Warum eigentlich überhaupt immer noch RPG und COBOL? Gibt's denn da inzwischen nix "moderneres"?

[Fuerchau]

Ja klar:
C++
.NET
Java
PHP
Delphi
u.v.m.

Mach mal eine Anfrage bei der IBM ab wann z.B. .NET oder Delphi auf der AS/400 verfügbar wird.

Java geht ja schon.
Schreibe da aber mal ein kommerzielle Anwendung, die keine Rechenprobleme mit Nachkomma's hat (Double-Werte).

Nicht umsonst gibts da manchmal so Programmierhinweise, dass

if (MyField == 0.3)

nie zum positiven Erfolg führen wird.

Ich kenne auch keine Programmiersprache (ausser RPG), die Dezimalzahlen mit Packed(31,n), und nun neu mit ILERPG Packed(63,n) unterstützt.

Maximal gibts da den Typ Currency mit 28 Stellen, wobei dieser nur max. 4 Nachkomma haben kann.

Double hat nur 17stellige Genauhigkeit, wobei es eben in den NK's (2^1/n) immer zu problemen kommt.