Frage zu RPGII

[Fuerchau]

Das musst du mir mal erklären, wie das funktionieren soll.
SHARE(*YES) führt dazu, dass ein 2. Open auf die geöffnete Datei geht und der Close nichts macht.
Das übergeordnete Programm will aber Close/Open machen.

[GJV23]

Das Programm bzw. die Programm stammen nicht von mir.
Sie sind aber bis vor ca. 10 Jahren gelaufen und haben auch funktioniert.
Ich kann auf meinem System leider keine S36-Programme mehr ausprobieren.

GJV23

[Fuerchau]

Wäre ja noch schöner, wenn ein Unterprogramm per CALL von mir geöffnete Dateien schließen könnte.
Das kann ich mir beim besten Willen nicht vorstellen.
immerhin bekommt man vom System einen File-Control-Block (FCB) beim Open, den man beim Schließen angibt. Ein 2.Close ist nicht möglich.

[hel400]

Leider hat sich der TO (AK1) ja nicht mehr dazu gemeldet, weil ich stelle mir nach wie vor die Frage, warum das "UC" nicht gehen sollte (siehe Beitrag #7).
Die Source ist auf einer AS/400 und da geht das doch in jeder RPG-Quelltype so ...(?)