Re: locked file

Art,

Does your telephone file have a shared ODP or in the controlling CL program do
you perform an OPNQRYF with a SHARE(*YES)?

The reason I ask is that there was an error handling difference between OPM RPG
and ILE RPG and you state that no error appears..  Under OPM if the primary
program opened the telephone file for input, and that file is under a shared
open, the called program that performs a write would  pop up an I/O violation
error.  Under ILE, errors are not as obvious.

You may want to have your job logging level set to 4 00 *seclvl

BTW, Technical particulars such as OPM vs ILE and OS level would aid you in
obtaining your solution.


Art Baker wrote:

> How can I get a data file unlocked?
> I created a RPG routine that creates an account on a financial system. The
> routine creates an account number, fine, then passes a data file of name and
> address, that's fine, then I call another data file to fill in a contact
> page of telephone numbers. The telephone data file never makes it to the
> financial system, only the account number and address are created. There is
> no errors but, the data file of telephone numbers is locked up. If I run the
> routine again I get an error 'unable to open system file'.
>         A hint might be, if I go to the data file of telephone numbers and
> try and rename it or delete it, there is an error of 'cannot do operation on
> file'. Either the file is still open or committed. What is the best way to
> clear this up?
> I'm working on a test system.
> Art

+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---