[Sintaxis] 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.

[Kuk]

Roger, échale un vistazo a esto: [Aporte] Ejemplo de Filtro de búsqueda (Type ahead search) - COBOL Foro

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