"Hang" on return

[Willem Grooters]

Implemented as follows:

INVOKE GetJPI (code JPI$TMBU) to get mailbox unit number (type INTEGER)
IF unit number <> zero THEN
convert it to text
add it to "MBA", giving device "MBA"
Get new UIC as string
create an ACE
(ID=[grp,mem],ACCESS=WRITE+LOGICAL)
add ACU this to this unit.
ENDIF

This allows the current (sub)process to write to the termination mailbox, even if the UIC has changed.