IDENTIFICATION DIVISION.
 PROGRAM-ID. TEST3.
 ENVIRONMENT DIVISION.
 CONFIGURATION SECTION.
* SPECIAL-NAMES.
* DECIMAL-POINT IS COMMA.
 INPUT-OUTPUT SECTION.
 FILE-CONTROL.
 DATA DIVISION.
 FILE SECTION.

 WORKING-STORAGE SECTION.

 REPLACE ==9(5)== BY ==9(07)==.

 01     XX.
  05    X1              PIC 9(4) VALUE 0.
  05    X2              PIC 9(4) VALUE 0. 
  05    X3              PIC 9(4)V99 VALUE .33. 
 01     W01-COMPUTE-E   PIC S9(5)V99 USAGE COMP VALUE 99876.
 01     W01-CATSTR      PIC X(30) VALUE "0123456789" & 
                        "0123456789" & *< test of in-line comment
                        "0123456789".

* COPY 'TEST02C.cpy' . 
 COPY TEST02C. 

 COPY TEST02 IN TESTLIB REPLACING 
     W01-COMPUTE-0 BY W01-COMPUTE-00,
     'W01-1XXX' BY 'W01-2',
     ==9(5)== BY ==9(04)== .


 PROCEDURE DIVISION.

 A-000.

*     READY TRACE.

     PERFORM A-100.

*     RESET TRACE.

     STOP RUN.

 A-100.

     DISPLAY "ENTER A-100".

     MOVE 1 TO X1.
     ADD  1 TO X1.
     MOVE X1 TO X2.

     DISPLAY "EXIT  A-100".