Problem Found! Need solution

 >> D Length          S              4B 0 Inz(X'000005B8')

On this occasion it was the mis-definition of Length as 4B instead of 10I
(or 9B if you're an old-fashioned boy) that caused your problem.  There's
another problem here though that's waiting to bite you.  You have hard-coded
the length of the receiver as X'5B8'  - Inz(1464) would make more sense, but
is still not the "right" way.  Instead code Inz(%Len(Receiver)) - this way
if you ever change the size of the receiver field and forget to change the
Inz length you won't cause yourself similar problems.

Just trying to save you problems in the future!

Jon Paris
Partner400