Aufruf: EPL-5, Austausch

STRING = EplExchange(tcIde10 AS STRING , tcEplprg AS STRING , tcEplprj AS STRING , tcStklfile AS STRING , tcPara AS STRING , tlNoExec AS BOOLEAN , tlChangeE11 AS BOOLEAN)

Rückgabe: EPL-5, Austausch

Rückgabe der Funktion: STRING

Code: EPL-5, Austausch

PROCEDURE EplExchange (tcIde10 AS STRING,tcEplprg AS STRING,tcEplprj AS STRING,tcStklfile AS STRING,tcPara AS STRING,tlNoExec AS Boolean,tlChangeE11 AS Boolean) AS STRING;
		HELPSTRING "Vorroutine zu EPLVORG2EP"
	LOCAL lcAlias, loSelect
	loSelect = My.Functions.SELECTED
	*/ loSelect.cKeepOpen kann mit dem ALIAS() gefüttert werden, der offen bleibt
	*/ loSelect.cNextOpen, füttert cKeepOpen immer mit dem nächsten Alias
	lcAlias	=My.Bussines.PmsToEplan.eplvorg2epl(tcIde10,tcprg,tcprj,tcFile,tcPara,tlNoExec,tlChangeE11)
	RETURN !EMPTY(m.lcAlias) AND USED(m.lcAlias)
ENDPROC