78 lines
6.1 KiB
COBOL
78 lines
6.1 KiB
COBOL
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
|