68 lines
5.3 KiB
COBOL
68 lines
5.3 KiB
COBOL
00001 ***** 08/28/98
|
|
00002 * DTSIMAUY
|
|
00003 * MACIMAUY MASTER FILE 'CALENDAR YEAR AUDIT RESULTS' LV002
|
|
00004 * RECORD DEFINITION. DTSIMAUY
|
|
00005 * DTSIMAUY
|
|
00006 * NOTE: L810-COUNT-88 RETURNS THE NUMBER OF RECORDS FOR THE DTSIMAUY
|
|
00007 * SINGLE MAUY-ASSIGN-NO PROVIDED. DTSIMAUY
|
|
00008 * DTSIMAUY
|
|
00009 * CL**2
|
|
00010 * 08/28/1998 REVIEWED AND MODIFIED FOR DC. EHH CL**2
|
|
00011 * CL**2
|
|
00012 ***** DTSIMAUY
|
|
00013 CL**2
|
|
00014 10 MAUY-KEY-AREA. DTSIMAUY
|
|
00015 15 MAUY-EMP-NO PIC S9(07) COMP-3. DTSIMAUY
|
|
00016 15 MAUY-REC-TYPE PIC S9(04) COMP. DTSIMAUY
|
|
00017 88 MAUY-AUY-88 VALUE +28. DTSIMAUY
|
|
00018 15 MAUY-ASSIGN-NO PIC S9(09) COMP-3. DTSIMAUY
|
|
00019 15 MAUY-CALENDAR-YEAR PIC 9(04). DTSIMAUY
|
|
00020 15 MAUY-KEY-FILLER PIC X(01). DTSIMAUY
|
|
00021 CL**2
|
|
00022 CL**2
|
|
00023 10 MAUY-PURGE-DATE PIC S9(09) COMP-3. DTSIMAUY
|
|
00024 CL**2
|
|
00025 CL**2
|
|
00026 10 MAUY-DATA-AREA. DTSIMAUY
|
|
00027 15 MAUY-YR. DTSIMAUY
|
|
00028 20 MAUY-QTR OCCURS 4 DTSIMAUY
|
|
00029 INDEXED BY MAUY-QTR-IDX. DTSIMAUY
|
|
00030 25 MAUY-QTR-AUDITED-IND DTSIMAUY
|
|
00031 PIC X(01). DTSIMAUY
|
|
00032 88 MAUY-QTR-AUDITED-88 VALUE 'Y'. DTSIMAUY
|
|
00033 88 MAUY-QTR-NOT-AUDITED-88 VALUE 'N'. DTSIMAUY
|
|
00034 CL**2
|
|
00035 25 MAUY-QTR-GROSS-PAYROLL DTSIMAUY
|
|
00036 PIC S9(11)V9(02) COMP-3. DTSIMAUY
|
|
00037 CL**2
|
|
00038 25 MAUY-QTR-UNDER-TOT-WAGE DTSIMAUY
|
|
00039 PIC S9(11)V9(02) COMP-3. DTSIMAUY
|
|
00040 CL**2
|
|
00041 25 MAUY-QTR-UNDER-TAX-WAGE DTSIMAUY
|
|
00042 PIC S9(11)V9(02) COMP-3. DTSIMAUY
|
|
00043 CL**2
|
|
00044 25 MAUY-QTR-UNDER-CONTRIB DTSIMAUY
|
|
00045 PIC S9(09)V9(02) COMP-3. DTSIMAUY
|
|
00046 CL**2
|
|
00047 25 MAUY-QTR-OVER-TOT-WAGE DTSIMAUY
|
|
00048 PIC S9(11)V9(02) COMP-3. DTSIMAUY
|
|
00049 CL**2
|
|
00050 25 MAUY-QTR-OVER-TAX-WAGE DTSIMAUY
|
|
00051 PIC S9(11)V9(02) COMP-3. DTSIMAUY
|
|
00052 CL**2
|
|
00053 25 MAUY-QTR-OVER-CONTRIB DTSIMAUY
|
|
00054 PIC S9(09)V9(02) COMP-3. DTSIMAUY
|
|
00055 CL**2
|
|
00056 CL**2
|
|
00057 15 FILLER PIC X(48). DTSIMAUY
|
|
00058 CL**2
|
|
00059 CL**2
|
|
00060 15 MAUY-CONVERTED-IND PIC X(01). DTSIMAUY
|
|
00061 88 MAUY-CONVERTED-88 VALUE 'Y'. DTSIMAUY
|
|
00062 88 MAUY-NOT-CONVERTED-88 VALUE 'N'. DTSIMAUY
|
|
00063 CL**2
|
|
00064 CL**2
|
|
00065 15 MAUY-ESTB-DATE PIC S9(09) COMP-3. DTSIMAUY
|
|
00066 CL**2
|
|
00067 15 MAUY-CHNG-DATE PIC S9(09) COMP-3. DTSIMAUY
|