OPNQRYF in RPGLE

[JP]

Hallo Forum,

folgender grober Programmablauf:

OVRDBF FILE(Datei) SHARE(*YES) /per QCMDEXC
OPNQRYF...
OPEN Datei
Verarbeitung
CLOSE Datei
...

Nun meine Frage:
Warum funktioniert der CLOSE nicht?

CLOF per QCMDEXC tut was er soll

Vielen Dank im Voraus

Jörg

[Fuerchau]

Der Close funktioniert schon, wenn Du im OVRDBF nachsiehst, SHARE(*YES) bedeutet, dass jeder Open die bereits geöffnete Datei erneut öffnet (Verwendungszähler).
Der Close reduziert den Zähler, erst der letzte Close schließt die Datei.

Also:
OPNQRYF = 1. Open
RPG-Open = 2. Open
RPG-Close = 1. Close
CLOF = 2. Close

Nachzusehen mittels DSPJOB Auswahl 14, da kann man auch sehen, wie oft die Datei geöffnet ist (ggf. F10 drücken).