/*===( Translate date in valid REXX format to european format dd.mm.jjjj )===*/
/*======( Author: Janosch R. Kowalczyk, URL: www.jakoxx.de )=======*/
TransDate: Procedure 
Arg rexxDate, rexxFormat

If rexxDate = '' Then rexxDate = Date( 'S' )
Else rexxDate = Date( 'S', rexxDate, rexxFormat )

Return Translate( '78.56.1234', rexxDate, '12345678' )
/*** End TransDate ***/