Timestamp im CL generieren

[Pikachu]

Systemwertparameter
QDATETIME 1
Datum und Uhrzeit
Datum und Uhrzeit
CHAR
20
Kein Standardwert.
Gibt QDATE und QTIME an.

[Fuerchau]

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.

[Pikachu]

QDATETIME kann man in CLP einfach als Text nehmen.

[Fuerchau]

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.

[Pikachu]

QDATETIME ist unabhängig von QDATFMT.
RTVSYSVAL bringt da immer 20 Zeichen (jjjjmmtthhnnssxxxxxx).
Beim DSPSYSVAL wird es halt lesbar angezeigt.

Siehe hier: RTVSYSVAL QDATETIME ...

[Fuerchau]

Daran merkt man dann, wie man älter wird;-).

[Pikachu]

CL wurde in V5R3 um Einiges erweitert.

[Fuerchau]

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.

[Pikachu]

Was auch noch fehlt sind Zeichenketten mit variabler Länge wie in RPG.

[Fuerchau]

Die kannst du simulieren per %bin und %sst.
%bin(&var 1 2) : Längen < 32K
%bin(&var 1 4): Längen >= 32K
%bin kann auch als Ziel angegeben werden.
Zusätzlich kannst du per Redefine
STG(*DEFINED) LEN(2) DEFVAR(&DATA_STRCT 1)

nun auch Strukturen definieren und somit eben auch varying Felder einfacher verarbeiten, also sowohl lesen als auch schreiben.
Sowas habe ich allerdings auch schon mit V5R3 gemacht.