I am getting Error message CPF4101 appeared during OPEN for file when i am calling the RPGLE program in two different sessions.As soon as i came out from the display file from the first session, in the second session program can able to access the same file.
On errmsg press F1 and You will get low level msg with reason codes and
CPF4101 is a file not found error.
So check if the actual file is present in the corresponding library and if so also check if the library is in the library list.
seems like an odd message if you can see/use the file on one session but not
the other ...I would expect some kind of record locking error.
What IBM Says:
When doing a full system recovery, either in a disaster or a test, users might receive the following messagesafter QUSRSYS is restored as part of the*ALLUSR :
CPD0C23 - Library &5 not found.
BRM1992 - Media monitor was not active during processing of volume &1.
CPF4101 - File xxxxx in library QUSRBRM not found.
MCH3401 - Cannot resolve to object QYPPOC370C. Type and Subtype x'0203'.
The message text for CPF4101 is:
Message . . . . : File QA1ASP in library QUSRBRM not found or inline data file missing.
Cause . . . . . : The file was not opened. The reason code is 01. The reason codes and their meanings are as follows:
01 - The library does not exist.
02 - The file does not exist. The library does exist.
03 - The file does not exist. The library specified as *LIBL.
04 - The file was saved with storage freed.
This is because BRMS is installed on the system and when QUSRSYS is restored, the exit points are restored. Because BRMS adds programs to the exit points, further use of the tape drive will fail.
Users have the following options to prevent this:
Before restoring *ALLUSR or QUSRSYS, restore libraries QBRM, QMSE, and QUSRBRM.
Note: Libraries QBRM and QMSE might have been restored already if aRSTLIB LIB(*IBM) has been run.
Do WRKREGINF and remove the programs from the following exit points:
After the restore is complete, run INZBRM OPTION(*DATA) . This will add the programs back to the exit points.
All my answers were extracted from the "Big Dummy's Guide to the As400"
and I take no responsibility for any of them.