72 lines
2.2 KiB
COBOL
72 lines
2.2 KiB
COBOL
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
|