Im Programm nicht benutzte Dateien entsperren??

[Khholm]

Ein zusätzliches Programm mit *inlr beenden wird das Problem wahrscheinlich auch nicht lösen. Es sollte vor dem *inlr ein RCLSRC abgesetzt werden.

Karl-Heinz

[B.Hauser]

RCLRSC funktioniert nur bei RPGIII nicht jedoch mit RPGIV bzw. ILE. Hier wirkt lediglich ein RCLACTGRP. Wenn allerdings das WWS-Programm in der Default-Aktivierungsgruppe ausgefürht wird oder mit Aktivierungsgruppe *CALLER läuft und durch das rufende Program in der Default Activierungsgruppe ausgeführt wird, hat man auch mit RCLACTGRP keine Chance.

Sollte das WWS-Programm mit Aktivierungsgruppe *CALLER erstellt sein, kann ein Programm zwischen geschaltet werden, das in einer eigenen Aktivierungsgruppe (z.B. *NEW) läuft. Dadurch läuft das WWS-Programm in der neuen Aktivierungsgruppe. Wurde das Programm mit *NEW erstellt, ist keine weitere Aktion erforderlich, d.h. die Aktivierungsgruppe wird bei Programm-Ende automatisch geschlossen. Bei einer benannten Aktivierungsgruppe kann diese nach Programm-Ende mit dem Befehl RCLACTGRP geschlossen werden.

Birgitta

[votch]

Danke, ich versuche es mal mit dem Programm und der actgrp *new, aber gibt es da keine andere Lösung? Hab das Problem leider bei fast allen Stammdaten-Prg's in denen ein WWS-Prg aufgerufen werden muss.

[Fuerchau]

Schau dir die Art deiner WWW-Programme an.
Bei OPM kannst du nach dem Call einen RCLRSC aufrufen.

Bei ILE schau auf die ACTGRP des Programmes. Ist hier eine benannte ACTGRP hast du auf normalem Weg keine Chance. Du musst dann einen RCLACTGRP für diese aufrufen.

Ist die ACTGRP *CALLER, setze für dein Programm eine eigene benannte ACTGRP, führe deine Aktionen für genau eine Dateigruppe durch und mach anschließend einen RCLACTGRP bevor du die nächste Dateigruppe bearbeitest.

[votch]

Funktioniert jetzt.

Es war noch ein RPG und klappte mit RCLRSC. Den mache ich jetzt im Programm direkt über die QCMDEXC und brauche keine neuen Programme :-).

Vielen Danke an Alle!