📄 bill2.cbl
字号:
* 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.
working-storage section.
77 STAT-CODE PIC 99 COMP-X.
77 i pic 999 value 1.
77 j pic 999 value 1.
77 porg-name pic x(40) value spaces.
77 org-name pic x(40) value spaces.
77 spacer pic x(78) value spaces.
77 ws-dummy pic x value space.
01 sorg pic x(40) value spaces.
01 go-dri.
02 w-dri pic x value spaces.
02 pic x value ':'.
01 ch-dir.
02 pic x value '\'.
02 ws-wdir pic x(8) value spaces.
01 ch-dir1 pic x(8) value spaces.
01 it-txt-rec.
02 it-rec.
03 it-sno pic z(6).
03 it-d1 pic x.
03 it-date pic 9(8).
03 it-d2 pic x.
03 it-tot-amt pic z(7).99.
03 it-d3 pic x.
03 it-doct-NAME pic x(30).
03 it-d5 pic x.
03 it-mrn pic x(10).
03 it-d6 pic x.
03 it-comp-code pic x(6).
02 redefines it-rec.
03 it-rec-fin pic x occurs 81 times.
01 pr-it-rec1.
02 pr-it-rec pic x(81).
02 redefines pr-it-rec.
03 pr-it-fin pic x occurs 81 times.
01 ws-cust-rec.
02 ws-cust.
03 ct-bno pic z(6).
03 ct-d1 pic x.
03 ct-date pic 9(8).
03 ct-d2 pic x.
03 ct-qty pic z(4).
03 ct-d3 pic x.
03 ct-desc pic x(4).
03 ct-d4 pic x.
03 ct-name pic x(30).
03 ct-d5 pic x.
03 ct-mfr pic x(6).
03 ct-d6 pic x.
03 ct-bat pic x(6).
03 ct-d7 pic x.
03 ct-exp pic x(5).
03 ct-d8 pic x.
03 ct-amt pic z(5).99.
02 redefines ws-cust.
03 ws-cust-fin pic x occurs 85 times.
01 pr-ct-rec.
02 pr-ct-rec1 pic x(85).
02 redefines pr-ct-rec1.
03 pr-ct-fin pic x occurs 85 times.
01 head-id.
02 hed-dri pic x(7) value 'dpdata\'.
02 hd-yy1 pic 99.
02 hd-mm1 pic 99.
02 hed-ext pic x(7) value 'hed.dat'.
01 det-id.
02 det-dri pic x(7) value 'dpdata\'.
02 dt-yy pic 99.
02 dt-mm pic 99.
02 det-ext pic x(7) value 'det.dat'.
01 item-id.
02 PIC X(7) VALUE 'DPDATA\'.
02 iteM-yy pic 99.
02 iteM-mm pic 99.
02 iteM-ext pic x(8) value 'ite.dat'.
01 WS-FST.
02 CHECK-FST PIC XX VALUE '00'.
02 CHECK-FST-1 REDEFINES check-FST.
04 CFST-1-1 PIC 99 COMP-X.
04 CFST-1-2 PIC 99 COMP-X.
02 CHECK-FST-2 REDEFINES check-FST.
04 CFST-2-1 PIC X.
04 CFST-2-2 PIC X.
01 IT-ID.
02 ite-dir PIC X(6) VALUE 'DPITE\'.
02 ITE-DATE PIC 9(6) VALUE ZEROS.
02 REDEFINES ITE-DATE.
03 ITE-YYMM.
05 ITE-YY PIC 99.
05 ITE-MM PIC 99.
03 ITE-DD PIC 99.
02 ITE-EXT PIC X(6) VALUE 'IT.DAT'.
01 da-te.
02 y-1 pic 99.
02 y-2 pic 99.
02 m-m pic 99.
02 d-d pic 99.
01 da-tes.
02 mm pic 99.
02 yy pic 99.
01 gen-id1.
02 PIC X(7) VALUE 'DPDATA\'.
02 gen-yy pic 99.
02 gen-mm pic 99.
02 gen-ext pic x(7) value 'gen.dat'.
* linkage section.
01 puser-id pic x(6).
01 ppgm-id pic 9(3).
SCREEN SECTION.
01 outline-scr BG 1 FG 7.
02 outline-1.
03 BLANK SCREEN.
03 LINE 1 col 1 FG CO-LOUR VALUE "⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -