fn EExecC5 &OOO X Y Att Sg1 Sg2 FM =
(	
	if (X==undefined) or (Y==undefined) then return false
	local D;

	if (X.OB=="P") and (Y.OB=="P") and (IsSobstv X) and (IsSobstv Y) then
	(
		D=CompSub X.X Y.X;
		TOChisl_Create &OOO D Att
	) else
	(
		if (Att.Chk==1) then TOEmpty_Create &OOO Att;
	)

	return true
) -- EExecC5