-
Ach Datum, wie wäre das schön ...
... wenn ich doch beim BIF %date das Format dynamisch mitgeben könnte.
Hat diese Idee schon mal irgendwer gehabt und es auch realisiert oder dreh ich mich mit meiner "verrückten" Idee im Kreis.
Zum Verständnis: Ich will zb *DMY in einem Feld als Parameter mitgeben.
kf
-
Das geht leider nicht, da *DMY *ISO etc Sonderwerte sind vom Quasityp Datumsformat ...
Das einzige was helfen würde wäre ein SELECT außenrum, mit dem du das Variable Format abfragst und das dann so umsetzt
Code:
SELECT
WHEN ZZDATFMT = '*ISO'
var1 = %date(datvar:*ISO)
WHEN ZZDATFMT = '*EUR'
var1 = %date(datvar:*EUR)
...
ENDSELECT
-
Danke, wäre ja fast zu schön gewesen. Hab mir's schon gedacht - aber fragen darf man ja.
Dann gibt es nur zwei Varianten:
a) fix
b) den Select in einem Serviceprogramm - geht auch.
kf
-
Dynamisches SQL geht auch:
dcl-s MySQL varchar(100);
dcl-s MyCharDate varchar(10);
MySQL = 'values(char(current date, iso)) into ?';
exec sql execute immediate : MySQL using : MyCharDate;
Andererseits: wofür brauchst du das?
Im Normalfall benötigt man das Datum statt in ISO in anderen Formaten doch nur für die Ausgabe.
-
You could also write your own little service program to convert from one format and output in another format including specifying the output Trennzeichen and upper/lower case.
This allows you to create any format you want. You can do this using CEEDAYS and CEEDATE :
Code:
// RtnIndPR Processing
Select;
// Incoming format *CYMD
when InFormatPR = 1;
ISOdate = %date(InDatePR :*cymd);
ENDsl;
monitor;
CEEDAYS(%char(ISOdate :*iso) :CEEinFmtTxt :lilian :*OMIT);
on-error;
RtnIndPR = 'EE';
OutDatePR = %char(ISOdate);
endmon;
if RtnIndPR <> 'EE';
Select;
// Outgoing format 'DD-Mmm-YYYY'
when OutFormatPR = 1;
CEEoutFmtTxt = 'DD-Mmm-YYYY';
ENDsl;
monitor;
CEEDATE(lilian :CEEoutFmtTxt :OutDatePR :*OMIT);
on-error;
RtnIndPR = 'EE';
OutDatePR = %char(ISOdate);
endmon;
ENDIF;
Similar Threads
-
By ManfredG in forum IBM i Hauptforum
Antworten: 3
Letzter Beitrag: 15-01-19, 12:50
-
By Zuther in forum IBM i Hauptforum
Antworten: 4
Letzter Beitrag: 06-12-18, 12:51
-
By Peet in forum NEWSboard Programmierung
Antworten: 3
Letzter Beitrag: 06-10-17, 22:35
-
By dholtmann in forum NEWSboard Programmierung
Antworten: 7
Letzter Beitrag: 03-05-16, 09:35
-
By Isabella Pridat-Zapp in forum IBM i Hauptforum
Antworten: 1
Letzter Beitrag: 15-12-14, 17:10
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