Tag des Jahres abfragen

[SL]

Hallo Michael, so ähnlich hab ich's mir gedacht. Danke für die schnelle Antwort.

Gruß SL

[B.Hauser]

Brauchst Du's unbedingt in CL oder kann's auch RPG mit embedded SQL sein?

D LfdTag          S              3P 0
D MyDate          S               D   inz(D'2006-03-13')
 *------------------------------------------------
C/EXEC SQL  Set :LfdTag = DayOfYear(:MyDate)
C/END-EXEC