Re: OVRDBF with WAITRCD(*IMMED) and Record Lock Issue.

The program never successfully reads the "locked" record, so you don't move 
forward through the access path.

One solution would be to read it with no lock first, then CHAIN out to the file 
for update.  If that chain fails, read the next record.

Michael

> I am having a problem with a program that deletes records from a file based 
> on a range.
> 
> The program just reads and deletes the results of an OPNQRYF selection but if 
> a record is locked its supposed to write it
> out and go to the next record.
> My problem is that when a record is locked I never get passed the Read 
> statement.
> 
> The file has a Maximum record wait time of *NOMAX,  so in the CLLE I do an 
> Override to change this to *IMMED:
> 
>  OVRDBF     FILE(TEST) WAITRCD(*IMMED) SECURE(*YES) +
>                    OVRSCOPE(*CALLLVL) SHARE(*YES) +
>                    SEQONLY(*YES 341)
> 
> The RPGLE pgm reads the records and monitors for an error condition.
> 
> h DFTACTGRP(*NO) ACTGRP(*caller) bnddir('QC2LE')
> 
> FTEST      UF   E             DISK
> 
> //*---------------------------------------------------------------
> //  sbDltTest: Read and Delete records from Test file.
> //*---------------------------------------------------------------
>    Begsr    sbDltTest;
> 
>      @StartTime = %timestamp;
> 
>      read(e)  test;
>    // Indicate if record is locked.
>        if %error;
>             exsr sbLckRtn;
>        Endif;
> 
> 
> The CLLE program is compiled in a *NEW activation group and the RPGLE runs in 
> the callers group. I have checked the Overrides in place when the lock occurs 
> and they are there for the test file but control is never returned on the 
> READ(E) opcode, so it never goes to the next step.
> 
> It looks very straightforward but I must be missing 
> something.
>