-
embedded SQL in RPG
Brauche Hilfe
Habe im Rpg (nicht ILE) ein 8 ste. nummerisches Feld welches
ein Datum beinhaltet z.B. "03082006"
wie kann ich mit embedded SQL daraus die Kalenderwoche
berechnen?
(wie gesagt, nicht ILE, da funkt's)
-
Datum in ein Datumsformat bringen.
(TT.MM.JHJJ) z. B. mit %SUBST-Funktion
Dann: Select WEEK('TT.MM.JHJJ') from xxxx
MfG
Klaus
-
kann keine bif's benutzen, da das Pgm kein ILE-Pgm ist sondern leider noch ein RPG-Pgm.
(dieses kann leider aus bestimmten Gründen auch nicht auf ILE-Umgestellt werdern!)
-
Wie wär's damit?
select week(substr(25102006, 1, 2)||'.'||
substr(25102006, 3, 2)||'.'||
substr(25102006, 5, 4))
from sysibm/sysdummy1
-
Hello,
coole Sach.
Den Sysdummy1 habe ich bisher noch nie beachtet.
Soweit funzt das ja gut, nur ist das doch week und nicht week_iso?
Ich sag nur 4.1.1970 oder 29.12.2003!
k.
-
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:
PHP-Code:
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
Similar Threads
-
By loeweadolf in forum NEWSboard Programmierung
Antworten: 3
Letzter Beitrag: 18-06-06, 12:14
-
By loeweadolf in forum NEWSboard Programmierung
Antworten: 2
Letzter Beitrag: 01-06-06, 09:43
-
By lossin in forum IBM i Hauptforum
Antworten: 5
Letzter Beitrag: 23-08-05, 12:00
-
By Zupfl50 in forum NEWSboard Programmierung
Antworten: 8
Letzter Beitrag: 06-10-04, 21:04
-
By Ludger Muhmann in forum IBM i Hauptforum
Antworten: 3
Letzter Beitrag: 30-07-02, 09:49
Berechtigungen
- Neue Themen erstellen: Nein
- Themen beantworten: Nein
- You may not post attachments
- You may not edit your posts
-
Foren-Regeln
|
Erweiterte Foren Suche
Google Foren Suche
Forum & Artikel Update eMail
AS/400 / IBM i
Server Expert Gruppen
Unternehmens IT
|
Kategorien online Artikel
- Big Data, Analytics, BI, MIS
- Cloud, Social Media, Devices
- DMS, Archivierung, Druck
- ERP + Add-ons, Business Software
- Hochverfügbarkeit
- Human Resources, Personal
- IBM Announcements
- IT-Karikaturen
- Leitartikel
- Load`n`go
- Messen, Veranstaltungen
- NEWSolutions Dossiers
- Programmierung
- Security
- Software Development + Change Mgmt.
- Solutions & Provider
- Speicher – Storage
- Strategische Berichte
- Systemmanagement
- Tools, Hot-Tips
Auf dem Laufenden bleiben
|
Bookmarks