dCEEDYWK pr extproc('CEEDYWK')
d nDays 10i 0 const
d nRtnDayOfWeek 10i 0
d ioFeedBack 12a options(*OMIT)

d nRtnDayOfWeek s 10i 0
* 1 = Sonntag
* 2 = Montag
* usw
d DateDiff s 10i 0
d BaseDate s d datfmt(*ISO) inz(d'1582-10-14')
d Today s d

c eval Today = %Date()
c eval dateDiff = %diff(Today:BaseDate:*DAYS)
c callp CEEDYWK(DateDiff:nRtnDayOfWeek:*OMIT)