I'm not sure where 'mk_memo' came from but I'm glad it works for you. :)

>Sergy, Thanks a million, you came throug again! Time for update is now 0.084 seconds.
>
>Here is the revised code. The k_memo key is the parent key. All I had to do was add it.
>
>

update bsmemo set textln = c_memo.textln ;
>from c_memo join bsmemo on c_memo.k_seqno = bsmemo.k_seqno ;
>where bsmemo.k_memo = mk_memo and ;  && Added line.
>c_memo.updtflag = 'U'