30 lines
2.3 KiB
COBOL
30 lines
2.3 KiB
COBOL
00001 ***** 04/07/02
|
|
00002 * BARIL001
|
|
00003 * BARIL001 FORMAT BARCODE DATA. LV001
|
|
00004 * BARIL001
|
|
00005 ***** BARIL001
|
|
00006 SKIP1 BARIL001
|
|
00007 10 L001-REC-LENGTH PIC 9(04) COMP. BARIL001
|
|
00008 SKIP1 BARIL001
|
|
00009 10 L001-SYSTEM PIC X(03). BARIL001
|
|
00010 88 L001-SYSTEM-TAX VALUE 'TAX'. BARIL001
|
|
00011 88 L001-SYSTEM-CHK VALUE 'CHK'. BARIL001
|
|
00012 88 L001-SYSTEM-SYP VALUE 'SYP'. BARIL001
|
|
00013 88 L001-SYSTEM-BEN VALUE 'BEN'. BARIL001
|
|
00014 SKIP1 BARIL001
|
|
00015 10 L001-INPUT-DATA PIC X(40). BARIL001
|
|
00016 SKIP1 BARIL001
|
|
00017 10 L001-BARCODED-DATA PIC X(50). BARIL001
|
|
00018 SKIP1 BARIL001
|
|
00019 10 L001-FONT-FORMAT-USED PIC X(02). BARIL001
|
|
00020 88 L001-SETB-FONT1 VALUE 'B1'. BARIL001
|
|
00021 88 L001-SETB-FONT2 VALUE 'B2'. BARIL001
|
|
00022 88 L001-SETB-FONT3 VALUE 'B3'. BARIL001
|
|
00023 88 L001-SETC-FONT2 VALUE 'C2'. BARIL001
|
|
00024 SKIP1 BARIL001
|
|
00025 10 L001-DATA-CONVERTED PIC 9(01). BARIL001
|
|
00026 88 L001-CONVERTED-NORMAL VALUE 0. BARIL001
|
|
00027 88 L001-NOT-CONVERTED VALUE 1. BARIL001
|
|
00028 SKIP1 BARIL001
|
|
00029 10 FILLER PIC X(50). BARIL001
|