Re: Handling a File Lock

You may also want to do a OVRDBF

Either
WAITFILE(0)

Or
 WAITRCD(0)

I can't remember which.  This will immediately return back the file lock
error instead of waiting the default amount of time.  I believe its the
WAITRCD(0)





Michael Schutte



                                                                           
             AGlauser@erbgroup                                             
             .com                                                          
             Sent by:                                                   To 
             rpg400-l-bounces@         RPG programming on the AS400 /      
             midrange.com              iSeries <rpg400-l@xxxxxxxxxxxx>     
                                                                        cc 
                                                                           
             06/05/2006 02:28                                      Subject 
             PM                        Re: Handling a File Lock            
                                                                           
                                                                           
             Please respond to                                             
              RPG programming                                              
              on the AS400 /                                               
                  iSeries                                                  
             <rpg400-l@midrang                                             
                  e.com>                                                   
                                                                           
                                                                           




Here's how I would do it:

monitor;
       chain (key) record1;

on-error FILE_LOCK_ERROR;
      chain (key) record2;

endmon;

where FILE_LOCK_ERROR is a constant defined as 01218.

Hope this helps,
Adam





Bob.Voltz@xxxxxxxxxx
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
05/06/2006 02:02 PM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
RPG400-L@xxxxxxxxxxxx
cc

Subject
Handling a File Lock








What is the best way to handle this situation?
I have searched the archives and didn't find a solution to this.

If a chain to a file fails because it is being saved to tape,
chain to an alternate file.

RPGLE
V5.2

Thanks!

The information transmitted is intended only for the person or entity to
which it is addressed and may contain confidential, proprietary, and/or
privileged material. Any review, retransmission, dissemination or other
use
of, or taking of any action in reliance upon this information by persons
or
entities other than the intended recipient is prohibited. If you received
this in error, please contact the sender and delete the material.
--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.



#####################################################################################

Attention:
The above message and/or attachment(s) is private and confidential and is
intended
only for the people for which it is addressed. If you are not named in the
address
fields, ignore the contents and delete all the material. Thank you. Have a
nice day.

For more information on email virus scanning, security and content
management, please contact administrator@xxxxxxxxxxxx
#####################################################################################

--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.