Eigene Character-Funktionen

[andreaspr@aon.at]

Hallo,
Für genau diese Situation gibt es in RPG ab 7.1 das Schlüsselwort RTNPARM bei der Procedurdefinition:

D getFileData     pr    a     varying len(1000000)
D                             rtnparm
D file                  a     const varying len(500)

/free
  data = getFileData ('/home/mydir/myfile.txt');

[B.Hauser]

... aber Vorsicht!
Der Aufruf mit Rückgabe-Wert funktioniert nur beim Aufruf aus RPG.
Beim Aufruf aus anderen Programmiersprachen muss der Rückgabe-Wert über den ersten Parameter abgehandelt werden.

Birgitta

[Fuerchau]

Das Problem mit dem Speicher beginnt ja schon beim Übergabeparameter.
Wenn dieser CONST ist, legt der Compiler ja automatisch eine Kopie in der Größe an.
Aber ohne CONST kann ich keine dynamische Übergabe kodieren:
MyFunc(Var1);
MyFunc('Text');
Problematisch wirds dann noch bei Rekursion und geschachtelten Funktionen.
Bifs sind intern wohl etwas anders kodiert.

Dynamisch geht es eigentlich nur per Pointer.
Allerdings muss die Aufrufkonvention genau eingehalten werden.

Beschränke dich doch einfach auf max. 32K-Variablen, das reicht in 99,999% aller Fälle.

[B.Hauser]

Bei VALUE wir immer eine Kopie erstellt.
Bei CONST nur dann, wenn die Parameter-Definition (Aufruf/Prototyp) abweichend ist. Es wird immer ein Pointer (entweder auf das Original-Feld oder die Kopie übergeben.

Birgitta

[Fuerchau]

CONST erzwingt ebenso eine Kopie, damit die aufgerufene Funktion den Speicher nicht ändern kann.
Dies ist Sinn und Zweck von CONST.
VALUE arbeitet (fast) genauso, nur dass scalare Datentypen nicht kopiert werden sondern direkt im Stack abgelegt werden (CLLE-Problem).
Bei Zeichenvariablen wird der Inhalt kopiert und ein Pointer im Stack abgelegt.
Die Kopie benötigt dann halt den Platz.