Hola Amigo, otro opcion seria
Código COBOL:
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