Re: [WEB400] File Open Error

["Jim Franz" <franz400@xxxxxxxxxxxx>]

cpf4131 is a level check. It found the file, but file has changed
after program compiled. you need to regenerate program.
jim

----- Original Message -----
From: "Justin Houchin" <jhouchin9@charter.net>
To: <web400@midrange.com>
Sent: Sunday, April 07, 2002 11:49 PM
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.