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