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