Progress - Seleccionar texto despues de un punto

Buenas tardes.

Necesito seleccionar de una cadena la extension, es decir:

C:marielaexamenesprueba.txt

De esa cadena (porque es char) necesito seleccionar lo que va despues del " ." es decir "txt".

Cual es el comando que me permite hacer esto?

Pudiera ser con un ENTRY, sería algo así:

DEF VAR lv-archivo AS CHAR FORMAT "x(40)".
DEF VAR lv-extension AS CHAR.

REPEAT:
/* Capturo nombre de archivo */
UPDATE lv-archivo.

IF SEARCH(lv-archivo) = ? THEN DO: /* Valido que exista el archivo */
MESSAGE "Archivo no existe" VIEW-AS ALERT-BOX.
UNDO, RETRY.
END.
/* Valido que el archivo tenga nombre y extensión */
IF NUM-ENTRIES(lv-archivo,".") = 2 THEN
lv-extension = ENTRY(2,lv-archivo,".").

DISPLAY lv-extension.
END.


Con esto obtienes la extensión de un archivo.

Saludos.

Ok, entendido!

Esta pregunta surgió porque lo que quiero hacer es una busqueda en mi directorio "C" (por ejemplo) para buscar ese mismo archivo txt y renombrarlo, pero por lo que veo estoy de atras para adelante.... Ok, ya se como obtener la extension (gracias ;-) ); pero ahora como hago la busqueda en el directorio.

En el directorio solo voy a tener un solo archivo "txt" que es el que hablamos en la nota anterior, pero que pasa!?.... que yo necesito buscar en ese directorio el archivo. Cual es el problema!?... que el nombre del archivo puede variar, entonces yo me podria conseguir algo como:

C:carpetamarielita.txt

C:carpetaola.txt

Este es el codigo:
ASSIGN rutaTXT = "c:carpeta ".
ASSIGN rutaBCK = "c:carpeta ".
.
.
.(PROCEDIMIENTO PARA OBTENER EXTENSION)
.
.
OS-RENAME VALUE(rutaTXT) VALUE(rutaBCK).

Entonces no le puedo decir a rutaTXT = "C:carpetamarielita.txt" porque tambien podría ser rutaTXT = "C:carpetaola.txt"