55 lines
1.0 KiB
COBOL
55 lines
1.0 KiB
COBOL
IDENTIFICATION DIVISION.
|
|
PROGRAM-ID. TEST3.
|
|
ENVIRONMENT DIVISION.
|
|
CONFIGURATION SECTION.
|
|
* SPECIAL-NAMES.
|
|
* DECIMAL-POINT IS COMMA.
|
|
INPUT-OUTPUT SECTION.
|
|
FILE-CONTROL.
|
|
DATA DIVISION.
|
|
FILE SECTION.
|
|
|
|
WORKING-STORAGE SECTION.
|
|
|
|
REPLACE ==9(5)== BY ==9(07)==.
|
|
|
|
01 XX.
|
|
05 X1 PIC 9(4) VALUE 0.
|
|
05 X2 PIC 9(4) VALUE 0.
|
|
05 X3 PIC 9(4)V99 VALUE .33.
|
|
01 W01-COMPUTE-E PIC S9(5)V99 USAGE COMP VALUE 99876.
|
|
01 W01-CATSTR PIC X(30) VALUE "0123456789" &
|
|
"0123456789" & *< test of in-line comment
|
|
"0123456789".
|
|
|
|
* COPY 'TEST02C.cpy' .
|
|
COPY TEST02C.
|
|
|
|
COPY TEST02 IN TESTLIB REPLACING
|
|
W01-COMPUTE-0 BY W01-COMPUTE-00,
|
|
'W01-1XXX' BY 'W01-2',
|
|
==9(5)== BY ==9(04)== .
|
|
|
|
|
|
PROCEDURE DIVISION.
|
|
|
|
A-000.
|
|
|
|
* READY TRACE.
|
|
|
|
PERFORM A-100.
|
|
|
|
* 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".
|