A Serial Search - Compaq COBOL AAQ2G1FTK User Manual

Handling Tables
4.3 Accessing Table Elements
Example 4–18 (Cont.) Sample Table
02 MARRIED-DEDUCTION-DATA.
-
-
-
-
-
-
02 MARRIED-DEDUCTION-TABLE REDEFINES MARRIED-DEDUCTION-DATA.
Example 4–19 shows how to perform a serial search.
Example 4–19 A Serial Search
01 TAXABLE-INCOME PIC 9(6) VALUE 50000.
01 FED-TAX-DEDUCTION PIC 9(6).
PROCEDURE DIVISION.
BEGIN.
PERFORM SINGLE.
DISPLAY FED-TAX-DEDUCTION.
STOP RUN.
SINGLE.
IF TAXABLE-INCOME < 02500
SET IND-2 TO 1.
SEARCH SINGLES-TABLE AT END
.
.
.
Example 4–20 shows how to use SEARCH while varying an index other than the
first index.
Example 4–21 shows how to use SEARCH while varying an index data item.
4–20 Handling Tables
03 FILLER
"04800096000000017
"09600173000081620
"17300264000235617
"26400346000390325
"34600433000595328
"43300500000838932
"50000999991053336".
03 MARRIED-TABLE OCCURS 7 TIMES
ASCENDING KEY IS M-MIN-RANGE M-MAX-RANGE
INDEXED BY IND-0, IND-3.
04 M-MIN-RANGE
04 M-MAX-RANGE
04 M-TAX
04 M-PERCENT
GO TO END-FED-COMP.
GO TO TABLE-2-ERROR
WHEN TAXABLE-INCOME = S-MIN-RANGE(IND-2)
MOVE S-TAX(IND-2) TO FED-TAX-DEDUCTION
WHEN TAXABLE-INCOME < S-MAX-RANGE(IND-2)
COMPUTE FED-TAX-DEDUCTION =
S-TAX(IND-2) + (TAXABLE-INCOME - S-TAX(IND-2)) *
S-PERCENT(IND-2).
PIC X(119) VALUE
PIC 99999.
PIC 99999.
PIC 99999.
PIC V99.