Dynamischer Call per Prototype

[dschroeder]

Hallo zusammen,

im Nicht-Fully-Free RPG konnte ich Programme ja aufrufen, indem ich den Programmnamen beim Call als Variable mitgegeben habe.

Ich würde so etwas gerne im fully free machen. Da brauche ich aber einen Prototyp. Kann ich den auch irgendwie variabel gestalten?

Die unterschiedlichen Programme, die ich aufrufen möchte, haben selbstverständlich alle die gleiche Parameterliste.

Ein Aufruf per QCMDEXC hilft mir wahrscheinlich nicht, da ich dann ja keine Rückgaben aus der Parameterliste empfangen könnte.

Bisher habe ich das Problem immer umschifft, indem ich ein Nicht-Fully-Free Programm als Adapter in meiner Call-Kette drin hatte. Das finde ich aber nicht sehr elegant.

Gruß, Dieter

[Fuerchau]

Das geht da genauso:

EXTPGM{(name)}
The EXTPGM keyword indicates that the prototype represents a dynamic call to a program.
The parameter specifies the external name of the program whose prototype is being defined. The name
can be a character constant or a character variable.

Somit kannst du zur Laufzeit beliebige Programme aufrufen, die dieselben Parameter haben.
Parameter werden allerdings immer per reference übergeben. Wenn du einen Parameter als const definierst, hindert das das aufrufende Programm nicht, es zu ändern (wenn es ohne DCL-PI definiert ist).

Allerdings entscheidet die Variablendeklaration des Rufers und des Gerufenen, wie der Inhalt zu interpretieren ist.
D.h. wenn der Rufer char(10), der Gerufene char(20) hat, kann er 20 Zeichen verarbeiten, auch wenn er Schrott enthält.
Umgedreht, der Rufer char(20), der Gerufene char(10), kommt der nur an 10 Stellen dran.
Aber das war sschon immer so, und sollte eben durch DCL-PR/DCL-PI weitgehend vermieden werden können.

Du kannst zusätzlich auch options(*omit:*nopass) zulassen, um die Parameter variabel zu gestalten.

Ein sauberer Programmierstil ist das allerdings nicht.

Wenn du die Variable änderst, ändert sich auch der interne Programmpointer beim nächsten Call. Allerdings verhindert dies nicht, dass das Programm im Speicher verbleibt.
Beim nächsten Aufruf des vorherigen Programmes kann es dann zu Unschönheiten kommen, da ggf. der Initial-Aufruf (automatische Open von Dateien, Variablen initialisierungen) nicht erfolgt, was zu weiteren Problemen führen kann.

Im Gegensatz zu RPGIV gibts den Free-Befehl nicht mehr, der ein Programm tatsächlich entlädt und beim nächsten Aufruf wieder neu aufruft und somit der Init durchlaufen wird.

Im DCL-PR für Prozeduren kann man übrigens Prozedur-Pointer Variablen statt Namen verwenden und somit auch dies dynamisieren.

[dschroeder]

Vielen Dank, Baldur!
Genau die Erklärung mit dem EXTPGM habe ich gesucht!. Ich war mir irgendwie sicher, dass es gehen würde, habe die Syntax aber nicht mehr gefunden. Ich war dann verunsichert, als ChatGpt mir sagte, dass das nicht gehen würde.

Aber da dachte ich: Bevor ich der KI glaube, frage ich lieber mal im Forum nach!

Herzlichen Dank!

[Fuerchau]

ChatGPT weiß eben doch nicht alles. Ich habe mal nachfragen lassen, aber ich bin da vollkommen unbekannt;-). Das muss jetzt kein Nachteil sein.

[BenderD]

ChatGPT weiß eben doch nicht alles. Ich habe mal nachfragen lassen, aber ich bin da vollkommen unbekannt;-). Das muss jetzt kein Nachteil sein.

... mir macht das Angst, dass KI die Menschen überholt. Aber nicht weil das Blech schlauer wird.

D*B

[Fuerchau]

Nicht nur das Überholen, sondern das sich ständig auf KI verlassende Verhalten.
Das Einzige was mich an KI freut, ist das autonome Fahren.
Dann hören auch die ständigen Streiks auf, da man die Fahrer sowieso nicht mehr braucht.

Ein Kabarettist erzählt letztens:

Als in Deutschland die Todesstrafe abgeschafft werden sollte, streikten die Henker.