Suggested technique

I am writing something to create memo records for accounts, detailing
insurance billing denials.  The key to the file is account number and
sequence number, and it requires unique keys.  Basically, my technique
for writing is:

- Chain using account#
- if no matches, sequence=1
- if %Found, SETGT using account#, READP, then add one to the sequnece number.  

I am building the outpt record, then performing the above and writing
immediately.  But there still is a chance that somebody is sitting in
the account, and might press enter on a new memo while my program is
trying to add records, causing my program to error trying to write a
duplicate record.  I am trying to visualize a soltion using a DOW loop
and a Monitor group, but I would want the program to keep determining
the next record number and retrying if there was an error.  I am not
sure if I can just ITER if the error is found, or if I have to use a
GOTO.

Any suggestions?


-- 
"Enter any 11-digit prime number to continue..."