# 24-table-search: Internal Table Search

## 电信业务场景

资费表内部检索。在内存套餐资费表中使用SEARCH ALL(二分查找)按套餐代码检索单价，使用SEARCH顺序查找备用。

## Description

Demonstrates OCCURS table processing with three search methods:

1. **SEARCH ALL** (binary search) on a sorted 10-entry table
2. **SEARCH** (sequential scan) on the same table
3. **SEARCH ALL** on a variable-length table (OCCURS DEPENDING ON)

Also demonstrates INDEXED BY index manipulation and bounds checking.

## Record Layout

### Input (2 bytes)

| Field  | Type     | Length | Description      |
|--------|----------|--------|------------------|
| IN-KEY | PIC X    | 2      | Key to search for |

### Output (71 bytes)

| Field      | Type     | Length | Description                |
|------------|----------|--------|----------------------------|
| OUT-KEY    | PIC X    | 2      | Searched key               |
| FILLER     | PIC X    | 1      | Space separator            |
| ALL-STAT   | PIC X    | 1      | SEARCH ALL found? (Y/N)    |
| FILLER     | PIC X    | 1      | Space separator            |
| SEQ-STAT   | PIC X    | 1      | SEARCH found? (Y/N)        |
| FILLER     | PIC X    | 1      | Space separator            |
| VAR-STAT   | PIC X    | 1      | VAR table found? (Y/N)     |
| FILLER     | PIC X    | 1      | Space separator            |
| ALL-VAL    | PIC X    | 20     | SEARCH ALL found value     |
| FILLER     | PIC X    | 1      | Space separator            |
| SEQ-VAL    | PIC X    | 20     | SEARCH found value         |
| FILLER     | PIC X    | 1      | Space separator            |
| VAR-VAL    | PIC X    | 20     | VAR table found value      |

## Internal Table (10 entries)

| Index | Key | Value        |
|-------|-----|--------------|
| 1     | AA  | Alpha-001    |
| 2     | BB  | Beta-002     |
| 3     | CC  | Charlie-003  |
| 4     | DD  | Delta-004    |
| 5     | EE  | Echo-005     |
| 6     | FF  | Foxtrot-006  |
| 7     | GG  | Golf-007     |
| 8     | HH  | Hotel-008    |
| 9     | II  | India-009    |
| 10    | JJ  | Juliett-010  |

Variable-length table (OCCURS DEPENDING ON size=8): entries 1-8.

## Files

| File                     | Purpose                        |
|--------------------------|--------------------------------|
| main-24-table-search.cbl | Main COBOL program             |
| data-gen.sh              | Generate search key data       |
| run.sh                   | Compile, run, verify           |
| README.md                | This file                      |

## Tests

| Test Case            | Description                              |
|----------------------|------------------------------------------|
| Key exists (first)   | 'AA' - found by all methods              |
| Key exists (middle)  | 'CC' - found by all methods              |
| Key exists (last)    | 'JJ' - found by main, excluded in var    |
| Key not exists       | 'XX' - not found                         |
| Invalid format       | '99' - numeric, not found                |
| Case mismatch        | 'aa' - lowercase, case-sensitive search  |
| Empty key            | Spaces - not found                       |
| Var table boundary   | 'II' - in main table(9), not in var(8)  |
| Index bounds test    | Set index to 15, detect out-of-bounds    |

## Usage

```bash
cd 24-table-search
bash data-gen.sh
bash run.sh
```

## Expected Behavior

- SEARCH ALL and SEARCH both find keys AA, BB, CC, DD, EE, FF, GG, HH, II, JJ.
- SEARCH ALL on VAR table (size 8) finds only AA-HH.
- Non-existent keys return 'N' status with empty values.
- Index manipulation (SET to 15) is detected and reported.