Re: Clear File - error

[rob@xxxxxxxxx]

This is a multipart message in MIME format.
--
[ Picked text/plain from multipart/alternative ]
This probably isn't an issue since you are using 'old' rpg, but if you do
a WRKJOB, 14. Display open files, if active, and look at the activation
group (the part many use F11=Display I/O details to skip, or ptf out of
it) it's not in another activation group, is it?

Rob Berendt
--
"They that can give up essential liberty to obtain a little temporary
safety deserve neither liberty nor safety."
Benjamin Franklin




<SRamanujan@sungardfutures.com>
Sent by: midrange-l-admin@midrange.com
09/11/2002 10:02 AM
Please respond to midrange-l


        To:     <midrange-l@midrange.com>
        cc:
        Fax to:
        Subject:        Clear File - error


I must be missing something here..  I have an old RPG program that opens a
work file in QTEMP with user open.  This is actually a flat file that has
been overridden in the CL with a SHARE(*NO) SEQONLY(*YES 204).  The RPG
inturn calls other programs where the file is used for updates and
calculations.  Once the process returns to the calling RPG, it tries to
clean up by clearing the member.  The logic does CLOSE on the file (using
the overriden name). Clears the member for next process.  But the clear
option on the file throws an error 'Member already in use'.  I even tried
to add a dlcobj on the original flat file but in vain.  Strangely, other
flat files with similar logic do not have this problem.  Could you kindly
help me resolve this?

Thanks in advance,
Sudha

Sudha Ramanujan
SunGard Futures Systems
sramanujan@sungardfuutres.com
(312) 5776179
_______________________________________________
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list
To post a message email: MIDRANGE-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/midrange-l
or email: MIDRANGE-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.