70 lines
5.5 KiB
COBOL
70 lines
5.5 KiB
COBOL
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_____
|