Re: (E) Extender and %Error on WRITE

["Raul A. Jager W." <raul@xxxxxxxxxx>]

You should check for %status() = 1021 (Duplicate Key). A write can fail 
for other reasons, in wich case you sould not increment the counter.  I 
had similar algorithm fail during an index rebuild. 
A more frecuent cause of trouble can be Referencial Integrity, but then 
again, not using it is worst.
___________________________________________________________________________________________________
Tony Carolla wrote:

> The module source:
> -------------------------------
> Dou Not %Error;
>
> // Find next memo seq# for member
> SetGT(E) (Family:Member) MmoRec;
> ReadPE(E) (Family:Member) MmoRec Mm;
>
> If %Found(Mmemo);
> Mmo.Mmseq#=Mm.Mmseq#+1;
> Else;
> Mmo.Mmseq#=1;
> EndIf;
>
> Write(E) Mmorec Mmo;
> EndDo;
> --------------------------
>
> The MMEMO file is uniquely keyed by account number and sequence number
> (MMSEQ#). I have since written a dedicated service program that handles this
> operation a bit differently:
>
> ---------------------------
> Dou Not %Error;
> SetGT(E) (Family:Member) MmoRec;
> ReadPE(E) (Family:Member) MmoRec M;
>
> If %EOF(CMmemo);
> Mo.Mmseq#=1;
> Else;
> Mo.Mmseq#=M.Mmseq#+1;
> EndIf;
>
> Write(E) MmoRec Mo;
> EndDo;
> --------------------------------------
> But at the time the first program went haywire, the above service program
> wasn't being used by the program. There are no triggers on the file. I don't
> have detailed data about when the error happened (I am not currently
> analyzing based on the status code, just using %ERROR).
>
> Thanks for looking at this.
>
> --
> "Enter any 11-digit prime number to continue..."
> "In Hebrew SQL, how do you use right() and left()?..." - Random Thought
> "If all you have is a hammer, all your problems begin to look like nails"
>