00001 *****                                                             06/28/99
00002 *                                                                 DTSIR502
00003 *    DTSIR502    RATE DISCREPANCY LIST                               LV004
00004 *                REPORT RECORD.                                   DTSIR502
00005 *              (IF THERE ARE NONE OF THESE REPORT RECORDS,        DTSIR502
00006 *               NEED TO GENERATE THE REPORT ANYWAY WITH THE       DTSIR502
00007 *               MESSAGE "NO DISCREPANCIES FOUND")                 DTSIR502
00008 *                                                                 DTSIR502
00009 *                                                                    CL**2
00010 *               01/16/1999  REVIEWED AND MODIFIED FOR DC.  EHH       CL**2
00011 *                                                                    CL**2
00012 *****                                                             DTSIR502
00013                                                                      CL**2
00014          10  R502-LENGTH         PIC S9(04)  COMP    VALUE +159.     CL**3
00015                                                                      CL**2
00016          10  R502-SORT-AREA.                                      DTSIR502
00017              15  R502-REC-TYPE           PIC  X(03)  VALUE '502'. DTSIR502
00018              15  R502-MSG-IDENTIFIER     PIC  X(04).              DTSIR502
00019              15  R502-EMP-NO             PIC S9(07)  COMP-3.      DTSIR502
00020              15  R502-EFFECTIVE-QTR      PIC S9(05)  COMP-3.      DTSIR502
00021                                                                      CL**2
00022          10  R502-DATA-AREA.                                      DTSIR502
00023              15  R502-PRIMARY-NAME       PIC  X(40).                 CL**2
00024 *************15  R502-NEW-SIC-DIVISION   PIC  X(01).                 CL**2
00025 *************15  R502-RATE-TYPE          PIC  X(01).                 CL**2
00026              15  R502-RATE               PIC S9(01)V9(04) COMP-3. DTSIR502
00027                  88  R502-NO-RATE-88            VALUE -9.9999.    DTSIR502
00028              15  R502-MSG-TEXT.                                   DTSIR502
00029                  20  R502-MSG-TEXT-1     PIC  X(50).              DTSIR502
00030                  20  R502-MSG-TEXT-2     PIC  X(50).              DTSIR502
00031          10  FILLER                      PIC  X(91).                 CL**4