Ersatz für TIME-Operation im free-format RPG

[opeker]

Hallo !

Ich suche eine einfache Lösung die aktuelle Zeit in ein 6-stelliges numerisches Feld zu bekommen. Mit dem TIME-Befehl war das kein Problem. Gibt es im Free-Format RPG dafür eine Ersatzfunktion ? Mit %time bekomme ich zwar ein Zeitfeld, habe dann aber das Problem das Zeitfeld in ein numerisches Feld zu konvertieren.

mfg,
Opeker

[B.Hauser]

Hallo !

Ich suche eine einfache Lösung die aktuelle Zeit in ein 6-stelliges numerisches Feld zu bekommen. Mit dem TIME-Befehl war das kein Problem. Gibt es im Free-Format RPG dafür eine Ersatzfunktion ? Mit %time bekomme ich zwar ein Zeitfeld, habe dann aber das Problem das Zeitfeld in ein numerisches Feld zu konvertieren.

mfg,
Opeker

Welches Release habt Ihr?
Vor Release V5R2M0, ist es am einfachsten den MOVE-Befehl (leider nicht free format) zu verwenden, um ein Zeit-Feld in ein numerisches Feld zu konvertieren.

Mit Release V5R2M0, kannst Du dann, etwas kompliziert, die Zeit in eine alphanumerische Zeit konvertieren und anschliessend über eine der Funktionen %Int oder %Dec das alphanumerische Datum in ein numerisches Datum konvertieren.

TimeNum = %Int(%Char(%Time(): *ISO0));

Mit Release V5R3M0 schliesslich kannst Du direkt über die Funktion %DEC ein Datum in ein numerisches Feld umwandeln.

TimeNum = %Dec(%Time(): *ISO);


Vielleicht noch eine Anmerkung zur Performance, unter V5R3M0 habe ich es noch nicht getestet, aber unter V5R2M0 war der MOVE-Befehl ungefähr 20 mal so schnell wie die Built-in-Funktions-Variante.

Birgitta

[opeker]

Hallo Birgitta !

Vielen Dank für die rasche Antwort. Wir haben V5R2M0. Der Beispiel-Code funktioniert wie gewünscht. Da es aber doch noch relativ kompliziert ist, diese Funktion im free-format zu definieren und durch das oftmalige konvertieren die Performace leidet, werde ich wohl mit dem spaltenorientierten RPG eine Funktion in einem Service-Programm schreiben und diese dann in den Programmen verwenden.

lg, Peter