Record 367461 member PARTMASTER already locked to this job.

[Fuerchau]

Doch genau das ist das Problem:
PGM1 (Open Update)
CHAIN DATEI SATZ 1
CALL PGM2 (Open Update)
CHAIN DATEI SATZ 1
=> Lock

Da jedes Programm seinen eigenen Open hat ist das das selbe wie der Open in 2 Jobs.

PGM1 (Open Update)
CHAIN DATEI SATZ 1
UPDATE
CALL PGM2 (Open Update)
CHAIN DATEI SATZ 1
UPDATE
=> Kein Lock

[harkne]

Also was hier beschrieben ist funktioniert ohne Probleme. 1. Programm macht einen chain (Datei ist update eröffnet) und macht keinen update da ja sonst der lock weg ist und anschließend call programm 2 (von Programm 1 aus) (Datei ist ebenfalls update eröffnet) chain auf den gleichen Satz. Kein Problem. Ich denke innerhalb oder unterhalb in einem Callstack gibt es keine Probleme. Ich gebe Ihnen recht wenn Programm 1 aufgerufen wird was sperrt und anschließend Programm 2 aber nicht von Programm 1 aus

[Fuerchau]

Dann prüfe, ob die Datei mit SHARE(*YES) geöffnet wurde (DSPJOB, Offene Dateien, Spalte SHARE, Anzahl Open).

[harkne]

Ich ergebe mich. Jetzt lockt er auf einmal.