* ==== TYPE: ST-INI-REPLACE ====
      * FEATURE: INITIALIZE with REPLACING clause
      * STATEMENT: INITIALIZE REPLACING
      * BRANCHES: 2, DECISIONS: 1
       IDENTIFICATION DIVISION.
       PROGRAM-ID. INIREP.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 WS-AMOUNT  PIC 9(5) VALUE 99999.
       01 WS-CODE    PIC X(5) VALUE 'XXXXX'.
       PROCEDURE DIVISION.
       MAIN.
           INITIALIZE WS-AMOUNT WS-CODE
               REPLACING NUMERIC DATA BY 1
                          ALPHANUMERIC DATA BY 'A'.
           IF WS-AMOUNT = 1
               DISPLAY 'OK: REPLACE NUMERIC'
           ELSE
               DISPLAY 'ERROR: REPLACE'.
           STOP RUN.