Re: (E) Extender and %Error on WRITE

___________________________________________________________________________________________________
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"