RE: [WEB400] File Open Error

["Phil" <sublime78ska@xxxxxxxxx>]

CPF4131 is a level check - that means the program was compiled with a
different version of the file it tried to open.  Either recompile the pgm
with the version it found, or move the compiled-over version to the library
where the pgm will find it.

This is no different from normal RPG programming.

Phil

> -----Original Message-----
> From: web400-admin@midrange.com [mailto:web400-admin@midrange.com]On
> Behalf Of Justin Houchin
> Sent: Monday, April 08, 2002 12:50 AM
> To: web400@midrange.com
> Subject: [WEB400] File Open Error
>
>
> This is a multi-part message in MIME format.
> --
> [ Picked text/plain from multipart/alternative ]
> OK, heres the situation, I have alibrary called PCSTORE. I have
> all of my CGI Programs in that same library because my physical
> files are also in that library. I go to call the CGI program and
> I get this message..
>  Message . . . . :   Error message CPF4131 appeared during OPEN for file
>    P3030L1 (C S D F).
>  Cause . . . . . :   RPG procedure ITEMINQ in program
> PCSTORE/ITEMINQ received
>    the message CPF4131 while performing an implicit OPEN operation on file
>    P3030L1.
>  Recovery  . . . :   Check the job log for a complete description
> of message
>    CPF4131, and contact the person responsible for program
> maintenance. If the
>    file has a device type of SPECIAL, there may be no message in
> the job log.
>  Possible choices for replying to message . . . . . . . . . . . . . . . :
>    D -- Obtain RPG formatted printout of system storage.
>    S -- Obtain printout of system storage.
>
>
> Do I have to create the Service Program that Brad was suggesting
> to add PCSTORE to the library list upon execution then remove it.
> I was under the assumption that if my physical files were in the
> same library as my CGI Program there should not be a provblem.
> Please Help!!!!
>
> Justin Houchin
> Programmer
> Reliatek, Inc
> _______________________________________________
> This is the Web Enabling the AS400 / iSeries (WEB400) mailing list
> To post a message email: WEB400@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/web400
> or email: WEB400-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/web400.
>
>