ALCOBJ OBJ((LIB/FILE *FILE *EXCL *FIRST)) ?
As this question is under RPGILE, you could issue this command from the RPG application using APIs such as QCMDEXC, QCAPCMD, etc. This will give you an exclusive lock on the data of the *first member in file FILE of library LIB.
Bruce Vining
<a href="http://www.brucevining.com/">http://www.brucevining.com/</a>
Last Wiki Answer Submitted: January 24, 2008 12:14 pm by bvining6,055 pts.
If you live outside the United States, by submitting your email address you consent to having your personal data transferred to and processed in the United States.