AW: Generating Julian Date

C/EXEC SQL   Set :JulianDay = DayOfYear(:MyDate)
C/END-EXEC

Mit freundlichen Gru?en / Best regards

Birgitta

"Shoot for the moon, even if you miss, you'll land among the stars." 
(Les Brown) 

-----Ursprungliche Nachricht-----
Von: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]Im Auftrag von Holden Tommy
Gesendet: Donnerstag, 5. Januar 2006 21:14
An: RPG programming on the AS400 / iSeries
Betreff: RE: Generating Julian Date


/free
  Today = %date();
  JanFirst = %Date('2006-01-05':*ISO0);
  JulianDay =  %Diff(Today:JanFirst:*Days);
/end-free


Thanks,
Tommy Holden


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Douglas W. Palme
Sent: Thursday, January 05, 2006 1:58 PM
To: RPG Group
Subject: Generating Julian Date

One of our customers is requiring us to generate a material number based

upon the following:

Julian Date
Year
Release Number

The release number we will generate based upon what has already been
used 
before, however I haven't played with julian dates in years, what I am 
needing is just the julian number for the day for the year we are
currently 
in.

suggestions on how to extract that?


If you bought it, it was hauled by a truck - somewhere, sometime.