Error handling on a read or chain

[dcutaia]

If I have my file as an update i.e.

fIIML01    Uf   e           k disk

When I read or chain to a record in the file. Is there a way I can tell if it is in use by another process that is updating the record?

Thanks,

DAC

Has anyone ever used the %Status command:

Use %Status built in Function or File Information Data Structure to check record lock.

If %Status(EMP) = 1217
Errmsd = Record Lock
EndIf

Where EMP is Physical File name.

I tried this method:

fIIML02    Uf   e           k disk                    
F                                     INFDS(FIDS01)   
D FIDS01          DS                        
D  STS01            *STATUS                 
D  REC01                397    400B 0

If another process has a lock on the IIML02 file. The status should be 1216?

DAC

[tomholden]

Re: Error handling on a read or chain

PLEASE USE CODE TAGS!!! maybe this will help you out http://www.as400network.com/resource...ageView=Search

[MichaelCatalani]

Re: Error handling on a read or chain

chain(e) Employee# Emp;
if %error;
  Select;
    when %Status( Emp ) = 1218
      // * if you are here, you have a record lock
    other;
      // * if you are here, you have some other error besides a record lock
  endsl;
endif;

You need to use the (e) extender on the chain / read / etc. If there is an error, such as a record lock, you can then trap it with the %error bif. Then you can check the %status to see if it's 1218, which would indicate a record lock.

You will not get the error generated until the maximum record wait time is reached for the file. (The default is 60 seconds I believe) You can override the file to lower this value in order to trap the error more quickly, so that a user isnt sitting for a minute with a locked up screen if they have a record lock.