Cobol - Como buscar una palabra en un string de caracteres

Hola amigos, tengo una consulta si me pueden ayudar, tengo un campo alfanumérico que puede contener cualquier carácter y necesito encontrar si existe una palabra en especial, de modo de obtener la posición inicial y final donde se encuentra la palabra en el campo alfanumérico. por ejemplo la variable contiene lo siguiente 'adfecdecasakodedec', el resultado seria que me diga que existe la palabra 'casa' y me de la posición inicial 8 y de termino 11.

WORKING STORAGE.
01 CONT PIC 999.
01 PALABRA PIC X(35).
01 wLongRaiz PIC 9(03).
01 NOMBRE PIC X(150).
PROCEDURE DIVISION.
MOVE 'adfecdecasakodedec' TO nombre.
INSPECT NOMBRE CONVERTING "abcdefghijklmnñopqrstuvwxyz"
TO "ABCDEFGHIJKLMNNOPQRSTUVWXYZ".
MOVE "CASA" TO PALABRA.
UNSTRING PALABRA DELIMITED BY SPACES INTO PALABRA COUNT IN wLongRaiz
INSPECT NOMBRE TALLYING CONT FOR ALL PALABRA(1:wLongRaiz).
IF CONT = 0 DISPLAY "NO EXISTE PALABRA".

Gracia por la ayuda.

En este posting yo puse un ejemplo:
http://www.lawebdelprogramador.com/foros/Cobol/1438184-Funciones-STRING-UNSTRING-con-VARCHAR.html

La Sent. STRING Sirve para unir valores de variables (no empaquetadas)
en otra variable. Es Obvio que es deseable que la logitud de la variable destino debe ser
igual o mayor a la sumatoria de las longitudes de la variables origen.

Ej:




Nombre: Chulengo Chuleta########################


Nombre: Chulengo@Chuleta########################



Nombre: Chulengo@Chuleta



Linea: Chamaco@Chulengo@Chuleta@20200212@6501295012740100001022@950127401@0401




Linea: Chamaco Chulengo Chuleta 20200212 6501295012740100001022 950127401 0401


Tambien se puede Usar el Unstring cuando quieras separar un String en variables
siempre y cuando tengan algun patron de separador.

WORKING STORAGE.
01 CONT PIC 999.
01 NOMBRE PIC X(150).
PROCEDURE DIVISION.
MOVE 'adfecdecasakodedec' TO nombre.
INSPECT nombre TALLYNG CONT FOR ALL "casa"
IF CONT > 0 DISPLAY "Existe".