Danke für den Hinweis.
Aber ich habe jetzt anders gelöst:

FTEST IF E K DISK
FTEST1 O E K DISK
DKEY S Like(WAREH)
C
/FREE
KEY = 'AAB';
Chain Key TEST;
if %Found(TEST);
DoW not %EoF(TEST);
//Dsply KUNDE;
Kunde1= Kunde;
Write Test1f;
Reade Key TEST;
EndDo;
else;
Dsply 'NIX gefunden';
Endif;
*Inlr = *On;
/End-Free
C