alcobj-to-clear-shared-locks

You can add the command below to the evening job stream that later allocates/clears the file. The command will ask any jobs having locks to release those locks. In my experience, this has worked perfectly with QSQSRVR jobs that hold *SHRRD pseudo-locks on the object.

For file MYFILE:

ALCOBJ OBJ((MYLIB/MYFILE *FILE *EXCL *N)) CONFLICT(*RQSRLS) 

if a member:
ALCOBJ OBJ((MYLIB/MYFILE *FILE *EXCL MYMEMBER))   CONFLICT(*RQSRLS)                        
 
Make sure you add a MONMSG immediately after the ALCOBJ command to handle any messages such as "cannot allocate..." which may arise normally.