View Full Version : Timestamp im CL generieren
Systemwert QDATETIME gibt’s wohl ab V5R3. (https://www.mcpressonline.com/operating-systems/ibm-i-os400-i5os/techtip-v5r3-system-values)
Ich habe jetzt keine IBM im Zugriff und die Doku zeigt da nichts näheres zum Format:
"QDATETIME system value returns the combined values of the QDATE and QTIME system values in a single field."
Laut meiner Erinnerung ist das Datum in QDATE allerdings nicht timestampfähig, also nicht zwangsweise in ISO.
Systemwertparameter (https://www.ibm.com/docs/de/i/7.5.0?topic=values-system-value-parameters)
QDATETIME 1
Datum und Uhrzeit
Datum und Uhrzeit
CHAR
20
Kein Standardwert.
Gibt QDATE und QTIME an.
Ich habe noch mal rückgefragt:
Da QDATE und QTIME im eingestellten Format geliefert werden, ist zumindest QDATE meist nicht sortierfähig, da es z.B. in EUR ausgegeben wird.
Ein Timestamp (egal ob ILERPG oder SQL) ist immer in ISO erhaltbar. Im ILERPG auch als *ISO0, also als reine Zahl. Im CLP benötige ich immer Zusatzaufwände und ich weiß nicht, wieviele Millionen identische Codezeilen es hierzu weltweit gibt, die ich mir vor über 30 Jahren leider nicht habe patentieren lassen.
QDATETIME kann man in CLP einfach als Text nehmen.
Hast du denn dein zentrales QDATFMT auf *ISO stehen?
Da, wo ich nachsehen kann, steht halt
"31.10.2025 13:25:07"
und somit nicht sortierfähig. Du musst es also, wie Birgitta schon schrieb, mit %SST und *CAT so zusammenbauen, dass es geht.
Und der Doppelpunkt ist zumindest für Windows nicht erlaubt.
QDATETIME ist unabhängig von QDATFMT.
RTVSYSVAL bringt da immer 20 Zeichen (jjjjmmtthhnnssxxxxxx).
Beim DSPSYSVAL wird es halt lesbar angezeigt.
Siehe hier: RTVSYSVAL QDATETIME ... (https://www.as400andsqltricks.com/2024/01/CL%20command%20for%20Timestamp.html)
Daran merkt man dann, wie man älter wird;-).
CL wurde in V5R3 um Einiges erweitert.
Ja, mit CLLE gibts sogar Schleifen und Subroutinen.
Was noch fehlt wären einfache Print-Befehle.
Früher habe ich mal intensiver mit REXX gearbeitet.
Eine komplexe, oft vernachlässigte Sprache, die CL-Befehle mit Returnvars und SQL unterstützt, Subroutinen und Funktionsaufrufe auch über Quell-Grenzen hinweg. Und mit der Überschreibung von STDOUT auf QPRINT konnte man sogar Protokolle schreiben.
Bei *FCFC-Überschreibung sogar mit Seitenwechsel und Überschriften.
Hinzukam auch eine gewisse Dynmaik, also das Zusammensetzen von Befehlsketten um mit "Interpret" ausgeführt zu werden.
Ich glaube, REXX gibts immer noch.