alanseiden

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.

alanseiden

             PGM        PARM(&INSPLF &INJOB &INUSER &INJOBN &INSPLN +
                          &EXISTS)
             /* Thanks to Scott Campbell and Larry Nies */
             
             /* Incoming parms */
             DCL        VAR(&INSPLF) TYPE(*CHAR) LEN(10)
             DCL        VAR(&INJOB) TYPE(*CHAR) LEN(10)
             DCL        VAR(&INUSER) TYPE(*CHAR) LEN(10)
             DCL        VAR(&INJOBN) TYPE(*CHAR) LEN(6)