NB-076
893 B
893 B
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 |