RE: Issue in DLTF command after RCVF.

["Barton, Mike" <Mike.Barton@xxxxxxxxxxxxxxxxx>]

Siva
        By doing a RCVF you are in effect opening the file
hence the system will not let you delete it until you hit EoF
when it will be closed.

Are you simply wanting to find out if there are any records in 
the file and if not delete the file ? 
If so, use the RTVMBRD NBRCURRCD(&records) and if
Zero , then do your DLTF.

HTH

Mike 

                -----Original Message-----
                From:   Siva [mailto:matchrefree@xxxxxxxxx]
                Sent:   04 March 2005 12:14
                To:     MIDRANGE-L@xxxxxxxxxxxx
                Subject:        Issue in DLTF command after RCVF.

                In a CL program, i am using the RCVF command  to read the
first record of a PF which is having tons of records. 
                After this,  DLTF command is issued to delete the file but
the system is not allowing to do so because the system will make an
exclusive lock on the file when RCVF command is executed. 
                An error message specifying that the file is still in use is
displayed. Is it possible to unlock this file before DLTF command so that it
could be deleted? 

                It is found that if all the records of the file is read,
then DLTF command will be executed normally (i.e., the file will be
deleted). but tehr euirement is not to read the tons of record before
deleting teh file, 

                Is there any solution to delete the file than by reading all
the records in the file in one shot.

                Share your thoughts...

                 

                Regards

                Siva.

                                
                ---------------------------------
                Celebrate Yahoo!'s 10th Birthday! 
                 Yahoo! Netrospective: 100 Moments of the Web 
                -- 
                This is the Midrange Systems Technical Discussion
(MIDRANGE-L) mailing list
                To post a message email: MIDRANGE-L@xxxxxxxxxxxx
                To subscribe, unsubscribe, or change list options,
                visit: http://lists.midrange.com/mailman/listinfo/midrange-l
                or email: MIDRANGE-L-request@xxxxxxxxxxxx
                Before posting, please take a moment to review the archives
                at http://archive.midrange.com/midrange-l.


        
_____________________________________________________________________
                This e-mail has been scanned for viruses by MCI's Internet
Managed Scanning Services - powered by MessageLabs. For further information
visit http://www.mci.com
###########################################

This message has been scanned by F-Secure Anti-Virus for Microsoft Exchange.
For more information, connect to http://www.F-Secure.com/

**********************************************************************
This communication and the information it contains: - (a) Is intended for the 
person(s) or organisation(s) named above and for no other person(s) or 
organisation(s). Access to this mail by anyone else is unauthorised. (b) Is 
confidential, and may be legally privileged or otherwise protected in law. 
Unauthorised use, circulation, copying or disclosure of any part of this 
communication may be unlawful. (c) May be susceptible to interference, and 
should not be assumed that it has come in its original form and/or from the 
stated sender or PinkRoccade UK accepts no responsibility for information, 
errors or omissions in this e-mail or use or misuse thereof or any act done or 
omitted to be done in connection with this communication. If you are not the 
intended recipient, please inform postmaster@xxxxxxxxxxxxxxxxx immediately and 
delete it and all copies from your system.

www.pinkroccade.co.uk
**********************************************************************