DEFINE my_date
	LOCAL day
	LOCAL mon
	LOCAL year
	LET day (TRIM (SUBSTR DATE 1 2))
	LET mon (SUBSTR DATE 4 3)
	LET year (SUBSTR DATE 8 4)
	{Beispiel für Formatumwandlung von Monat Text in Monat Zahl}
	IF (MATCH mon "D*")
		LET mon "12"
	ELSE_IF (MATCH mon "N*")
		LET mon "11"
	ELSE
		LET mon mon
	END_IF
	{unter diesem Variabel Namen kann nun der Rückgabewert ausgelesen werden}
	LET Dms_return_val (day + '.' + mon + '.' + year)
	{Diese Zeile kann entfernt werden wenn der Rückgabe Wert stimmt}
	DISPLAY Dms_return_val
END_DEFINE