sponsored links

Collapse

Announcement

Collapse
No announcement yet.

Error message CPF4101 appeared during OPEN for file

Collapse
X
  • Filter
  • Time
  • Show
Clear All
new posts

  • Error message CPF4101 appeared during OPEN for file

    Hi
    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.

    Regards
    Naveen

  • #2
    Re: Error message CPF4101 appeared during OPEN for file

    Hi

    On errmsg press F1 and You will get low level msg with reason codes and
    meanings.
    LP Zdenko

    Comment


    • #3
      Re: Error message CPF4101 appeared during OPEN for file

      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.
      Regards,
      KR

      Comment


      • #4
        Re: Error message CPF4101 appeared during OPEN for file

        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:

        Option 1

        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.

        Option 2

        Do WRKREGINF and remove the programs from the following exit points:

        QIBM_QTA_STOR_EX400 EX400300
        QIBM_QTA_TAPE_TMS TMS00200

        After the restore is complete, run INZBRM OPTION(*DATA) . This will add the programs back to the exit points.








        jamie
        All my answers were extracted from the "Big Dummy's Guide to the As400"
        and I take no responsibility for any of them.

        www.code400.com

        Comment

        sponsored links

        Collapse

        Working...
        X