Rutina de filtrado de palabras

[Gatomalo]

Hola amigos, tengo una consulta si me pueden ayudar
tengo estos campos

Maria carpio cedula 52335
Jose monzante cedula 62355
Carlos del Prado Cozo cedula 4255656
Sandro Villafuerte Hernandez cedula 3255552

por programa necesito que solo se muestren el nombre sin la cedula ni el numero
en un listado todo esta grabado en un solo campo.

GRACIAS

[Kuk]

gatomalo, toma un ejemplo de filtrado de texto. En este ejemplo, el campo TXT contiene el texto ya limpio (sin "cedula" y demás). Te he hehco el ejemplo suponiendo que lees de un fichero. Imagino que podrás adaptarlo un poco a tus necesidades:

WORKING-STORAGE SECTION.
01 IDX-1 PIC 9(5).
01 TXT PIC X(50).
PROCEDURE DIVISION.

PERFORM UNTIL SW-FIN-FICHERO
MOVE 1 TO IDX-1

PERFORM UNTIL (IDX-1 + 6) > 50
IF RE-REGISTRO(IDX-1:6) = 'cedula'
MOVE RE-REGISTRO(1:IDX-1 - 1) TO TXT
END-IF

ADD 1 TO IDX-1
END-PERFORM

READ FICHERO NEXT
END-PERFORM

[Hrmcobol]

Hola Amigo, otro opcion seria

ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 TXT1 PIC X(90) VALUE "Jose monzante cedula 62355".
01 TXT2 PIC X(90) VALUE SPACES.
PROCEDURE DIVISION.
INSPECT TXT1 REPLACING ALL "cedula" BY "******"
STRING TXT1 DELIMITED BY "*" INTO TXT2 END-STRING
INVOKE POW-SELF "DisplayMessage" USING TXT2 " " 0

[Roger]

Necesito filtrar desde un campo cmtext de la siguiente manera
si pongo C semuestre todas las palabras que empiezen con c
si pongo CA todas que con CA
si pongo CAM y asi sucecivamente ..... muy similar al filtrado que usan en Visual Basic.

:foto:

[Kuk]

Roger, échale un vistazo a esto: [Aporte] Ejemplo de Filtro de búsqueda (Type ahead search) - COBOL Foro (http://cobolforo.es/showthread.php?t=224)

Está hehco en Power v3 pero puedes leer el fuente para ver lo que se hace.