37 lines
861 B
COBOL
37 lines
861 B
COBOL
IDENTIFICATION DIVISION.
|
|
PROGRAM-ID. CTESTP_SET1.
|
|
ENVIRONMENT DIVISION.
|
|
* TEST SET VERB ALL FORMATS .
|
|
|
|
CONFIGURATION SECTION.
|
|
* SPECIAL-NAMES.
|
|
* SW0 IS SORT-SWITCH
|
|
* ON STATUS IS SORT-ON
|
|
* OFF STATUS IS SORT-OFF.
|
|
* INPUT-OUTPUT SECTION.
|
|
DATA DIVISION.
|
|
WORKING-STORAGE SECTION.
|
|
|
|
01 TABLE-AREA PIC X(40) VALUE
|
|
"AABBCCDDEEFFGGHHIIJJKKLLMMNNOOPPQQRRSSTT".
|
|
01 TABLE1 REDEFINES TABLE-AREA.
|
|
05 TB1-ENTRY OCCURS 20 TIMES
|
|
INDEXED BY TB1-IDX.
|
|
10 TB1-VALUE PIC X(2).
|
|
01 WS-XX PIC XX.
|
|
88 VALID-DATA VALUE "JJ".
|
|
01 WS-INT PIC S9(4) COMP VALUE 10 .
|
|
|
|
PROCEDURE DIVISION.
|
|
0000-MAIN.
|
|
SET TB1-IDX TO 1.
|
|
SET TB1-IDX UP BY WS-INT.
|
|
SET TB1-IDX DOWN BY WS-INT.
|
|
|
|
* SET SORT-SWITCH TO ON.
|
|
|
|
MOVE "AA" TO WS-XX.
|
|
SET VALID-DATA TO TRUE.
|
|
|
|
STOP RUN.
|