Ich möchte ein *ISO in *EUR Datum konvertieren

[Bruno Leydet]

Wie kann ich auf einer einfachen Weise ein *ISO Datum in einem *EUR Datum im freeRPG konvertieren:

fDatumISO ist als Datumsfeld *ISO definiert und beinhaltet '2013-04-26'

fDatumEUR ist als Datumsfeld *EUR definiert und soll den Inhalt von fDatumISO bekommen.

Danke für die Ratschläge
Bruno

[Fuerchau]

Einfach:

fDatumEUR = fDatumISO ;
Die Runtime übernimmt die Konvertierung.

[B.Hauser]

Ein Datum ist ein Binär-Wert, der durch das Datums-Format lesbar gemacht wird. In RPG wird das Datum immer in eine alphanumerische Variable konvertiert und erst unmittelbar vor dem Zurückschreiben wieder konvertiert.

Eine Konvertierung von Datum zu Datum ist damit sinnlos.

Wenn Du allerdings für Deine Ausgabe das Datum in einer alphanumerischen Form in einem bestimmten Format brauchst, kannst Du die Built-in-Function %Char verwenden, die ein Datum in (fast) jede beliebige alphanumerische Darstellung konvertiert.

 /Free
    MyCharDatum = %Char(MyDatum: *EUR);
 /End-Free

Birgitta

[Bruno Leydet]

Ah mon Dieu :-)

Danke!!!

ein schönes Wochenende wünsche ich noch
Bruno

[Fuerchau]

@Birgitta
Das ist definitiv falsch.
Im RPGLE ist eine Datumvariable IMMER vom Typ CHAR!
Du kannst es dir gerne im Debugger ansehen.
Ich kann diese auch mit OVERLAY redefinieren.
Ein EVAL von einem Datumsfeld in ein anderes ruft intern die Runtime für Datumsroutinen auf.

Packst du ein Datum *EUR in eine DS und überträgst diese in eine 2. DS mit Datum *ISO erfolgt KEINE Konvertierung, so dass der Zugriff auf die Variable später einen Laufzeitfehler mit ungültigem Datum auslöst.

Ein Ändern von Datum1 in Datum2 wird durch den einfachen EVAL bereits durchgeführt.

[B.Hauser]

@Birgitta
Das ist definitiv falsch.
Im RPGLE ist eine Datumvariable IMMER vom Typ CHAR!

Wo ist bitte der Unterschied zwischen:
"In RPG wird das Datum immer in eine alphanumerische Variable konvertiert und erst unmittelbar vor dem Zurückschreiben wieder zurückkonvertiert" und "eine Datumsvariable IMMER vom Typ CHAR!"

Eine Konvertierung von Datum zu Datum ist insofern sinnlos, weil das Datum nie in dem entsprechenden Format sondern immer als Binär-Wert zurückgeschrieben wird.
Um allen Problemen aus dem Weg zugehen, sollte man für Datums-Felder ein einheitliches Format (am Besten *ISO) verwenden.

Vielleicht solltest Du mal die Antworten genauer lesen, bevor Du zurückschiesst!

Dass das Datum für die Aufgabe entsprechend aufbereitet wird, werden kann und muss, steht auf einem anderen Blatt. Das hatte ich aber zuvor schon geschrieben.

[Fuerchau]

Da es hier um RPG und nicht um die DB geht, spielt eine interne DB-Darstellung doch keine Rolle.

Hier geht es darum, von einer RPG-Variable in eine andere das Format zu ändern. Dies passiert automatisch durch den EVAL.
Die %char()-Funktion benötige ich nur, wenn ich ein Datumfeld in ein Zeichenfeld mit gleichzeitiger Formatumwandlung machen möchte, ansonsten reicht auch hier ein einfacher Eval.

"Eine Konvertierung von Datum zu Datum ist damit sinnlos."

Es ist durchaus sinnvoll ein Format zu konvertieren wenn ich es z.B. am Bildschirm anzeigen oder drucken oder in eine Nicht-DB-Ausgabe schieben muss.

[BenderD]

Vielleicht solltest Du mal die Antworten genauer lesen, bevor Du zurückschiesst!

... der 30.4. naht

D*B

[andreaspr@aon.at]

@Baldur: Ist witzig euch zu verfolgen. Ihr beide habt recht! Und das schon von Anfang an.

"Eine Konvertierung von Datum zu Datum ist damit sinnlos."

Es ist durchaus sinnvoll ein Format zu konvertieren wenn ich es z.B. am Bildschirm anzeigen oder drucken oder in eine Nicht-DB-Ausgabe schieben muss.

Birgitta hat genau das gleiche beschrieben. Für mich sieht es so aus, als ob du sie ein paar mal falsch verstanden hättest.
Denn das GANZE Zitat von Birgitta war:

Eine Konvertierung von Datum zu Datum ist damit sinnlos.

Wenn Du allerdings für Deine Ausgabe das Datum in einer alphanumerischen Form in einem bestimmten Format brauchst, kannst Du die Built-in-Function %Char verwenden, die ein Datum in (fast) jede beliebige alphanumerische Darstellung konvertiert.

Ansonsten wünsch ich euch noch ein erholsames Wochenende

lg Andreas

[Fuerchau]

@Andreas
Ich betrachte nur die Aufgabenstellung und antworte entsprechend.
Zusatzinformationen verwirren die meisten doch nur ins besonders wenn sie mit der gestellten Aufgabe nichts zu tun haben.
Die DB2/400 war hier gar nicht gefragt.