RE: [WEB400] File Open Error

["Phil" <sublime78ska@xxxxxxxxx>]

Does the file exist on both as400's?  If so, they're not the same.  Do
'DSPFD filename' to display the file level identifier on both systems.
Should be different.

Copy the files from the target as400 to the source as400 and then compile.

Phil

> -----Original Message-----
> From: web400-admin@midrange.com [mailto:web400-admin@midrange.com]On
> Behalf Of Justin Houchin
> Sent: Monday, April 08, 2002 1:09 AM
> To: web400@midrange.com
> Subject: Re: [WEB400] File Open Error
>
>
> Here is the problem, I compile my programs on one AS400 and send to run on
> another AS400, I can I find out if the levels are different?
>
> Justin
> ----- Original Message -----
> From: "Phil" <sublime78ska@attbi.com>
> To: <web400@midrange.com>
> Sent: Saturday, April 06, 2002 1:01 PM
> Subject: RE: [WEB400] File Open Error
>
>
> > 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.
> > >
> > >
> >
> > _______________________________________________
> > 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.
> >
> >
>
>
> _______________________________________________
> 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.
>
>