Probleme mit Datumsformat in RPG

[malzusrex]

hm, konnte ich so nicht wandeln. nur mit einem %EditC

Eval      EHS1BEL   = %Date(%EditC(kd1bel:'X'):*CYMD0 ) 

nun bekomme ich einen Datums-/Zeitmarkenfehler.
im feld kd1bel steht 19900520

[Fuerchau]

Dann mach es mit %editw:
EHS1BEL = %Date(%EditW(kd1bel:'0____-__-__'):*ISO)

[Fuerchau]

So klappt es:

d TestNum s 8 0 inz(19900522)
d TestDate s d

c/free
TestDate = %date(TestNum);
return;
/end-free

Der 2. Parameter von %date gibt das Ziel- und nicht das Quellformat an !!