IDENTIFICATION DIVISION.
PROGRAM-ID.  INSPECT.
AUTHOR.      CARLOS ALBERTO DORNELLES.

ENVIRONMENT DIVISION.                                            
CONFIGURATION SECTION.                                           
SPECIAL-NAMES.                                                   
    DECIMAL-POINT IS COMMA. 

DATA DIVISION.
WORKING-STORAGE SECTION.

01  WS-AUXILIARES.
    05  ITEM-1          PIC X(016) VALUE 'AC"AEBDFBCD#AB"D'. 
    05  ITEM-2          PIC X(026) VALUE "ABCDEFGHIJKLMNOPQRSTUVWXYZ".

PROCEDURE DIVISION.

001-INICIO.

    DISPLAY "ITEM-1 antes  : " ITEM-1
    INSPECT ITEM-1 CONVERTING
            "ABCD" TO "XYZX" AFTER QUOTE BEFORE "#"
    DISPLAY "ITEM-1 depois : " ITEM-1

    DISPLAY "ITEM-2 antes  : " ITEM-2
    INSPECT ITEM-2 CONVERTING "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
                           TO "abcdefghijklmnopqrstuvwxyz"
    DISPLAY "ITEM-2 depois : " ITEM-2
    STOP RUN.

* Resultado do teste:

* ITEM-1 antes  : AC"AEBDFBCD#AB"D
* ITEM-1 depois : AC"XEYXFYZX#AB"D

* ITEM-2 antes  : ABCDEFGHIJKLMNOPQRSTUVWXYZ
* ITEM-2 depois : abcdefghijklmnopqrstuvwxyz