68 lines
1.6 KiB
COBOL
68 lines
1.6 KiB
COBOL
IDENTIFICATION DIVISION.
|
|
PROGRAM-ID. TEST1.
|
|
ENVIRONMENT DIVISION.
|
|
CONFIGURATION SECTION.
|
|
* SPECIAL-NAMES.
|
|
* DECIMAL-POINT IS COMMA.
|
|
INPUT-OUTPUT SECTION.
|
|
FILE-CONTROL.
|
|
DATA DIVISION.
|
|
FILE SECTION.
|
|
|
|
WORKING-STORAGE SECTION.
|
|
01 XX.
|
|
05 X1 PIC 9(4) VALUE 0.
|
|
05 X2 PIC 9(4) VALUE 0.
|
|
01 W01-COMPUTE-E PIC S9(5)V99 USAGE COMP VALUE 99876.
|
|
01 W01-COMPUTE-E PIC S9(5)V99 USAGE COMP VALUE 99876.
|
|
01 W01-COMPUTE-X PIC X(50) VALUE "aaaaaaaaaaaaaaaaaaaaaaaaaaa
|
|
- "bbbbbbbbbbbbbbbbbbbbbbb".
|
|
01 W01-COMPUTE-Y PIC X(54) VALUE "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
|
|
- "bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb
|
|
- "ccccccccccccccccccccccc".
|
|
01 W01-COMPUTE-Z PIC X(54) VALUE "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
|
|
- "bbbbbbbbbbbbbbbbbbbbbbb".
|
|
|
|
|
|
* CoPy 'TEST02.cpy' IN TESTLIB REPLACING
|
|
* W01-COMPUTE-E BY W01-COMPUTE-EE
|
|
* ==9(5)== BY ==9(04)==
|
|
* ==9(6)== BY ==9(06)==
|
|
* == 02 == BY == 05 == .
|
|
* COPY 'TEST02.cpy'.
|
|
* Copy 'TEST02.cpy' IN "Test.lib" REPLACING
|
|
* COPY 'TEST02.cpy' REPLACING
|
|
COPY 'TEST02.cpy' IN TESTLIB REPLACING
|
|
W01-COMPUTE-0 BY W01-COMPUTE-00
|
|
'W01-1XXX' BY 'W01-2'
|
|
==9(5)== BY ==9(04)== .
|
|
|
|
COPY 'TEST02.cpy' IN TESTLIB REPLACING
|
|
W01-COMPUTE-0 BY 000W01-COMPUTE-000
|
|
'W01-1XXX' BY 'W01-3'
|
|
==9(5)== BY ==9(07)== .
|
|
|
|
PROCEDURE DIVISION.
|
|
|
|
A-000.
|
|
|
|
* READY TRACE.
|
|
D DISPLAY "READY TRACE".
|
|
|
|
PERFORM A-100.
|
|
|
|
D DISPLAY "RESET TRACE".
|
|
* RESET TRACE.
|
|
|
|
STOP RUN.
|
|
|
|
A-100.
|
|
|
|
DISPLAY "ENTER A-100".
|
|
|
|
MOVE 1 TO X1.
|
|
ADD 1 TO X1.
|
|
MOVE X1 TO X2.
|
|
|
|
DISPLAY "EXIT A-100".
|