/* REXX - DATUM */
/* Copyright Gerhard Mayer 2001,2002 */
/* Ausgabe einer Datum-Zeit-Angabe für den heutigen Tag und den
   augenblicklichen Zeitpunkt in der Form:
   wochentag - nn monat jjjj - ss:mm:ss
*/

base = Date('B'); sort = Date('S'); time = Time()

wdaystr = 'Montag Dienstag Mittwoch Donnerstag Freitag Samstag Sonntag'
mon_str = 'Januar Februar März April Mai Juni' ,
          'Juli August September Oktober November Dezember'

wday = Word(wdaystr,base//7+1)
day = Substr(sort,7,2)
mon = Word(mon_str,Substr(sort,5,2))
yea = Substr(sort,1,4)

Say wday '-' day mon yea '-' time
Exit