Re: Unexpected extra data

Given the code shown, I'd suspect the program(s) that are adding
to/updating filea. If filea is journaled it might be worth examining the
journal entries.

Sam

On 8/19/2015 7:51 PM, Glenn Gundermann wrote:

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

--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.