Prozeduren

[_MG_]

Hallo Fuerchau,

danke für die Antwort. Super, das man auch Hilfe erhält wenn es nicht um ein klassisches Problem geht.
Was ich mich frage, werden diese Prozeduren verwendet wie Methoden in Java. Ich versuche da ein Bezug herzustellen (evtl. ist das gar nicht so gut oder macht keinen Sinn??)).

Würde denn grundsätzlich folgendes gehen oder macht die Verwendung so Sinn (dirty Beispielcode):
main(start)
DCL-PROC start1;
name = 'testname';
write tt;
close TESTFILE;
END-PROC;
DCL-PROC start;
start1();
END-PROC;

--> Sprich: Prozeduren rufen andere Prozeduren auf (Programm intern), unabhängig ob ein Wert mit return zurückgegeben wird oder nicht.
In so einem Beispiel habe ich dann auch folgendes Problem, dadurch das ich die Datei schließe läuft es bei erneutem ausführen auf Fehler "Datei geschlossen".
Lasse ich das weg, kommt beim umwandeln die Warnung das die Datei geschlossen werden soll und der Job behält die Datei in Zugriff.

--> ISt das evtl. ein Beispiel wofür man Prozeduren auf keinen Fall nutzen sollte?

[dschroeder]

Meiner Meinung nach machen Prozeduren fast immer Sinn! Man muss nur wissen, wie sie sich verhalten. Deklarationen, die innerhalb von Prozeduren vorgenommen werden, sind lokal. Das heißt, wenn du innerhalb einer Procedure eine Datei deklarierst und öffnest, steht diese Datei nur lokal zur Verfügung. Eine andere Procedure kann diese Datei nicht nutzen. Sie müsste sie dann schon selber öffnen.

Du kannst eine Datei natürlich außerhalb der Procedure (also im globalen Bereich) öffnen. Dann steht sie allen Prozeduren zur Verfügung.

Dieter

[Fuerchau]

Mit "außerhalb" sind F- und D-Bestimmungen vor der ersten Prozedur gemeint.
Diese Definitionen gelten dann als Global.

Wenn du also eine F-Bestimmung am Anfang hast wird diese automatisch geöffnet (außer eben bei USROPN).
Wenn du dann einen Close kodierst, kannst du nicht erwarten, dass die Datei der nächsten Prozedur wieder zur Verfügung steht.

Du kannst natürlich auch zwischen DCL-PROC und END-PROC Dateibestimmungen definieren. Diese sind dann lokal.

Und AutoOpen-Dateien bleiben natürlich offen, wenn du am Ende *INLR auf *OFF belässt.
Um das automatisch zu verhindern, dann musst du eine MAIN-Prozedur erstellen:
https://www.ibm.com/support/knowledg...sd/hmainkw.htm
Die hat dann keinen Zyklus und INLR wirkt nicht mehr.

[_MG_]

Danke euch beiden, das hat mir für mein Verständnis sehr geholfen!!!
Eine Frage noch. Sobald ich die f bestimmung innnerhalb der Prozedur mache, bekomme ich beim kompilieren die Meldung das eine Ergebnisdatenstruktur benötigt wird und der Name der Variable nicht definiert ist. Gibt es an der Stelle auch noch was zu beachten?

Schönen Abend!

[prsbrc]

GM!
Schau dir auf Simon Hutchinsons Blog mal die beiden Blogs an.
Dort zeigt er recht anschaulich die Lösung deines Problems denn du musst wenn du die Tabelle lokal definierst eine DS angeben in welche du den Buffer liest.

http://www.rpgpgm.com/2016/03/defini...rocedures.html
http://www.rpgpgm.com/2016/03/defini...es-part-2.html

Oder auf meiner Git-Seite habe ich auch ein kleines Beispiel dazu:
https://github.com/prsbrc/Miscellane...Def_Proc.rpgle

Greets

[_MG_]

Danke euch allen! Hat mir sehr geholfen.