Re: Member (file name) already in use. -- RPG400-L

Thanks for your input, Booth. Actually, I have about 10 of these files that
are remaining member-locked. Some of them are intentionally not closed by
the calling application -- again, I am running this in my testing
environment, and the actual process I am trying to test is only a "snippet"
of the overall job that controls these files. To go through all of the
programs involved and setting "usropn" "open" "close" for all of the files
causing the problem would be too time-consuming (and not germain to the
modification to the process that I am trying to make.)

So, I need to be able to close [release the locks on] these files (when they
are open) before each test. Currently, the only way I have found to do this
is to log off and log on again, which is getting very tiresome!

Someone on another 'board mentioned that the RRTJOB command might work --
however, when I tried that I received the error message:

Message . . . . :   Command RRTJOB not allowed in this environment.

Cause . . . . . :   The job in which this command was issued is a group job,

  prestart job or batch immediate job. This command cannot be used in a
group
  job, prestart job or batch immediate job.


I assume that this is because our system has been set up to cause all of us
to run continually within our initial program -- a circumstance which we,
unfortunately, can't change.

Any ideas?
Thx!
Jeff

-------First Response Message-------
Date: Thu, 11 Jul 2002 13:52:40 -0400 (Eastern Daylight Time)
From: "Booth Martin" <Booth@MartinVT.com>
To: <rpg400-l@midrange.com>
Subject: Re: Member (file name) already in use.
Reply-To: rpg400-l@midrange.com


Could you have your F-Spec for the file be USROPN and open the file when you
begin the process and close the file when you are done with it?
-------End First Response Message-------
-------Original Message-------

From: rpg400-l@midrange.com
Date: Thursday, July 11, 2002 12:18:46
To: 'RPG400-L@midrange.com'
Subject: Member (file name) already in use.

I'm experiencing a lock on a member in a file. The message I receive is,
"Member (file name) already in use." [CPF3130]The lock is apparently created
by a program in my interactive job that is ending without setting on LR.
(This is a testing environment where the job is being run interactively
rather than it's normal batch mode -- so this problem is not occuring in
production.)
I cannot find any way to release the lock. I've tried DLCOBJ for all levels
(*SHRRD/*EXCL/etc.) for both the physical and the logical file involved.
I've tried RCLRSC, RCLDDMCNV (the files involved are not DDM files, but we
have them -- or rather, we have OptiConnect...) and RCLACTGRP *ELIGIBLE.
Also, CLOF (file name) -- which told me that there was no file open with the
identifier. Nothing seems to work -- except logging off and logging back on
again.
Anybody got any advice? Thx!
Jeff
-------End Original Message-------





Jeff Markel
Developer, Merchandise Accounting
Costco Wholesale Corporate Office
Issaquah, Washington
Office  (425) 427-7662
FAX    (425) 313-6800
JMarkel@Costco.com