fn EExecTR021 &out_Prm1 in_Prm1 in_Prm2 in_Prm3  Att_1 Sg1 Sg2 Sg3 FM  =
(
	if ((in_Prm1==undefined) or (in_Prm2==undefined) or (in_Prm3==undefined)) then return false

	local  o4,p1,p2

	CreateCopy &o1 in_Prm1
	o1.FAtt=in_Prm1.FAtt

	CreateCopy &o2 in_Prm2
	o2.FAtt=in_Prm2.FAtt

	CreateCopy &o3 in_Prm3
	o3.FAtt=in_Prm3.FAtt

	EExecTR004 &p1  o1 o2 o3  att5  1 1 1  "0"
	EExecTR009 &p2  o1 o2 o3  att0  1 1 1  "0"
	EExecO0 &o4  p2 p1  att5  1 1  "0"

	CreateCopy &out_Prm1 o4
	out_Prm1.FAtt=o4.FAtt

	return true
) -- EExecTR021