Datei
A UNIQUE
A R TOMG
A MGIDMG 3
A MGTXMG 80
A IN01MG 80
A IN02MG 80
A IN03MG 80
A IN04MG 80
A K MGIDMG

Programm
D MSG s 3
D MSGID s 3A
MSG CHAIN(N) TOMG
IF %found
MOVE MSGID MELD51
MOVE '51' SARTAK
ENDIF



Ich habe es schon mit beiden Feldern oben probiert.