/* $VER: datum.rexx 1.1 (22.1.95)
   Unterprogramm zur Erzeugung des aktuellen Datums in deutscher Sprache
*/

datum=date(sorted)

year=left(datum,4)
month=substr(datum,5,2)
day=substr(datum,7,2)

if(month=1)then
   monthname="Januar"
else if(month=2)then
   monthname="Februar"
else if(month=3)then
   monthname="Mrz"
else if(month=4)then
   monthname="April"
else if(month=5)then
   monthname="Mai"
else if(month=6)then
   monthname="Juni"
else if(month=7)then
   monthname="Juli"
else if(month=8)then
   monthname="August"
else if(month=9)then
   monthname="September"
else if(month=10)then
   monthname="Oktober"
else if(month=11)then
   monthname="November"
else if(month=12)then
   monthname="Dezember"


RETURN right((0+day)||". "||monthname||" "||year,18)
