RCLRSC Verständnisproblem

[emax]

Die Anweisung FREE gibt das aufgerufene Programm frei und schließt auch alle Dateien dieses Programmes.

Aus dem RPG-Handbuch, FREE Opcode, IBM c0918170, Seite 259:

"The FREE operation removes a program from the list of activated programs, frees static storage, and ensures program initialization (first cycle processing) the next
time the program is called. It does not close files or unlock data areas.

[Fuerchau]

Ich glaube auch die IBM weiß nicht was da läuft.
"removes a program from the list of activated programs"

Wenn also das Programm deaktiviert ist, versucht es beim nächsten Aufruf auch wieder die Open, die dann auf die nase fallen würden.
Aber ich probier das einfach mal aus .

[emax]

Tja die IBM Doku ist zwar sehr umfangreich, aber in vielen Fällen schlicht 'fuzzi'. Ich konnte eine Menge Dinge im Projekt nur aufgrund meiner Berufserfahrung designen, erklären konnte ich es den Kollegen nicht: "Das war schon immer so"

Ich nehme an, dass die offenen Dateien für ODPs sind, also gemeinsame File Pointer. Aber siehe oben: 'ich nehme an' ;-)

Danke fürs Probieren!

[Fuerchau]

ODPS gelten für tatsächlich gemeinsame Open (SHARE *YES), die man naturgemäß vermeiden sollte.
Einzig SQL verwaltet diese ODP's meistens korrekt.
Ein Notclose (FREE/RCLRSC) zählt dann halt die Anzahl Open zurück und schließt den ODP wenn der Zähler auf 0 geht und killt Locks.

Ressourcen, die auf anderem Wege gehalten werden (z.B. C-Funktionen open() oder ähnliches) sind davon leider nicht betroffen. Die schafft mit unter auch nicht der RCLRSC. Diese weden erst bei Auflösung der ACTGRP freigegeben, was bei der Default-ACTGRP leider erst bei Jobende möglich ist.