NB-076
20 lines
962 B
COBOL
20 lines
962 B
COBOL
*> ============================================================
|
|
*> 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).
|