000010 IDENTIFICATION DIVISION.                                         ft3_____
000020 PROGRAM-ID. fTEST3.                                              ft3_____
000030 ENVIRONMENT DIVISION.                                            ft3_____
000040 CONFIGURATION SECTION.                                           ft3_____
000050* SPECIAL-NAMES.                                                  ft3_____
000060* DECIMAL-POINT IS COMMA.                                         ft3_____
000070 INPUT-OUTPUT SECTION.                                            ft3_____
000080 FILE-CONTROL.                                                    ft3_____
000090 DATA DIVISION.                                                   ft3_____
000100 FILE SECTION.                                                    ft3_____
000110                                                                  ft3_____
000120 WORKING-STORAGE SECTION.                                         ft3_____
000130 01      XX.                                                      ft3_____
000140   05    X1              PIC 9(4) VALUE 0.                        ft3_____
000150   05    X2              PIC 9(4) VALUE 0.                        ft3_____
000151   05    X4              PIC 9(4) VALUE                        66.ft3_____
000152   05    X5              PIC 9(4) VALUE                         88ft3_____
000153                                       .                          ft3_____
000154   05    X6              PIC 9(4)                            VALUEft3_____
000155                                  99.                             ft3_____
000160 01      W01-COMPUTE-E   PIC S9(5)V99 USAGE COMP VALUE 99876.     ft3a____
000170 01 W01-COMPUTE-X PIC X(50) VALUE "aaaaaaaaaaaaaaaaaaaaaaaaaaa    ft3b____
000180-    "bbbbbbbbbbbbbbbbbbbbbbb".                                   ft3c____
000190 01 W01-COMPUTE-Z PIC X(54) VALUE "cccccccccccccccccccccccccccccccft3d____
000200-    "ddddddddddddddddddddddd".                                   ft3e____
000210                                                                  ft3f____
000220*----------------------------------------------------------------*ft3g____
000220* CoPy 'fTEST02.cpy' IN TESTLIB REPLACING                         ft3g____
000230*      W01-COMPUTE-E BY W01-COMPUTE-EE                            ft3_____
000240*      ==9(5)== BY ==9(04)==                                      ft3_____
000250*      ==9(6)== BY ==9(06)==                                      ft3_____
000260*      == 02 == BY == 05 == .                                     ft3_____
000270*  COPY fTEST02C.                                                 ft3_____
000265*   REPLACE ==9(5)== BY ==9(07)==.                                ft3_____
000270 COPY fTEST02D.                                                   ft3_____
000280* Copy 'fTEST02.cpy' IN "Test.lib".                               ft3_____
000280* Copy 'fTEST02.cpy' IN "Test.lib" REPLACING                      ft3_____
000290* COPY 'fTEST02.cpy' REPLACING                                    ft3_____
000300* COPY 'fTEST02.cpy' IN TESTLIB REPLACING                         ft3_____
000310*      W01-COMPUTE-0 BY W01-COMPUTE-00                            ft3_____
000320*      'W01-1XXX' BY 'W01-2'                                      ft3_____
000330*      ==9(5)== BY ==9(04)== .                                    ft3_____
000340*                                                                 ft3_____
000350* COPY 'fTEST02.cpy' IN TESTLIB REPLACING                         ft3_____
000360*      W01-COMPUTE-0 BY W01-COMPUTE-000                           ft3_____
000370*     'W01-1XXX' BY 'W01-3'                                       ft3_____
000380*  ==9(5)== BY ==9(07)== .                                        ft3_____
000390                                                                  ft3_____
000400 PROCEDURE DIVISION.                                              ft3_____
000410                                                                  ft3_____
000420 A-000.                                                           ft3_____
000430                                                                  ft3_____
000440*     READY TRACE.                                                ft3_____
000450                                                                  ft3_____
000460     PERFORM A-100.                                               ft3_____
000470                                                                  ft3_____
000480*     RESET TRACE.                                                ft3_____
000490                                                                  ft3_____
000500     STOP RUN.                                                    ft3_____
000510                                                                  ft3_____
000520 A-100.                                                           ft3_____
000530                                                                  ft3_____
000540      DISPLAY "ENTER A-100".                                      ft3_____
000550                                                                  ft3_____
000560      MOVE 1 TO X1.                                               ft3_____
000570      ADD  1 TO X1.                                               ft3_____
000580      MOVE X1 TO X2.                                              ft3_____
000590                                                                  ft3_____
000600      DISPLAY "EXIT  A-100".                                      ft3_____