Entweder das 1. oder das 2. Programm muss mit einer anderen Datei arbeiten (2.LF mit identschem Key).
Durch das SHARE(*YES) bist du gebunden.

2. Alternative
PGM2 hebt per OVRDBF SHARE(*NO) den Status wieder auf und öffnet die Datei erst dann (USRCTL/UC).
Sicherer wäre allerdings eine 2. LF => Auf Satzsperren achten !!!