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