00001 *****                                                             04/24/00
00002 *                                                                 DTSIR901
00003 *    DTSIR901    LABEL REPORT RECORD.                                LV006
00004 *                                                                 DTSIR901
00005 *                                                                 DTSIR901
00006 *                10/15/1998  REVIEWED AND MODIFIED FOR DC.  EHH   DTSIR901
00007 *                                                                 DTSIR901
00008 *****                                                             DTSIR901
00009                                                                   DTSIR901
00010          10  R901-LENGTH         PIC S9(04)  COMP.                DTSIR901
00011                                                                   DTSIR901
00012          10  R901-SORT-AREA.                                      DTSIR901
00013              15  R901-REC-TYPE           PIC  X(03)  VALUE '901'. DTSIR901
00014              15  R901-GROUP              PIC  X(01).              DTSIR901
00015                  88  R901-ON-REQUEST-88      VALUE '1'.           DTSIR901
00016                  88  R901-EMP-REG-A-88       VALUE '2'.           DTSIR901
00017                  88  R901-LIAB-DETER-88      VALUE '3'.           DTSIR901
00018                  88  R901-JOB-SERVICE-88     VALUE '4'.           DTSIR901
00019                                                                   DTSIR901
00020              15  R901-SORT-VAR-AREA          PIC  X(60).          DTSIR901
00021              15  R901-GRP1-SORT-AREA REDEFINES R901-SORT-VAR-AREA.DTSIR901
00022                  20  R901-GRP1-OP-ID         PIC  X(08).          DTSIR901
00023                  20  R901-GRP1-EMP-NO        PIC S9(07)   COMP-3. DTSIR901
00024                  20  FILLER                  PIC  X(48).          DTSIR901
00025              15  R901-GRP2-SORT-AREA REDEFINES R901-SORT-VAR-AREA.DTSIR901
00026                  20  R901-GRP2-OP-ID         PIC  X(08).          DTSIR901
00027                  20  R901-GRP2-EMP-NO        PIC S9(07)   COMP-3. DTSIR901
00028                  20  FILLER                  PIC  X(48).          DTSIR901
00029              15  R901-GRP3-SORT-AREA REDEFINES R901-SORT-VAR-AREA.DTSIR901
00030                  20  R901-GRP3-OP-ID         PIC  X(08).          DTSIR901
00031                  20  R901-GRP3-EMP-NO        PIC S9(07)   COMP-3. DTSIR901
00032                  20  FILLER                  PIC  X(48).          DTSIR901
00033              15  R901-GRP4-SORT-AREA REDEFINES R901-SORT-VAR-AREA.DTSIR901
00034                  20  R901-GRP4-IND-CODE-TYPE PIC  X(01).          DTSIR901
00035                      88  R901-GRP4-NAICS-88  VALUE '1'.           DTSIR901
00036                      88  R901-GRP4-SIC-88    VALUE '2'.           DTSIR901
00037                  20  R901-GRP4-IND-CODE      PIC  X(06).          DTSIR901
00038                  20  R901-GRP4-PRIMARY-NAME  PIC  X(40).          DTSIR901
00039                  20  R901-GRP4-EMP-NO        PIC S9(07)   COMP-3. DTSIR901
00040                  20  FILLER                  PIC  X(09).          DTSIR901
00041                                                                   DTSIR901
00042                                                                   DTSIR901
00043          10  R901-DATA-AREA.                                      DTSIR901
00044              15  R901-LABEL-CNT          PIC S9(03)       COMP-3. DTSIR901
00045              15  R901-EMP-NO             PIC S9(07)       COMP-3. DTSIR901
00046              15  R901-FMT-ADDR.                                   DTSIR901
00047                  20  R901-FMT-LINE OCCURS 5 TIMES                 DTSIR901
00048                                    INDEXED BY R901-FMT-IDX        DTSIR901
00049                                          PIC  X(40).              DTSIR901
00050              15  R901-ZIP                PIC  X(10).              DTSIR901
00051              15  R901-ADVANCED-BARCODE   PIC  X(14).              DTSIR901