32 lines
2.5 KiB
COBOL
32 lines
2.5 KiB
COBOL
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
|