%DATE & RNF7510

[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