00001 *****                                                             11/28/05
00002 *                                                                 DOESILBL
00003 *    DOESILBL    LABEL REPORT RECORD.                                LV003
00004 *                                                                 DOESILBL
00005 *                                                                 DOESILBL
00006 *                02/15/2001  ADDED FOR DC.  ZL1                   DOESILBL
00007 *                                                                 DOESILBL
00008 *****                                                             DOESILBL
00009 *                                                                    CL**2
00010 *                09/29/2004  MODIFIED FOR 45 CHARACTER LABEL         CL**2
00011 *                                                                    CL**2
00012 *                LVL 2 MODIFICATIONS                                 CL**2
00013 *****                                                   REW          CL**2
00014                                                                   DOESILBL
00015          10  ILBL-LENGTH         PIC S9(04)  COMP.                DOESILBL
00016                                                                   DOESILBL
00017          10  ILBL-SORT-AREA.                                      DOESILBL
00018              15  ILBL-REC-TYPE           PIC  X(03)  VALUE 'LBL'. DOESILBL
00019              15  ILBL-APPLICATION-ID     PIC  X(02).              DOESILBL
00020                  88  ILBL-APP-TAX-88         VALUE '01'.          DOESILBL
00021                  88  ILBL-APP-DOCS-88        VALUE '02'.          DOESILBL
00022                  88  ILBL-APP-JOB-SRVC       VALUE '03'.          DOESILBL
00023                  88  ILBL-APP-OTHER          VALUE '04'.          DOESILBL
00024                                                                   DOESILBL
00025                                                                   DOESILBL
00026                                                                   DOESILBL
00027          10  ILBL-DATA-AREA.                                      DOESILBL
00028              15  ILBL-FMT-LINE OCCURS 8 TIMES INDEXED BY          DOESILBL
00029                                             ILBL-FMT-IDX          DOESILBL
00030 *                                             PIC  X(40).            CL**3
00031                                               PIC  X(45).            CL**2