feat: add benchmark-programs — 58 telecom COBOL test programs
作为子目录纳入系统,与核心测试管道协同 Co-Authored-By: Claude <noreply@anthropic.com>
This commit is contained in:
@@ -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).
|
||||
Reference in New Issue
Block a user