Wie wäre es mit

select 'J' into :vorhanden from datei where exists (...)
Schließlich enthält der Exists implizit den Fetch first und ist für den Einzelsatzzugriff optimiert.