set up the following prototype in your D specs

D CEEDYWK         Pr                  OpDesc
D  LilianDate                   10I 0 Const
D  DayOfWeekNbr                 10i 0
D  FeedBack                     12A   Options(*Omit)

then to use it just code

Ceedywk(LilianDate:DayOfWkN:*Omit);

the only drawback with this method is that it requires a lillian date for input - however you can use the CEEDAYS API to convert a date into lillian format if required

To make work the same formula just change date ‘2001-12-06′ to ‘0001-01-07′. It will combine BigKat technique with mine.

Regards
Wilson

just fyi for non-free format (and SQLRPG length names)

C/EXEC SQL
C+ Set :DOWNum = DayOfWeek(:Chkdte)
C/END-EXEC

By adjusting the result, any known Sunday reference date will work. So if the days’ difference between the two dates divided by 7 plus 1 is negative, then I add 7 and then use that result as an array index to look up the day names. (In this case, I don’t want the absolute value, since I need to test the result).
Example:

Day = %Rem( %Diff( Date: d’2001-12-16′: *Days) : 7) + 1 ;
IF Day < 1 ;
Day += 7 ;
ENDIF ;

Very nice code example for calculating date of week. I really like that the code is complete in a single line.

When I tired it with dates prior to 2001-12-16 it returned incorrect day numbers.
Am I missing something in your code?
As long as the date is later the 2001-12-16 all works just fine.

Frmdeva,
Yes. Its intended for use in SQLRPGLE, just put a /free line ahead of it (and /end-free after) if you are using fixed form code. . I haven’t checked obsolete versions of RPG, but it should work ok. The EXEC syntax might be a little different.

assuming Sunday reference date

d.o.w	>ref	<ref
SUN	0	-0
MON	1	-6
TUE	2	-5
WED	3	-4
THU	4	-3
FRI	5	-2
SAT	6	-1

Yes, 0001-01-01 is a Monday, and this eliminates the negative date difference, which I believe also messes up the day of week value.

If you use a Sunday as reference, +6 days is a Saturday, but -1 days is a Saturday. The remainder of the difference divided by 7 is only valid for days GREATER than the reference. Which is one of the two main reasons I use 0001-01-01. (The other is that the weekend is >4)

Kevin aka “BigKat”

I will move the required date to Checkdate field.

Please clarify me…