65 lines
1.3 KiB
COBOL
65 lines
1.3 KiB
COBOL
IDENTIFICATION DIVISION.
|
|
PROGRAM-ID. TEST2.
|
|
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.
|
|
05 X3 PIC 9(4)V99 VALUE .33.
|
|
01 W01-COMPUTE-C PIC X(54) VALUE 'fffffff '
|
|
&
|
|
'ggggggggggggggggggggggg '
|
|
&
|
|
'hhhhhhhhhhhhhhhhhhhhhhh '.
|
|
01 W01-COMPUTE-E PIC S9(5)V99 USAGE COMP VALUE 99876.
|
|
|
|
* COPY TEST02D.
|
|
* COPY TEST02E IN TEST-LIB.
|
|
* COPY 'copybooks2/TEST02F'.
|
|
* COPY 'copybooks2/TEST02F' IN TEST-LIB.
|
|
* COPY '/root/copybooks2/TEST02F' IN TEST-LIB.
|
|
* COPY '/root/copybooks2/TEST02F'.
|
|
* COPY /root/copybooks2/TEST02F.
|
|
* 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)== .
|
|
|
|
COPY TEST02 IN TESTLIB REPLACING
|
|
W01-COMPUTE-0 BY W01-COMPUTE-000
|
|
'W01-1XXX' BY 'W01-3'
|
|
==9(5)== BY ==9(07)== .
|
|
|
|
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".
|