Aufruf: under construction

STRING = SetRela(tcProgram AS STRING , toX50Object AS OBJECT @)

Rückgabe: under construction

Rückgabe der Funktion: STRING
Rückgabe per Reverenz:
	toX50Object AS OBJECT

Code: under construction

PROCEDURE SetRela (tcProgram AS STRING,toX50Object AS OBJECT @) AS STRING
	*/ Hier muss die Anzahl der Parameter beachtet werden!
	=My.lFormStackLog AND My.WriteFSLog(PROGRAM()+":"+m.tcProgram)
	IF PCOUNT()=2
		RETURN My.Clients.HdmEnvironment.SetRela(m.tcProgram,@toX50Object)
	ELSE
		RETURN My.Clients.HdmEnvironment.SetRela(m.tcProgram)
	ENDIF
ENDPROC