Das mit dem SQL ist immer so eine Sache.
Im Moment habe ich auf V5R2 das Problem, dass ein skalarer Subselect mit Count(*) in keinster Weise einen Index verwenden will und noch nicht mal einen Vorschlag dazu hat.
Dabei würde der Primary Index vollkommen genügen.
Da es sich um embedded SQL handelt, lese ich nun die benötigten Information beim Fetch einzeln aus und das geht wieder sauschnell.