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:
Código COBOL:
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