68 lines
5.3 KiB
COBOL
68 lines
5.3 KiB
COBOL
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_____
|