Last Access Date unverändert lassen nach lesendem Dateizugriff (KLA)

(KLA)	Der Keep Last Access Modus wird durch das Kommando (KLA) eingeschaltet und ist bis zur Eingabe des Kommandos (KLA)OFF wirksam.

	Der KLA-Modus bewirkt:

	1)	Nach dem lesenden Dateizugriff durch die Variable Action ONXFIND, die User Option FIND, sowie durch den Action-Code D (Display) wird das alte Last Access Date wieder hergestellt.

	2)	Bei den Variablen Actions ONXCOPY, ONXMOVE, ONXREORG mit der Option KD (Keep Date) wird zusätzlich zum Change Date auch das alte Last Access Date der Eingabe- und Ausgabedatei wieder hergestellt.

	3)	Bei der Anzeige der Liste von Elementen einer PLAM-Bibliothek wird trotz des lesenden Zugriffs auf die Bibliothek das ursprüngliche Last Access Date beibehalten.

		Beim lesenden Zugriff auf einzelne PLAM-Elemente (Variable Action ONXFIND.., Action-Code D(isplay) ) wird auch für diese Elemente das ursprüngliche Last Access Date beibehalten.

	Das Kommando (KLA) ist eine spezielle Anwendung für die optionale Open-/Close-Exit Routine von CFS. Durch diesen Exit kann der Systemverwalter mit selbstgeschriebenen Routinen den Zugriff auf sensible Dateien verhindern bzw. kontrollieren.

	Aufrufkonventionen und Parameterliste des Open-/Close-Exits

	Die Adresse des Open-/Close-Exits ist in den Feldern YOPENAD/YCLOSEAD im Global-Bereich (Makro/DSECT GLOBAL) einzutragen (z.B. über CFSMAIN).

	Der Open- bzw. Close Exit wird von CFS jeweils vor und nach dem DVS-Makroaufruf OPEN/CLOSE angesprungen.

	Registerbelegung / Parameter:

		R1	Opcode.

			X'00000001': Exit-Aufruf vor der Ausführung des DVS-Makros.

			Close-Exit: Register R0 enthält die Adresse des noch geöffneten FCB.

			X'00000002': Exit-Aufruf nach der Ausführung des DVS-Makros.

			Open-Exit: Register R0 enthält die Adresse des geöffneten FCB.

		R13	Adresse einer 18 Worte umfassenden Save-Area.

		R14	Rückkehradresse in CFS.

		R15	Einsprungadresse: Beginn des Exits.

		Rückkehrinformationen:

	Rückkehrinformationen im Register 15 werden nur nach Rücksprung aus dem Open-Exit mit Opcode X'00000001' ausgewertet.

		R15 = X'00000000'	DVS Open-Aufruf darf ausgeführt werden.

		R15 > X'00000000'	DVS Open-Aufruf darf nicht ausgeführt werden.