RE: Clear File - error

["Weatherly, Howard" <Howard.Weatherly@xxxxxxxxxxxx>]

This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
--
[ Picked text/plain from multipart/alternative ]
Sudha,

I am not all that familiar with RPG of any sort, but I am curious why you
are trying to do a clear file? The beauty of QTEMP is that the data is not
permanent, it will go away when the job ends. My guess is that the systems
realizes this and does not usually expect an attempt to clear a temporary
file.

-----Original Message-----
From: SRamanujan@sungardfutures.com
[mailto:SRamanujan@sungardfutures.com]
Sent: Wednesday, September 11, 2002 11:02 AM
To: midrange-l@midrange.com
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.