📄 billone.cbl
字号:
03 NUM-DAYEND-INIT PIC X OCCURS 20 TIMES.
03 TOT-DISC-ELI PIC X OCCURS 20 TIMES.
03 DB-NOTE-NO PIC 9(5).
03 CR-NOTE-NO PIC 9(5).
03 UNADJ-NO PIC 9(5).
03 ORD-NO PIC 9(5).
03 GRN-NO PIC 9(5).
03 PMT-VOU-NO PIC 9(5).
03 ADJ-NO PIC 9(5).
03 EVE-NO PIC 9(5).
03 store-godown-tran-NO PIC 9(5).
03 repack-no pic 9(5).
03 TEMP-ADD-NO PIC 9(5).
* 01 CASH-NO
* 02 cr-BILL-NO
* 03 COUP-BILL
* 04 MRP-BILL
* 05 CR-CARD-BILL
* 06 DISC-BILL
* 07 TR-BILL
* 08 LOOSE-BILL
* 09 RET-MEMO
* 10 RECPT-NO
* 11 ALT1-BILL-NO
* 12 ALT2-BILL-NO
* 13 ENQ-BILL-NO
* 14 DC-NO
* 15 - 20 VACANT
* TYPES FOR NOS.
* A-ALT_BILL_1 K-CREDIT_CARD T-DC
* B-ALT_BILL_2 L-LOOSE(ALT_BILL3) U-CLAIM_NO
* C-CASH M-MRP X-TRANSFER_BILL
* D-CREDIT N-TEMP_ADD Z-REPACK_NO
* E-ENQ P-COUPON
* I-DISC_BILL R-SALES_RETURN
*
* A-UNADJ-ENTRY B-DEBIT-NOTE C-RECEIPT_NO
* G-GRN_NO V-PMT_VOUCHER SPACES-ADJ_NO
* R-CREDIT-NOTE O-ORDER_NO
02 REGD-USER PIC X(80).
02 MESSAGES PIC X(30).
02 TOP-LINE1.
03 top-line-1 pic x(75).
03 top-line-11 pic x(15).
02 top-line2.
03 top-line-2 pic x(75).
03 top-line-21 pic x(15).
02 top-line-3 pic x(60).
02 top-line-4 pic x(60).
02 botline1.
03 bot-line-1 pic x(75).
03 bot-line-11 pic x(15).
02 botline2.
03 bot-line-2 pic x(75).
03 bot-line-21 pic x(15).
02 bot-line-3 pic x(60).
02 bot-line-4 pic x(60).
02 tot-line pic x(35).
02 Ntngst-no pic x(20).
02 cst-no pic x(7).
02 Dl-no pic x(14).
02 LAST-BILL-date.
03 LB-Y pic 99.
03 LB-M pic 99.
03 LB-D pic 99.
02 bill-freq-1 pic 999.
02 bill-freq-2 pic 999.
02 bill-freq-mon pic 9999.
02 pur-product-disc pic x.
02 bill-freq-rest pic x(3).
02 godown-store-tran-no pic 9(5).
02 use-sys-date-in-bill pic x.
02 daily-bill-tot pic 9(4).
02 monthly-bill-tot pic 9(6).
02 reprint-value pic 9(4).
02 max-disc-per pic 99v99.
02 default-disc-per pic 99v99.
* 02 daily-jack-amt pic 9(4).
* 02 daily-max-jack-amt pic 9(4).
02 bill-print-exe pic x(8).
02 WASTAGE-PER PIC 99V99.
02 LINE-SKIP PIC 99.
02 HOSP-CODE PIC X(4).
02 SCH-LAST-PG PIC 9(5).
02 COPY-PRINT PIC X.
02 LOOSE-PRINT PIC X.
02 PAPER-WIDTH PIC X.
02 RES-SUP-CODE-UP PIC X.
02 S-ORG PIC X(80).
02 PASS-WD PIC X(16).
* 02 PASS-WD1 PIC X(16).
02 check-part2 PIC X(8).
02 PASS-filler PIC X(8).
02 Dname-hd-1 pic x(80).
02 DNAME-HD PIC X(80).
02 OPR-DRI PIC X.
02 fl-BAC-DRI PIC X.
02 W-DIR PIC X(8).
02 INS-NO PIC 9.
02 CURR-SYMBOL PIC X(2).
02 CURR-DESC PIC X(15).
02 CURR-DENO PIC X(10).
02 PR-PL-PAPER PIC X.
02 PRE-LENGTH pic 9(02).
02 REP-LENGTH PIC 99.
02 LI-PER-IN PIC 99.
02 ROUND-NO PIC 9(01).
02 ROUND-NLH PIC X.
02 BANK-CODE PIC X(06).
02 BILL-LI PIC 99.
02 CO-LOUR PIC 9.
02 LOG-SW PIC X.
02 REP-WIDTH PIC 99.
02 RSWORD-YN PIC X.
02 BAC-DIR PIC X(8).
02 ONLINE-CRDB-LST PIC X.
02 SAL-CODE-DEF PIC X.
02 BIL-CODE-DEF PIC X.
02 LOOSE-HD-SW PIC X.
02 SLAB-DISC-ELI PIC X.
02 DISC-SLAB OCCURS 5 TIMES.
03 NDISC-AMT PIC 9(5).
03 NDISC-PER PIC 99V99.
02 COPY-SW PIC X.
02 CHANGE-RATE-SW PIC X.
02 name-hd-1 pic x(80).
02 NAME-HD PIC X(80).
02 PACK-NAME PIC X(80).
02 PRINTER-SET.
03 PR-SET OCCURS 2 TIMES.
05 PR-NAME PIC X(10).
05 DW-START PIC X(03).
05 DW-END PIC X(03).
05 DH-START PIC X(03).
05 DH-END PIC X(03).
05 PICA-START PIC X(03).
05 PICA-END PIC X(03).
05 15-START PIC X(03).
05 15-END PIC X(03).
05 COND-START PIC X(03).
05 COND-END PIC X(03).
05 UN-START PIC X(03).
05 UN-END PIC X(03).
05 DS-START PIC X(03).
05 DS-END PIC X(03).
05 IT-START PIC X(03).
05 IT-END PIC X(03).
05 BUF-CLEA PIC X(03).
05 FOR-FEED PIC X(05).
05 REV-FEED PIC X(05).
02 dw-start-40 pic x(3).
02 dw-end-40 pic x(3).
02 ds-start-40 pic x(3).
02 ds-end-40 pic x(3).
02 auto-cut-40 pic x(3).
02 pur-sal-unit-same pic x.
02 SCHEDULE-BILL-SKIP PIC 9.
02 skip-zero-invoice pic x.
02 prv-or-std-margin pic x.
02 margin-tolerance pic 9v99.
02 all-disall-credit pic x.
02 f6-f7-in-bill pic x.
02 dlp pic 9(5).
02 prslno pic x(9).
02 pharma-sales-sal-rpt pic x.
02 pay-rec-sal-rpt pic x.
02 facpack-drive pic x.
02 facpack-dir pic x(8).
02 mesg-after-org-name pic x.
02 mrp-in-bill-printing pic x.
02 upd-org-in-facpack pic 99.
02 ovl-disc-in-cost pic x.
02 hdd-backup-drive pic x.
02 Add-backup-drive pic x.
02 last-backup-date.
03 last-backup-yy pic 9.
03 last-backup-mm pic x.
03 last-backup-dd pic x.
02 print-outstanding-in-bill pic x.
02 inv-prn pic 9.
02 show-margin-salrpt pic x.
02 pre-print-cpi pic x.
02 print-sman-in-bill pic x.
02 f12-bill-type pic x.
02 f-s-breakup-in-bill pic x.
02 pur-ret-default pic x.
02 check-printer-in-bill pic x.
02 change-item-code pic x.
02 xxx-filler pic x(2).
02 avg-entries.
03 avg-DB-NOTE-NO PIC 9(3).
03 avg-CR-NOTE-NO PIC 9(3).
03 avg-UNADJ-NO PIC 9(3).
03 avg-ORD-NO PIC 9(3).
03 avg-GRN-NO PIC 9(3).
03 avg-PMT-VOU-NO PIC 9(3).
03 avg-ADJ-NO PIC 9(3).
03 avg-EVE-NO PIC 9(3).
03 avg-CLAIM-NO PIC 9(3).
03 avg-repack-no pic 9(3).
03 avg-TEMP-ADD-NO PIC 9(3).
02 tax-on-mrp pic x.
02 ask-counter-no pic x.
02 up-doc-sal pic x.
02 up-cus-sal pic x.
02 print-sal-ret pic x.
02 date-based-order pic x.
02 order-days pic 99.
02 state-tax-desc-code pic x(5).
02 chg-stk-master pic x.
**********fillers
02 extra-cst pic x(3).
02 dupl-alt-code pic x.
02 hdd-warn pic 99.
02 hdd-stop pic 99.
02 exp-chk-inw pic 99.
02 prent-header-option pic x.
02 months-to-retain pic 99.
02 trans-memo-expiry pic x.
02 till-operation pic x.
02 non-pharma-in-bill-40 pic 9.
02 margin-with-offer pic x.
02 xx-filler pic x.
02 line-after-last-print pic 99.
02 margin-by-cost-salepr pic x.
02 pre-print-name pic 9.
02 LINE-SKIP-TOP PIC 99.
02 PR-NO PIC 9(01).
02 BILL1-LINES PIC 999.
02 BILL2-LINES PIC 999.
******** BILL1-LINES + BILL2-LINES SHOULD NOT EXCEED 180.
02 BILL-HELP-DEF PIC 9.
02 BILL-SCAN-ACC PIC 9.
02 BAT-BILL-QTY-DEF PIC 99.
******* FOR PRODUCTS WITH BATCH NO
02 NOBAT-BILL-QTY-DEF PIC 99.
******* FOR PRODUCTS WITHOUT BATCH NOS.
* 02 PRINTER-DEF PIC X(71).
02 PR-DEF-FILLER.
03 MRP-BILL-DESC PIC X(8).
03 CREDIT-BILL-DESC PIC X(8).
03 Q-BILL-DESC PIC X(13).
03 VALUE-FOR-POINT PIC 9(5).
03 EXP-CHK-IN-BILL PIC 9.
03 COST-percent-of-sale PIC 99.
03 point-value pic 999v99.
03 check-part1 pic x(8).
03 install-no pic 99.
03 last-monthend pic 9999.
03 redefines last-monthend.
04 lm-mm pic 99.
04 lm-yy pic 99.
03 monthend-flag pic x.
* 1 - if incomplete
03 conso-bill-no pic 9(5).
03 filler pic x(9).
02 INC-IN-CASH PIC X OCCURS 20.
02 STK-ACC-IN-BILL PIC X.
02 MIN-BILL-LINES PIC 999.
02 PR-ADD-IN-BILL PIC X.
02 ALT-LINE PIC X.
02 PAGE-SKIP PIC X.
02 AUTO-TLO PIC X.
02 ord-add-pr-sw pic x.
02 ord-qty-limit-sw pic x.
02 mrn-ack-1-or-2 pic 9.
02 ALLOW-BILL PIC 9 OCCURS 20 TIMES.
02 PRINT-BILL PIC X OCCURS 20 TIMES.
02 temp-stk-add pic x.
02 SEL-OR-NO PIC X.
02 TIME-PR-OPT PIC X.
02 MRN-PR-OPT PIC X.
02 SCH-INT-CHK PIC X.
02 SCH-LAST-SLNO PIC 9(6).
02 feature-removed pic x.
* E - Export, A - Accounts, Y - Both E & A
02 outlet-no PIC 999.
02 AMT-TEND-OPT PIC X.
02 bill-type-p-n pic x.
02 server-drive pic x.
02 self-node-no pic 99.
02 mrn-node-no pic 99.
02 SAL-RPT-SMAN-DET PIC X.
02 dev-in-pur-cop pic x.
02 cpl-dis-in-bill pic x.
02 num-category pic 99.
02 category-size-1 pic 99.
02 category-size pic 9 occurs 9 times.
02 num-of-users pic 9.
02 sch-maint-in-bill pic x.
02 amt-tend-write-opt pic x.
02 alt-mast-in-listing pic x.
02 code-or-name-first pic x.
02 export-delimiter-char pic x.
88 delimit-valid values are ":" ";" "^" "!" "~" "|" " ".
02 LINE-SKIP-pre-print PIC 99.
02 alt-auto-gen-code PIC x.
02 no-tran-skip pic x.
02 print-name-in-sales-report pic x.
FD SALE-TRANS
LABEL RECORDS STANDARD
VALUE OF FILE-ID IS SAL-ID
recording mode is variable.
01 SALE-TRANS1-REC.
02 st-rec-begin pic x.
02 SREC-ID PIC 9.
02 SAL-bno.
03 sterm-id pic 99.
03 sbill-TYPE PIC X(01).
03 SBILL-no PIC X(05).
02 suser-code pic x(6).
02 SSMAN PIC x(3).
02 SALE-TRANS-SPACE.
03 SVALID PIC X.
03 SPARTY-CODE PIC X(6).
* 03 redefines sparty-code.
* 05 sparty-code1 pic 999.
* 05 sparty-code2 pic 999.
03 SDOC-CODE PIC X(6).
03 scredit-card-no pic x(16).
03 sbank-code pic x(6).
03 SALE-TRANS-ZERO.
05 SBILL-AMT PIC 9(5)V99.
05 STAX-AMT PIC 9(5)V99.
05 stime pic 9(4).
05 sdisc-per pic 99v99.
05 sdisc-amt pic 9(5)v99.
05 SJACK-AMT PIC 9(4)V99.
02 st-rec1-end pic x.
01 SALE-TRANS2-REC.
02 FILLER1 PIC X(90).
02 Saddl-info pic x(45).
02 st-rec2-end pic x.
01 SALE-TRANS3-REC.
02 FILLER2 PIC X(136).
02 sparty-name pic x(30).
02 sparty-add1 pic x(25).
02 sparty-add2 pic x(25).
02 sparty-add3 pic x(25).
02 st-rec3-end pic x.
01 SALE-TRANS4-REC.
02 FILLER3 PIC X(242).
02 sdoc-name pic x(30).
02 sdoc-add1 pic x(25).
02 sdoc-add2 pic x(25).
02 sdoc-add3 pic x(25).
02 st-rec4-end pic x.
FD ITEM-TRANS
LABEL RECORDS STANDARD
VALUE OF FILE-ID IS IT-ID.
01 IT-REC.
02 IT-REC-BEGIN PIC X.
02 TRANS-SPACE.
03 it-bno.
05 IT-D-C PIC X(01).
05 IT-TERM-ID PIC 99.
05 IT-BILL.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -