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

WORKING-STORAGE SECTION.
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-C   PIC X(54) VALUE 'fffffff '   
        &   
        'ggggggggggggggggggggggg '         
        &   
        'hhhhhhhhhhhhhhhhhhhhhhh '.         
01      W01-COMPUTE-E   PIC S9(5)V99 USAGE COMP VALUE 99876.

* COPY TEST02D. 
* COPY TEST02E IN TEST-LIB. 
* COPY 'copybooks2/TEST02F'. 
* COPY 'copybooks2/TEST02F' IN TEST-LIB. 
* COPY '/root/copybooks2/TEST02F' IN TEST-LIB. 
* COPY '/root/copybooks2/TEST02F'. 
* COPY /root/copybooks2/TEST02F. 
* 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)== .

COPY TEST02 IN TESTLIB REPLACING 
      W01-COMPUTE-0 BY W01-COMPUTE-000
      'W01-1XXX' BY 'W01-3'
      ==9(5)== BY ==9(07)== .

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".