Free rpg TIME

[loeweadolf]

Wie erhalte ich im FREE RPG die aktuelle Systemzeit als Ergebnis in einer Variablen mit Länge 6,0 und das aktuelle Datum als Ergebnis ebenfalls in einer Variablen mit Länge 6,0 .

Im Fixed RPG würde ich den Befehl TIME verwenden.

mfg Ludger

[BenderD]

Hallo Ludger,

immer dasselbe Spiel: Built in function statt opcode, sieh dir dazu mal die Bif %time in der reference an.

mfg

Dieter Bender

[loeweadolf]

Hallo Dieter,

danke für die schnelle Antwort.

mfg. Ludger

[loeweadolf]

Ich habe mir das Referenzbuch der IBM (810 Seiten .pdf) im Internet angesehen bzgl. %time und %date.

So weit ich verstanden habe, kann die BIF %time folgendermassen angewendet werden:

Akt_Zeit = %time {value{:datenformat}}

Wird der Wert für value weglassen, so wird die aktuelle Systemzeit eingesetzt.

Also habe ich folgendes programmiert:

Akt_Zeit = %time (:*HMS);

Die Umwandliste zeigt en Fehler: RNF0637 Ein Operand wurde erwartet, aber nicht gefunden.

Andere Versuche brachten kein besseres Ergebnis.

Wie muß die korrekte Anweisung denn heißen ?

mfg. Ludger

[BenderD]

Hallo Ludger,

p test b
d test pr
d heute s d
d jetzt s t
/free
heute = %date();
jetzt = %time();
/end-free
p test e

die date und time Werte kannst Du dann über char nach int (V5R2) casten. Das mit dem casting ist eh' so ein Kapitel, das kommt erst so langsam in Gang und ist zum Teil recht halbherzig.

mfg

Dieter Bender

[loeweadolf]

danke, ich werds mal probieren. Ludger