Moin,

so funzt das.

d Field S 2000A Varying
d String S 2000A Inz('Ergebnis des Inhaltes ist 28')
d FieldLen S 5S 0 Inz
Field = String ;
FieldLen = %Len(%Trim(Field)) ;
Dsply FieldLen ;

mfg

DKSPROFI