Figure 1B

Extraire la valeur day-of-week avec la fonction scalaire DayOfWeek

* ===================================================================
* = Description... Retrieve day-of-week
* ===================================================================
H NoMain
D RtvDayOfWeek 	PR 		5I 0
D 						D Value
P RtvDayOfWeek 	B 			Export
D RtvDayOfWeek 	PI 		5I 0
D DateIn 					D Value
D DayOfWeekNbr 	S 		5I 0
C/exec SQL
C+ Set :DayOfWeekNbr

                    

= DayOfWeek( DateIn )
C/end-exec
C Return DayOfWeekNbr
P RtvDayOfWeek E