embedded SQL in RPG

[B.Hauser]

Achtung!

Die Skalare Funktion WEEK ermittelt nicht die Kalenderwoche nach ISO, sondern setzt mit dem ersten Januar als erstem Tag des Jahres in Kalenderwoche 1 auf und Sonntag ist der erste Tag der Woche!

Die Definition der Kalenderwoche nach ISO ist wie folgt:
1. Die Kalenderwoche beginnt immer mit einem Montag
2. Die erste Kalenderwoche muss immer mindestens 4 Tage des neuen Jahres beinhalten.
--> der 4. Januar ist immer in KW1 oder der erste Donnerstag des Jahres ist in KW1

Um die Kalenderwoche nach ISO zu berechnen muss die skalare Funktion WEEK_ISO verwendet werden.

Ausserdem ist es nicht zwingend notwendig auf eine Datei zuzugreifen. Mit einem einfachen SET-Statement kann man skalare Funktionen ausführen, ohne Datei-Zugriff

In embedded SQL mit numerischem Datum kann die KW wie folgt ermittelt werden:

C/EXEC SQL  
C+ Set :KW = Week_Iso((Substr(Digits(:DatNum), 5, 4) concat '-' concat   
C+                     Substr(Digits(:DatNum), 3, 2) concat '-' concat   
C+                     Substr(Digits(:DatNum), 1, 2)))
C/END-EXEC 

Übrigens in der iNN - eNews 7/2006 hatten wir unter Tekki-Corner einen Artikel zu genau diesem Thema.
(Leider ist diese iNN - eNews z.Z. nicht online, da wir sie gestern Abend durch die August-Ausgabe ersetzt haben)

Aber bei Intresse einfach nachschauen unter:
www.iNN-online.de

Birgitta