Danke für die schnelle Antwort Fürchau!

Leider klappt es aber trotzdem nicht.
%date ist Free-Format oder? Damit hab ich bisher leider noch nichts zu tun gehabt.

Nachfolgend ein Programmausschnitt, wie ich es versucht habe:

*
D $datum_iso S D DATFMT(*ISO)
D $datum_alpha S 8A INZ(*BLANK)
*
C TIME $datum_iso
*
/free
$datum_alpha = %date($datum_iso:*CYMD0);
/end-free
*
C EVAL *inLR = *ON
C RETURN
*


Beim übersetzen des Programmes meldet der Compiler:
*RNF0605 20 1 der erste Parameter für %DATE ist ungültig.
*RNF7416 30 1 Die Arten der Operanden auf der rechten und linken Seite des
Ausdrucks in der Operation EVAL stimmen nicht überein.