Unexpected extra data

Hi all,


I have a puzzling situation. The only thing I can think of is if buffering
of data might cause this problem. If I delete a record, can I re-read the
data if the delete is not forced to disk?

Here is my situation. Basically, I have a never-ending program that could
run for a week or more.



FHRITTRGDTAUF E K DISK USROPN

FHRITINTFC O E DISK USROPN


// Prototypes go here


/free



// Set SQL options.

EXEC SQL

SET OPTION

CloSqlCsr = *ENDMOD,

Commit = *NONE,

DatFmt = *ISO,

Naming = *SYS;



/end-free



dow entryData <> END;

ProcessData();

ReceiveDataQ('HRITTRGDTQ': '*LIBL': entryLength: entryData: WAITTIME); //
QRCVDTAQ api; wait = -1 = forever

endDo;



*inlr = *On;

return;





P ProcessData B

D ProcessData PI

/free



OpenFiles();

setll *loval fileA;

read fileA;

dow not %eof(fileA);

// some calcs;

write rcdFmtB;

delete fileA;

read fileA;

endDo;

CloseFiles();

return;



/end-free

P E



Today, we had 10 rows of extra data in fileB. The extra data is a copy of
5 previous rows made two times and shows a timestamp 3 minutes later than
the original data.

There is no MONITOR, *PSSR, or error handling program and no error messages
in the joblog.

If the delete didn’t work, I would expect an error.

I haven’t noticed this before and I am unable to recreate this problem at
will.


fileA has a primary key that is the identity column.



Thank you for your time.

Yours truly,

Glenn Gundermann
Email: glenn.gundermann@xxxxxxxxx
Work: (416) 675-9200 ext. 89224
Cell: (416) 317-3144