Hola Amigo, Esto uso Yo
Código COBOL:
01 HMS.
02 HM-TEXTO PIC X(300).
02 HM-CPO PIC 9(006).
MOVE SPACES TO HM-TEXTO
MOVE ZEROS TO HM-CPO
MOVE "Text" OF STX-MOBRA TO HM-TEXTO
INSPECT HM-TEXTO TALLYING HM-CPO FOR ALL ";".
INSPECT HM-TEXTO TALLYING HM-CPO FOR ALL '"'.
INSPECT HM-TEXTO TALLYING HM-CPO FOR ALL "'".
IF HM-CPO NOT = ZEROS
INVOKE POW-SELF "DisplayMessage"