Tom

What I usually do is a sequence like this:

ALCOBJ (<file ID> *EXCL)
MONMSG (CPF1002) ...
ALCOBJ (<file ID> *SHRxx)
DLCOBJ (<file ID> *EXCL)

Then the programming continues.

That is, I try to allocate exclusively. I would have a MONMSG after the first ALCOBJ to catch a failure of exclusive access; the action to take would depend on what needed to be done for that program.

If the first ALCOBJ succeeded, the second ALCOBJ would set whatever access level that I actually wanted. Once that was set, I would deallocate the initial exclusive lock.

The final result is a shared lock that would only be possible if the file was “active” at the beginning.

All of that might need clarification depending on what is meant by “active” and what the purpose of testing for “active” is in the first place. Usually the use of that S/36 OCL feature is inappropriate in native AS/400 procedures. It most often means that a process should be redesigned to work according to how this system can do things.

For example, it might be that there is a desire to clear a file; but that it shouldn’t be done while the file is “active”. Well, if the file is “active” and you try to run a CLRPFM command against it, the CLRPFM command itself will report back that the file is “active”. In such a case, there’s no point to running a specific test ahead of time.

Tom