00001 ***** 02/23/00 00002 * DTSIMAUR 00003 * DTSIMAUR MASTER FILE 'AUDIT RESULTS' RECORD DEFINITION LV003 00004 * DTSIMAUR 00005 * CL**2 00006 * 08/28/1998 REVIEWED AND MODIFIED FOR DC. EHH CL**2 00007 * CL**3 00008 * 02/23/2000 ADDED MAUR-INDCON-TO-EMPL-CNT, CL**3 00009 * REPLACING THREE BYTES OF FILLER. EHH CL**3 00010 * CL**3 00011 ***** DTSIMAUR 00012 CL**2 00013 10 MAUR-KEY-AREA. DTSIMAUR 00014 15 MAUR-EMP-NO PIC S9(07) COMP-3. DTSIMAUR 00015 15 MAUR-REC-TYPE PIC S9(04) COMP. DTSIMAUR 00016 88 MAUR-AUR-88 VALUE +27. DTSIMAUR 00017 15 MAUR-ASSIGN-NO PIC S9(09) COMP-3. DTSIMAUR 00018 15 MAUR-KEY-FILLER PIC X(05). DTSIMAUR 00019 CL**2 00020 CL**2 00021 10 MAUR-PURGE-DATE PIC S9(09) COMP-3. DTSIMAUR 00022 CL**2 00023 CL**2 00024 10 MAUR-DATA-AREA. DTSIMAUR 00025 15 MAUR-T022. DTSIMAUR 00026 20 MAUR-FIRST-YRQ PIC S9(05) COMP-3. DTSIMAUR 00027 CL**2 00028 20 MAUR-LAST-YRQ PIC S9(05) COMP-3. DTSIMAUR 00029 CL**2 00030 20 MAUR-QTRS-AUDITED-CNT PIC S9(03) COMP-3. DTSIMAUR 00031 CL**2 00032 20 MAUR-EMP-SIZE-IND PIC X(01). DTSIMAUR 00033 88 MAUR-EMP-SIZE-LARGE-88 VALUE 'L'. DTSIMAUR 00034 88 MAUR-EMP-SIZE-SMALL-88 VALUE 'S'. DTSIMAUR 00035 CL**2 00036 CL**2 00037 20 MAUR-ERROR-CNT PIC S9(04) COMP. DTSIMAUR 00038 CL**2 00039 20 MAUR-ERROR-AREA. DTSIMAUR 00040 25 MAUR-ERROR-TYPE PIC X(02) DTSIMAUR 00041 OCCURS 5 TIMES DTSIMAUR 00042 INDEXED BY MAUR-ERROR-IDX. DTSIMAUR 00043 CL**2 00044 CL**2 00045 20 MAUR-MONEY-DUE-AMT PIC S9(09)V9(02) COMP-3. DTSIMAUR 00046 CL**2 00047 20 MAUR-MONEY-COLLECT-AMT PIC S9(09)V9(02) COMP-3. DTSIMAUR 00048 CL**2 00049 20 MAUR-MONEY-REASON-CD PIC X(01). DTSIMAUR 00050 88 MAUR-ALL-MONEY-COLLECTED-88 VALUE '0'. DTSIMAUR 00051 CL**2 00052 20 MAUR-PEN-WAIVE-IND PIC X(01). CL**2 00053 88 MAUR-PEN-WAIVE-GRANTED-88 VALUE 'Y'. CL**2 00054 88 MAUR-PEN-WAIVE-NOT-GRANTED-88 VALUE 'N'. CL**2 00055 CL**2 00056 20 MAUR-INT-WAIVE-IND PIC X(01). CL**2 00057 88 MAUR-INT-WAIVE-GRANTED-88 VALUE 'Y'. CL**2 00058 88 MAUR-INT-WAIVE-NOT-GRANTED-88 VALUE 'N'. CL**2 00059 CL**2 00060 20 MAUR-AUDIT-HRS PIC S9(04)V9(01) COMP-3. DTSIMAUR 00061 CL**2 00062 20 MAUR-NEW-EMPLOYEE-CNT PIC S9(05) COMP-3. DTSIMAUR 00063 CL**3 00064 20 MAUR-INDCON-TO-EMPL-CNT PIC S9(05) COMP-3. CL**3 00065 CL**2 00066 CL**2 00067 15 FILLER PIC X(29). CL**3 00068 CL**2 00069 CL**2 00070 15 MAUR-CONVERTED-IND PIC X(01). DTSIMAUR 00071 88 MAUR-CONVERTED-88 VALUE 'Y'. DTSIMAUR 00072 88 MAUR-NOT-CONVERTED-88 VALUE 'N'. DTSIMAUR 00073 CL**2 00074 CL**2 00075 15 MAUR-ESTB-DATE PIC S9(09) COMP-3. DTSIMAUR 00076 CL**2 00077 15 MAUR-CHNG-DATE PIC S9(09) COMP-3. DTSIMAUR