Call aus RPGIV Freiformat in RPG400

[BenderD]

value (keyword beim Parameter in PR und PI) geht nur bei Procedure Aufrufen.
bei Programmen (was du hier brauchst) geht nur CONST und das auch nur, wenn da nix geändert zurück kommt.
In beiden Fällen kann man Literale und Ausdrücke als Parameter verwenden, der Compiler prüft dann Typ Verträglichkeit beim Aufruf gegen den Prototyp und konvertiert implizit.

D*B

Meintest du anstatt
Firma = 1 / immer 1 im Format 3S0
callp PGMName (Firma : TNr);

dann nur noch
callp PGMName (1 : TNr);

so dass ich mir die fixen Feldfüllungen sparen kann??