Re: Removing Object Locks

[Jim Langston <jlangston@xxxxxxxxxxxxxxxx>]

PGM

      /* LOCK FILE QS36F/BSTQIN EXCLUSIVE */
      ALCOBJ OBJ((QS36F/BSTQIN *FILE *EXCL)) WAIT(0)
      MONMSG MSGID(CPF0000) EXEC(DO)
           WRKOBJLCK OBJ(QS36F/BSTQIN) OBJTYPE(*FILE)
           ALCOBJ OBJ((QS36F/BSTQIN *FILE *EXCL)) WAIT(0)
           MONMSG MSGID(CPF0000) EXEC(DO)
                SNDPGMMSG 'QS36F/BSTQIN ** NOT ** LOCKED'
                GOTO END
           ENDDO
      ENDDO

      SNDPGMMSG 'QS36F/BSTQIN SUCESSFULLY LOCKED.'

END:
ENDPGM


> a b wrote:
>
> > Is there a way to automate the removal of all object
> > locks from a file?
> >
> > For example, if I have an application that needs to
> > run... prior to it's execution... I'd like to check
> > for object locks and remove them.
> >
> > Any help would greatly be appreciated.
> >
> > Thanks

+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---