00001 *****                                                             01/18/99
00002 *                                                                 DTSIR410
00003 *    DTSIR410    OPEN APPEALS REPORT RECORD.                         LV005
00004 *                                                                 DTSIR410
00005 *****                                                             DTSIR410
00006      SKIP1                                                        DTSIR410
00007          10  R410-LENGTH                 PIC S9(04)  COMP.           CL**2
00008      SKIP1                                                        DTSIR410
00009          10  R410-SORT-AREA.                                      DTSIR410
00010              15  R410-REC-TYPE           PIC  X(03).                 CL**2
00011              15  R410-APPEAL-LEVEL       PIC  X(01).              DTSIR410
00012                  88  R410-APPEAL-LEVEL-TAX-CHIEF     VALUE '1'.      CL**3
00013                  88  R410-APPEAL-LEVEL-OFFICE-APPL   VALUE '2'.      CL**5
00014                  88  R410-APPEAL-LEVEL-OAR           VALUE '3'.      CL**3
00015                  88  R410-APPEAL-LEVEL-COURT         VALUE '4'.      CL**3
00016                  88  R410-APPEAL-LEVEL-UNKOWN        VALUE '5'.      CL**3
00017              15  R410-APPEAL-LEVEL-9  REDEFINES R410-APPEAL-LEVEL DTSIR410
00018                                          PIC 9(01).               DTSIR410
00019              15  R410-EMP-NO             PIC S9(07)       COMP-3. DTSIR410
00020      SKIP1                                                        DTSIR410
00021          10  R410-DATA-AREA.                                      DTSIR410
00022              15  R410-PRIMARY-NAME       PIC  X(40).                 CL**2
00023              15  R410-APPEAL-TYPE        PIC  X(03).              DTSIR410
00024              15  R410-FILE-DATE          PIC S9(09)       COMP-3. DTSIR410
00025              15  R410-OPEN-DATE          PIC S9(09)       COMP-3. DTSIR410