View Full Version : Free rpg TIME
loeweadolf
22-02-04, 10:44
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
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
22-02-04, 13:44
Hallo Dieter,
danke für die schnelle Antwort.
mfg. Ludger
loeweadolf
22-02-04, 22:16
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
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
23-02-04, 11:11
danke, ich werds mal probieren. Ludger