|
midrange.com
Thanks Ron. I finalized on:
Dou Not %Error;
// Find next memo seq# for member
SetGT(E) (CI.Family#:CI.Member#) Mmemo_I;
ReadPE(E) (CI.Family#:CI.Member#) Mmemo_I MI;
If %Found(Mmemo_I);
MO.Mmseq#=MI.Mmseq#+1;
Else;
MO.Mmseq#=1;
EndIf;
Write(E) Mmorec MO;
EndDo;
Immediately after the Write, the condition for the Dou is checked, so
this will work.
--
"Enter any 11-digit prime number to continue..."
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
