Re: RNQ1221 Update or delete in file <file name> without prior input operation (C G D F).

Hi, Glenn and Chuck,

For an external call to another *PGM to affect the ODP positioning, it would need to be a "shared open", no?

So, then, perhaps a "circumvention" to work around or prevent this issue could be to run:

OVRDBF FILE(SMWSHPPL) TOFILE(*FILE) SHARE(*NO) OVRSCOPE(*JOB)

at the start of the process?

That should prevent this problem, if it is indeed caused by some other "external" program run within the same job, no?

Hope that helps,

Mark S. Waterbury

> On 5/24/2017 5:58 PM, CRPence wrote:

On 24-May-2017 13:38 -0600, Glenn Gundermann wrote:

This has me stymied. This program runs 50 times a day and it has had
an error 8 times in the last 4 weeks. It is getting RNQ1221 on the
delete: Update or delete in file SMWSHPPL without prior input
operation (C G D F).

fSMWSHPPL UF E K Disk

read smwshppl;
dow not %eof(smwshppl);
// some external call
delete RWSHPPL;
read smwshppl;
endDo;

*inlr = *on;
return;

Any ideas?

First thing I would do, is review the joblog for errors; e.g. any error(s) that precede(s) the msg RNQ1221.? The message means that the update capable ODP no longer has position to a record for which an update lock is held; e.g. the lock has been released, explicitly per release, or implicitly per change in position without also obtaining a record lock. If no errors, then I would expect that most likely, the external call [as broehmer alluded] was responsible for losing the position and/or record lock.