Developer - Comparacion con una cadena

CADENA = JESUS
ayuda en la comparacion la esta cadena se supone que sustraigo de la posicion 2 el primer digito y lo paso a un while y va incrementando la posicion hasta en contrar la segunda consonante (S)

Cita:
ICX := 1;
ICP :=SUBSTR(:PERSONA.APPAT,2,1);
WHILE ICP ='B' and ICP <> 'C' and ICP <> 'D' and ICP <> 'F' and ICP <> 'G' and ICP <> 'H' and ICP <> 'J' and ICP <> 'K' and ICP <> 'L' and ICP <> 'LL' and ICP <> 'M' and ICP <> 'Ñ' and ICP <> 'N' and ICP <> 'P' and ICP <> 'Q' and ICP <> 'R' and ICP <> 'S' and ICP <> 'T' and ICP <> 'V' and ICP <> 'W' and ICP <> 'X' and ICP <> 'y' and ICP <> 'Z' LOOP
ICP :=SUBSTR(:PERSONA.APPAT,ICX,1);
MESSAGE('VALOR: '||ICP); -- ver que recoge
ICX :=ICX+1;
END LOOP;
Pero no lo hace se queda en "J" no se que le pasa nose si este bien la comparacion ..!

estoy en form builer