iNN - eNews - SSS-Software

zu RPG, wo seit Release V5R3M0 ein Datum über die Built-in-Function %DEC(Datum:
*Format) direkt in einen numerischen Wert konvertiert werden kann, bietet SQL keine direkte
Lösung an.
CREATE FUNCTION MySchema/CvtDateToNum (ParDate Date)
RETURNS DECIMAL(8, 0)
LANGUAGE SQL
NOT DETERMINISTIC
CONTAINS SQL
CALLED ON NULL INPUT
DISALLOW PARALLEL
RETURN Cast(Year(ParDate) * 10000 +
Month(ParDate) * 100 +
Day(ParDate)
as Dec(8 , 0 ));
Beispiel 1: UDF CvtDateToNum ⇒ Konvertieren Datum in numerische Darstellung
Alternativ könnte natürlich auch eine in RPG geschriebene Funktion, in der das Datum
mit Hilfe der Built-in-Funktion %DEC(Datum: *Format) konvertiert wird als externe UDF
registriert werden.
Leider ist es auch heute noch so, dass in vielen älternen Anwendungen Datums-Werte in numerischer
Form gespeichert werden. Mit Hilfe dieser UDF können auch in SQL Datums-Werte
einfach in eine numerische Darstellung konvertiert werden.
Das folgende Beispiel zeigt wie die UDF CvtDateToNum in einem SQL-Statement verwendet
werden kann, um das Tages-Datum in numerischer Form aufzubereiten.
Update MySchema/MyTable
Set DateNum = CvtDateToNum(Current_Date)
Where DateNum < CvtDateToNum(Current_Date);
Beispiel 2: Verwendung der UDF CvtDateToNum
Seit Release V5R3M0 bietet SQL außerdem mit der skalaren Funktion EXTRACT das
Pendant zum RPG Operation Code EXTRCT bzw. zur Built-in-Funktion %SUBDT(). Bei der
skalaren Funktion EXTRACT muss die gewünschte Datums- oder Zeit-Einheit als YEAR,
MONTH, DAY, HOUR, MINUTE, SECOND und anschließend ein Datum, eine Zeit oder
Zeitmarke oder eine entsprechende gültige alphanumerische Darstellung angegeben werden.
Die Funktion EXTRACT liefert das gleiche Ergebnis wie die einzelnen skalaren Funktionen,
mit folgender Ausnahme:
• Das Ergebnis für Sekunden wird im Format 8,6 ausgegeben, wobei in den Dezimalstellen
die Mikrosekunden ausgegeben werden.
• Mikro-Sekunden können nicht als Zeit-Einheit angegeben werden, sondern werden über
www.inn-online.de < Seite > Seite: 48