feat: add benchmark-programs — 58 telecom COBOL test programs

作为子目录纳入系统，与核心测试管道协同 Co-Authored-By: Claude <noreply@anthropic.com>
2026-06-25 09:53:21 +08:00
parent 50f9f0f52f
commit 94400d50d4
278 changed files with 44125 additions and 0 deletions
@@ -0,0 +1,19 @@
+      *> ============================================================
+      *> TEL-BILLING.cpy — 电信计费通用记录布局 (45 bytes)
+      *> Telecom Billing Common Record Layout
+      *> 可用于替代 STD-REC.cpy，字段宽度完全一致
+      *>
+      *> Fields (45 bytes total):
+      *>   BILL-KEY       PIC X(10)  — 主键 (客户/合同/请求书ID)
+      *>   BILL-CUST-ID   PIC X(10)  — 客户编号
+      *>   BILL-PLAN-CODE PIC X(03)  — 套餐代码 (P01/P02/P03)
+      *>   BILL-AMOUNT    PIC 9(09)  — 金额/用量 (分为单位)
+      *>   BILL-STATUS    PIC X(01)  — 状态标志
+      *>   BILL-RESERVED  PIC X(12)  — 预留
+      *> ============================================================
+       05 BILL-KEY         PIC X(10).
+       05 BILL-CUST-ID     PIC X(10).
+       05 BILL-PLAN-CODE   PIC X(03).
+       05 BILL-AMOUNT      PIC 9(09).
+       05 BILL-STATUS      PIC X(01).
+       05 BILL-RESERVED    PIC X(12).
@@ -0,0 +1,16 @@
+      *> ============================================================
+      *> TEL-CDR.cpy — 通话明细记录布局 (45 bytes)
+      *> Call Detail Record Layout
+      *>
+      *> Fields (45 bytes total):
+      *>   CDR-ID         PIC X(10)  — CDR 编号
+      *>   CDR-CALLER     PIC X(11)  — 主叫号码 (中国手机号 86138xxxxxxx)
+      *>   CDR-CALLEE     PIC X(11)  — 被叫号码
+      *>   CDR-DURATION   PIC 9(09)  — 通话时长 (秒)
+      *>   CDR-RESERVED   PIC X(04)  — 预留
+      *> ============================================================
+       05 CDR-ID           PIC X(10).
+       05 CDR-CALLER       PIC X(11).
+       05 CDR-CALLEE       PIC X(11).
+       05 CDR-DURATION     PIC 9(09).
+       05 CDR-RESERVED     PIC X(04).
@@ -0,0 +1,18 @@
+      *> ============================================================
+      *> TEL-INVOICE.cpy — 请求书记录布局 (45 bytes)
+      *> Invoice Record Layout
+      *>
+      *> Fields (45 bytes total):
+      *>   INV-ID         PIC X(10)  — 请求书编号 (INV20250001)
+      *>   INV-CUST-ID    PIC X(10)  — 客户编号 (CUST000001)
+      *>   INV-MONTH      PIC 9(06)  — 账期 (YYYYMM)
+      *>   INV-AMOUNT     PIC 9(09)  — 金额 (分为单位)
+      *>   INV-STATUS     PIC X(01)  — 状态: 0=未发行 1=已发行 2=已支付
+      *>   INV-RESERVED   PIC X(09)  — 预留
+      *> ============================================================
+       05 INV-ID           PIC X(10).
+       05 INV-CUST-ID      PIC X(10).
+       05 INV-MONTH        PIC 9(06).
+       05 INV-AMOUNT       PIC 9(09).
+       05 INV-STATUS       PIC X(01).
+       05 INV-RESERVED     PIC X(09).