Re: SetGT/ReadPE method Exception

EGads... It's late... let me re-phrase my example

Dou Not %Error;
SetLL Acct# Rmemo;

If not %Equal(Mmemo);
out.seq=1;
Else;
SetGT Acct# Rmemo;

If %Found(Mmemo);
ReadPE Acct# Rmemo;
out.seq=seq+1;
Else; // <------This means you are at the end of the file
SetLL Acct# Rmemo;
ReadE Acct# Rmemo;

Dow Not %EOF(Mmemo);
ReadE Acct# Rmemo;
EndDo;

out.seq=seq+1;
EndIf;
EndIf;

Write(E) OutMemo out;
EndDo;

This is the way I dreamed up on the drive home tonight. Either way would 
work, but the complexity is worth the speed, because this is an interactive 
job that creates thousands of these records each run.