%DATE & RNF7510

[RaMai]

Hallo,

kann mir einer sagen was ich hier falsch mache:
enddate = %dec(%char(%date(y2k004:*mdy):*iso0):8:0);

Ich moechte also ein numerisches Feld (6 0) das MMDDYY enthaelt in ein numerisches Feld (8 0) CCYYMMDD konvertieren.
Bekomme aber RNF7510

Dankeschoen im voraus!
Ralf

[B.Hauser]

Hallo,

kann mir einer sagen was ich hier falsch mache:
enddate = %dec(%char(%date(y2k004:*mdy):*iso0):8:0);

Ich moechte also ein numerisches Feld (6 0) das MMDDYY enthaelt in ein numerisches Feld (8 0) CCYYMMDD konvertieren.
Bekomme aber RNF7510

Dankeschoen im voraus!
Ralf

Was sagt RNF7510????????
Und wann tritt der Fehler auf? Bei Umwandeln oder Ausführen?
Wenn Du Release V5R3 oder höher hast, kannst Du den folgenden Source Code verwenden.

 /Free
  NumDate8 = %Dec(%Date(NumDate6: *MDY): 8: 0);
 /End-

Free

Bei mir laufen auch die beiden folgenden Konvertierungen problemlos:

 /Free
    NumDate8 = %Dec(%Char(%Date(NumDate6: *MDY): *ISO0): 8: 0);                                               
    NumDate8 = %Int(%Char(%Date(NumDate6: *MDY): *ISO0));         
 /End-Free

Birgitta

[RaMai]

Danke Brigitta,

der Fehler trat beim umwandeln auf.
Hab es gestern zum laufen gebracht indem ich es in 2 steps gemacht habe...komischerweise funktioniert es heute mit jedem Deiner Beispiele.

Danke nochmals,
Ralf

[BenderD]

... das ist wieder eines dieser seltenen geraden Features; da habt ihr eine dieser seltenen Sammlerstücke erwischt, die jeden zweiten Tag Mist bauen.

D*B