DANKE an ALLE

ich habe es mit
D MyStru DS Extname(...)
D Indic S 5I 0 dim(x)

EXEC SQL FETCH MyCursor into :MyStru :Indic
END-EXEC

und mit

C/EXEC SQL
C+ Set Option DatFmt = *EUR
C/END-EXEC

probiert

funktioniert beides.
Nochmals DANKE

Gruss
G.S.