000010 IDENTIFICATION DIVISION.                                         ft2_____
000020 PROGRAM-ID. fTEST2.                                              ft2_____
000030 ENVIRONMENT DIVISION.                                            ft2_____
000040 CONFIGURATION SECTION.                                           ft2_____
000050* SPECIAL-NAMES.                                                  ft2_____
000060* DECIMAL-POINT IS COMMA.                                         ft2_____
000070 INPUT-OUTPUT SECTION.                                            ft2_____
000080 FILE-CONTROL.                                                    ft2_____
000090 DATA DIVISION.                                                   ft2_____
000100 FILE SECTION.                                                    ft2_____
000110                                                                  ft2_____
000120 WORKING-STORAGE SECTION.                                         ft2_____
000130 01      XX.                                                      ft2_____
000140   05    X1              PIC 9(4) VALUE 0.                        ft2_____
000150   05    X2              PIC 9(4) VALUE 0.                        ft2_____
000160 01      W01-COMPUTE-E   PIC S9(5)V99 USAGE COMP VALUE 99876.     ft2_____
000170 01 W01-COMPUTE-X PIC X(50) VALUE "aaaaaaaaaaaaaaaaaaaaaaaaaa""'' ft2_____
000180-    "bbbbbbbbbbbbbbbbbbbbbbb".                                   ft2_____
000170 01 W01-COMPUTE-Y PIC X(54) VALUE "cccccccccccccccccccccccccccccccft2_____
000180-              "ddddddddddddddddddddddddddddddddddddddddddddddddddft2_____
000180-              "eeeeeeeeeeeeeeeeeeeeeee".                         ft2_____
000190 01 W01-COMPUTE-Z PIC X(54) VALUE 'fffffff ''  """ffffffffffffffffft2_____
000200-		'ggggggggggggggggggggggg'.                              ft2_____
000210                                                                  ft2_____
000211 01 W01-COMPUTE-C PIC X(54) VALUE 'fffffff '                      ft2_____
000212          &                                                       ft2_____
000213          'ggggggggggggggggggggggg '.                             ft2_____
000214                                                                  ft2_____
000220* CoPy 'fTEST02.cpy' IN TESTLIB REPLACING                         ft2_____
000230*      W01-COMPUTE-E BY W01-COMPUTE-EE                            ft2_____
000240*      ==9(5)== BY ==9(04)==                                      ft2_____
000250*      ==9(6)== BY ==9(06)==                                      ft2_____
000260*      == 02 == BY == 05 == .                                     ft2_____
000270* COPY 'fTEST02.cpy'.                                             ft2_____
000280* Copy 'fTEST02.cpy' IN "Test.lib" REPLACING                      ft2_____
000290* COPY 'fTEST02.cpy' REPLACING                                    ft2_____
000300* COPY 'fTEST02.cpy' IN TESTLIB REPLACING                         ft2_____
000310*      W01-COMPUTE-0 BY W01-COMPUTE-00                            ft2_____
000320*      'W01-1XXX' BY 'W01-2'                                      ft2_____
000330*      ==9(5)== BY ==9(04)== .                                    ft2_____
000340*                                                                 ft2_____
000350* COPY 'fTEST02.cpy' IN TESTLIB REPLACING                         ft2_____
000360*      W01-COMPUTE-0 BY W01-COMPUTE-000                           ft2_____
000370*     'W01-1XXX' BY 'W01-3'                                       ft2_____
000380*  ==9(5)== BY ==9(07)== .                                        ft2_____
000390                                                                  ft2_____
000400 PROCEDURE DIVISION.                                              ft2_____
000410                                                                  ft2_____
000420 A-000.                                                           ft2_____
000430                                                                  ft2_____
000440*     READY TRACE.                                                ft2_____
000450                                                                  ft2_____
000460	   PERFORM A-100.                                               ft2_____
000470                                                                  ft2_____
000480*     RESET TRACE.                                                ft2_____
000490                                                                  ft2_____
000500     STOP RUN.                                                    ft2_____
000510                                                                  ft2_____
000520 A-100.                                                           ft2_____
000530                                                                  ft2_____
000540      DISPLAY "ENTER A-100".                                      ft2_____
000550                                                                  ft2_____
000560      MOVE 1 TO X1.                                               ft2_____
000570      ADD  1 TO X1.                                               ft2_____
000580      MOVE X1 TO X2.                                              ft2_____
000590                                                                  ft2_____
000600      DISPLAY "EXIT  A-100".                                      ft2_____