00001 *****                                                             03/19/13
00002 *                                                                 DTSIR602
00003 *   MACIR602   FIELD ASSIGNMENT AUDIT CANDIDATE REPORT RECORD.       LV013
00004 *                                                                 DTSIR602
00005 *                NOTE: TWO R602 RECORDS WRITTEN (ONE R602-        DTSIR602
00006 *                UNIVERSE-CNT-88 AND ONE R602-SELECTION-88) FOR   DTSIR602
00007 *                EACH EMPLOYER IN THE AUDIT CANDIDATE UNIVERSE.   DTSIR602
00008 *                THE REPORT PROGRAM COUNTS R602-UNIVERSE-CNT-88   DTSIR602
00009 *                RECORDS, DETERMINING THE SIZE OF THE UNIVERSE    DTSIR602
00010 *                FROM WHICH CANDIDATES ARE TO BE SELECTED.        DTSIR602
00011 *                                                                 DTSIR602
00012 *    01/02/2008  MODIFIED FOR AUTOMATIC ASSIGNMENT PROCESS  GD    DTSIR602
00013 *    11/12/2008  MODIFIED TO INCLUDE EMP MAILING ADDRESS    ZL1   DTSIR602
00014 *    01/23/2012  ADDED TARGETED IND TO IDENTIFY TARGETED          DTSIR602
00015 *                AUDITS                                     GD    DTSIR602
00016 *****                                                             DTSIR602
00017      SKIP1                                                        DTSIR602
00018          10  R602-LENGTH         PIC S9(04)  COMP.                DTSIR602
00019      SKIP1                                                        DTSIR602
00020          10  R602-SORT-AREA.                                      DTSIR602
00021              15  R602-REC-TYPE           PIC  X(03).              DTSIR602
00022              15  R602-FIELD-REP-ID       PIC  X(02).              DTSIR602
00023              15  R602-EMP-SIZE-IND       PIC  X(01).              DTSIR602
00024                  88  R602-EMP-SIZE-LARGE     VALUE 'L'.           DTSIR602
00025                  88  R602-EMP-SIZE-SMALL     VALUE 'S'.           DTSIR602
00026              15  R602-REC-SUB-TYPE       PIC  X(01).              DTSIR602
00027                  88  R602-UNIVERSE-CNT-88    VALUE '1'.           DTSIR602
00028                  88  R602-SELECTION-88       VALUE '2'.           DTSIR602
00029              15  R602-FLD-ZIP            PIC  X(10).              DTSIR602
00030              15  R602-EMP-NO             PIC S9(07)  COMP-3.      DTSIR602
00031      SKIP1                                                        DTSIR602
00032          10  R602-DATA-AREA.                                      DTSIR602
00033              15  R602-ASSIGN-NO          PIC S9(09)  COMP-3.      DTSIR602
00034              15  R602-PRIMARY-NAME       PIC  X(40).              DTSIR602
00035              15  R602-SIC-CD             PIC  X(04).              DTSIR602
00036              15  R602-OWN-CD             PIC  X(02).              DTSIR602
00037              15  R602-NAICS-CD           PIC  9(06).              DTSIR602
00038              15  R602-PRIOR-YR-WAGES     PIC S9(11)V99            DTSIR602
00039                                                      COMP-3.      DTSIR602
00040              15  R602-TARGET-IND         PIC  X(01).              DTSIR602
00041                  88  R602-TARGETED-YES-88  VALUE 'Y'.             DTSIR602
00042                  88  R602-TARGETED-NO-88   VALUE 'D'.             DTSIR602
00043              15  R602-FMT-ADDR.                                   DTSIR602
00044                  20  R602-FMT-LINE OCCURS 5 TIMES                 DTSIR602
00045                                INDEXED BY R602-FMT-IDX            DTSIR602
00046                                          PIC  X(40).              DTSIR602
00047              15  R602-ZIP                PIC  X(10).              DTSIR602
00048              15  R602-ADVANCED-BARCODE   PIC  X(14).              DTSIR602