00001 *****                                                             08/28/98
00002 *                                                                 DTSIMAPL
00003 *    DTSIMAPL  MASTER FILE 'APPEAL' RECORD DEFINITION.               LV002
00004 *                                                                 DTSIMAPL
00005 *                                                                    CL**2
00006 *              08/28/1998  REVEIWED AND MODIFIED FOR DC.  EHH        CL**2
00007 *                                                                    CL**2
00008 *****                                                             DTSIMAPL
00009                                                                      CL**2
00010          10  MAPL-KEY-AREA.                                       DTSIMAPL
00011              15  MAPL-EMP-NO             PIC S9(07)       COMP-3. DTSIMAPL
00012              15  MAPL-REC-TYPE           PIC S9(04)       COMP.   DTSIMAPL
00013                  88  MAPL-APL-88             VALUE +32.           DTSIMAPL
00014              15  MAPL-ESTB-ABSTIME       PIC S9(15)       COMP-3. DTSIMAPL
00015              15  MAPL-KEY-FILLER         PIC  X(02).              DTSIMAPL
00016                                                                      CL**2
00017          10  MAPL-PURGE-DATE             PIC S9(09)       COMP-3. DTSIMAPL
00018                                                                      CL**2
00019          10  MAPL-DATA-AREA.                                      DTSIMAPL
00020              15  MAPL-STATUS-CD          PIC  X(01).              DTSIMAPL
00021                  88  MAPL-STATUS-OPEN-88     VALUE 'O'.           DTSIMAPL
00022                  88  MAPL-STATUS-CLOSED-88   VALUE 'C'.           DTSIMAPL
00023                                                                      CL**2
00024              15  MAPL-STATUS-DATE        PIC S9(09)       COMP-3. DTSIMAPL
00025                                                                      CL**2
00026              15  MAPL-STATUS-OP-ID       PIC  X(08).              DTSIMAPL
00027                                                                      CL**2
00028              15  MAPL-OPEN-DATE          PIC S9(09)       COMP-3. DTSIMAPL
00029                                                                      CL**2
00030              15  MAPL-CLOSE-DATE         PIC S9(09)       COMP-3. DTSIMAPL
00031                                                                      CL**2
00032              15  MAPL-TYPE               PIC  X(03).              DTSIMAPL
00033                  88  MAPL-AUDIT-88           VALUE 'A  '.         DTSIMAPL
00034                  88  MAPL-STATUS-DETERM-88   VALUE 'S  '.            CL**2
00035                  88  MAPL-RATE-88            VALUE 'R  '.         DTSIMAPL
00036                  88  MAPL-BILL-88            VALUE 'B  '.         DTSIMAPL
00037                  88  MAPL-OTHER-88           VALUE 'O  '.         DTSIMAPL
00038                                                                      CL**2
00039                                                                      CL**2
00040              15  MAPL-APPEAL-LEVEL   OCCURS 4                        CL**2
00041                                      INDEXED BY MAPL-LVL-IDX.     DTSIMAPL
00042                  20  MAPL-FILE-DATE      PIC S9(09)       COMP-3. DTSIMAPL
00043                  20  MAPL-DECSN-DATE     PIC S9(09)       COMP-3. DTSIMAPL
00044                                                                      CL**2
00045                                                                      CL**2
00046              15  MAPL-COVERED-CNT        PIC S9(04)       COMP.   DTSIMAPL
00047                                                                      CL**2
00048              15  MAPL-COVERED-YRQ    OCCURS 20                    DTSIMAPL
00049                                      INDEXED BY MAPL-COV-IDX      DTSIMAPL
00050                                          PIC S9(05)       COMP-3. DTSIMAPL
00051                                                                      CL**2
00052                                                                      CL**2
00053              15  FILLER                  PIC  X(48).              DTSIMAPL
00054                                                                      CL**2
00055                                                                      CL**2
00056              15  MAPL-CONVERTED-IND      PIC  X(01).              DTSIMAPL
00057                  88  MAPL-CONVERTED-88       VALUE 'Y'.           DTSIMAPL
00058                  88  MAPL-NOT-CONVERTED-88   VALUE 'N'.           DTSIMAPL
00059                                                                      CL**2
00060                                                                      CL**2
00061              15  MAPL-ESTB-DATE          PIC S9(09)       COMP-3. DTSIMAPL
00062                                                                      CL**2
00063              15  MAPL-CHNG-DATE          PIC S9(09)       COMP-3. DTSIMAPL
00064                                                                      CL**2
00065                                                                      CL**2
00066              15  MAPL-TEXT-CNT           PIC S9(04)       COMP.   DTSIMAPL
00067                                                                      CL**2
00068              15  MAPL-TEXT-AREA.                                  DTSIMAPL
00069                  20  MAPL-TEXT       OCCURS 8 TIMES               DTSIMAPL
00070                                      INDEXED BY MAPL-TEXT-IDX     DTSIMAPL
00071                                          PIC  X(72).              DTSIMAPL