Job darf nicht mit anderem laufen

[Pikachu]

Am besten ein ALCOBJ und abschließendes DLCOBJ in beiden Programmen auf das selbe Objekt (zum Beispiel einen Datenbereich), im Programm A mit Sperre *SHRRD und in Programm B mit Sperre *EXCL. Dann darf Programm A mehrmals gleichzeitig laufen, Programm B aber immer nur alleine.

PGM
ALCOBJ OBJ((Objekt *DTAARA *SHRRD)) WAIT(0)
MONMSG MSGID(CPF0000) EXEC(GOTO CMDLBL(ENDPGM))
...
DLCOBJ OBJ((Objekt *DTAARA *SHRRD))
ENDPGM: ENDPGM 

PGM
ALCOBJ OBJ((Objekt *DTAARA *EXCL)) WAIT(0)
MONMSG MSGID(CPF0000) EXEC(GOTO CMDLBL(ENDPGM))
...
DLCOBJ OBJ((Objekt *DTAARA *EXCL))
ENDPGM: ENDPGM