000010 IDENTIFICATION DIVISION.
000020 PROGRAM-ID. fTEST1.
000030 ENVIRONMENT DIVISION.
000040 CONFIGURATION SECTION.
000045* SOURCE-COMPUTER. X86 WITH DEBUGGING MODE. 
000046* SOURCE-COMPUTER.  
000047*      X86 WITH DEBUGGING MODE. 
000048 SOURCE-COMPUTER.  
000049      X86. 
000050* SPECIAL-NAMES.
000060* DECIMAL-POINT IS COMMA.
000070 INPUT-OUTPUT SECTION.
000080 FILE-CONTROL.
000090 DATA DIVISION.
000100 FILE SECTION.
000110
000120 WORKING-STORAGE SECTION.
000130 01      XX.
000140   05    X1	       PIC 9(4) VALUE 0.
000150   05    X2              PIC 9(4) VALUE 0. 
000160 01      W01-COMPUTE-E   PIC S9(5)V99 USAGE COMP VALUE 99876.
000170 01 W01-COMPUTE-X PIC X(50) VALUE "aaaaaaaaaaaaaaaaaaaaaaaaaaa    
000180-    "bbbbbbbbbbbbbbbbbbbbbbb".
000170 01 W01-COMPUTE-Y PIC X(54) VALUE "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
000180-              "bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb
000180-              "ccccccccccccccccccccccc".
000170 01 W01-COMPUTE-Z PIC X(54) VALUE "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
000180-    "bbbbbbbbbbbbbbbbbbbbbbb".
000190
000200 CoPy 'fTEST02.cpy' IN TESTLIB REPLACING 
000210*      W01-COMPUTE-E BY W01-COMPUTE-EE
000280*      ==9(5)== BY ==9(04)== 
000280*      ==9(6)== BY ==9(06)== 
000280*      == 02 == BY == 05 == .
000260* COPY 'fTEST02.cpy'. 
000260* Copy 'fTEST02.cpy' IN "Test.lib" REPLACING 
000260* COPY 'fTEST02.cpy' REPLACING 
000260* COPY 'fTEST02.cpy' IN TESTLIB REPLACING 
000270      W01-COMPUTE-0 BY W01-COMPUTE-00,
000270      'W01-1XXX' BY 'W01-2',
000280      ==9(5)== BY ==9(04)== .                                     fTEST021
000290
000291 COPY 'fTEST02.cpy' IN TESTLIB REPLACING 
000292      W01-COMPUTE-0 BY 000-W01-COMPUTE-000
000293     'W01-1XXX' BY 'W01-3'
000294      ==9(5)== BY ==9(07)== .                                     fTEST022
000295
000300 PROCEDURE DIVISION.
000310
000320 A-000.
000330
000340*     READY TRACE.
000345D    DISPLAY "READY TRACE".
000350 
000360     PERFORM A-100.
000370 
000375D    DISPLAY "RESET TRACE".
000380*     RESET TRACE.
000390
000400     STOP RUN.
000410
000420 A-100.
000430
000440*      DISPLAY "ENTER A-100".
000450
000460      MOVE 1 TO X1.
000470      ADD  1 TO X1.
000480      MOVE X1 TO X2.
000490
000500*      DISPLAY "EXIT  A-100".
000510