# 06-branch-evaluate — EVALUATE Branch Program ## 电信业务场景 套餐类型判定。根据套餐代码(P01/P02/P03)进行EVALUATE分支,按套餐类型分流处理。 Demonstrates GnuCOBOL EVALUATE patterns: - **EVALUATE with ALSO**: Two-condition EVALUATE on KEY and DATA2 - **EVALUATE TRUE/FALSE**: Evaluate boolean conditions - **EVALUATE multi-value WHEN**: Multiple WHEN values for same action - **WHEN OTHER**: Default/catch-all branch ## Files | File | Purpose | |------|---------| | `main-06-branch-evaluate.cbl` | COBOL program (fixed format) | | `data-gen.sh` | Generate test data | | `run.sh` | Compile, run, verify outputs | ## Input Record Same as 05-branch-if: KEY(10) + DATA1(20) + DATA2(10) ## Branch Logic | KEY Value | Output File | |-----------|-------------| | 'A' | FILE-A.DAT | | 'B' | FILE-B.DAT | | 'C' | FILE-C.DAT | | any other | FILE-OTHER.DAT |