Re: Unexpected extra data

[Sam_L <lennon_s_j@xxxxxxxxxxx>]

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