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