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


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