Re: Calculating The Number Of The Week

Bernd,

Make the program SQLRPGLE, and use the following:

select week_iso(current date) into :weekvar from sysibm/sysdummy1

For 31 December 2007 this returns 1.  The week() function returns 53.

HTH,

Peter Colpaert
Application Developer
PLI - IT - Kontich, Belgium
-----
Yoda of Borg are we.  Futile is resistance, assimilated will you be.
-----



"Bernd Dworrak" <bdworrak@xxxxxxxxx> 
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
15/03/2007 15:18
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
<rpg400-l@xxxxxxxxxxxx>
cc

Subject
Calculating The Number Of The Week






Hello!

 

Does anybody know a RPG routine which calculates the number of the week?

 

I've tried some code that could be downloaded on several sites in the
internet. Not a single one calculates the correct number of the week for
instance for December, 31st 2007.

All show 53 as number of the week but it is week number 1 instead.

 

Every help is welcome.

 

Bernd Dworrak

 

 


15/3/2007