IDENTIFICATION DIVISION.
PROGRAM-ID. TEST1.
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. 
01      W01-COMPUTE-E   PIC S9(5)V99 USAGE COMP VALUE 99876.
01	W01-COMPUTE-E   PIC S9(5)V99 USAGE COMP VALUE 99876.
01      W01-COMPUTE-X PIC X(50) VALUE "aaaaaaaaaaaaaaaaaaaaaaaaaaa    
-    "bbbbbbbbbbbbbbbbbbbbbbb".
01      W01-COMPUTE-Y PIC X(54) VALUE "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
-	       "bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb
-	       "ccccccccccccccccccccccc".
01      W01-COMPUTE-Z PIC X(54) VALUE "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
-    "bbbbbbbbbbbbbbbbbbbbbbb".


* CoPy 'TEST02.cpy' IN TESTLIB REPLACING 
*      W01-COMPUTE-E BY W01-COMPUTE-EE
*      ==9(5)== BY ==9(04)== 
*      ==9(6)== BY ==9(06)== 
*      == 02 == BY == 05 == .
* COPY 'TEST02.cpy'. 
* Copy 'TEST02.cpy' IN "Test.lib" REPLACING 
* COPY 'TEST02.cpy' REPLACING 
COPY 'TEST02.cpy' IN TESTLIB REPLACING 
     W01-COMPUTE-0 BY W01-COMPUTE-00
     'W01-1XXX' BY 'W01-2'
     ==9(5)== BY ==9(04)== .

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

PROCEDURE DIVISION.

A-000.

*     READY TRACE.
D     DISPLAY "READY TRACE".

     PERFORM A-100.

D     DISPLAY "RESET TRACE".
*     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".