iNN - eNews - SSS-Software

D DateIso S D inz(D’2006-12-31’)
D TimeStampIso S Z inz(*Sys)
D DateAlpha S 10A inz(’1.6.2006’)
D TimeStampAlpha S 26A inz(’2004-11-1-7.30.23’)
D DayYear S 3P 0
*--------------------------------------------------------------------
C/EXEC SQL Set Option DatFmt = *ISO
C/END-EXEC
C/EXEC SQL Set :DayYear = DayOfYear(:DateIso)
C/END-EXEC
C/EXEC SQL Set :DayYear = DayOfYear(:TimeStampIso)
C/END-EXEC
C/EXEC SQL Set :DayYear = DayOfYear(:DateAlpha)
C/END-EXEC
C/EXEC SQL Set :DayYear = DayOfYear(:TimeStampAlpha)
C/END-EXEC
C eval TimeStampAlpha = ’20060528173025’
C/EXEC SQL Set :DayYear = DayOfYear(:TimeStampAlpha)
C/END-EXEC
Beispiel 4: Verwendung der SQL skalaren Funktion DayOfYear in RPG
DAYOFWEEK und DAYOFWEEK_ISO – Ermitteln Wochentag
Eine der wichtigsten skalaren Funktionen, für die es in RPG kein Äquivalent gibt, ist die
Funktion DAYOFWEEK und ihr Zwillingsbruder DAYOFWEEK_ISO. Über beide Funktionen
kann der Wochentag in numerischer Form ermittelt werden. Bei der Funktion DAYOFWEEK
wird der Sonntag als der erste Tag der Woche angenommen und mit dem Wert 1 zurückgegeben,
während der Samstag der 7. Tag der Woche ist.
Diese Definition entspricht jedoch nicht den ISO-Richtlinien, in denen der Montag als der
erste Wochentag definiert wurde. Diesen Richtlinien entspricht denn auch die zweite Funktion,
DAYOFWEEK_ISO. Hier wird der Montag mit 1 als erster Wochentag ausgegeben, während
der Sonntag als letzter Wochentag mit 7 ausgegeben wird.
Wie auch bei allen anderen bisher beschriebenen skalaren Funktionen kann auch hier der
Wochentag aus jedem beliebigen Datums- oder Zeitmarken-Feld oder einer gültigen Darstellung
eines Datums oder einer Zeitmarke ermittelt werden.
Um den Wochentag ausschließlich mit RPG zu ermitteln, muss man zunächst ausgehend
von einem Referenz-Montag (oder Sonntag) die Anzahl der Tage bis zum gewünschten Datum
www.inn-online.de < Seite > Seite: 50