75 lines
5.9 KiB
COBOL
75 lines
5.9 KiB
COBOL
00001 ***** 11/11/02
|
|
00002 * DTSIMRCT
|
|
00003 * DTSIMRCT MASTER FILE 'RATE CUTOFF' RECORD DEFINITION. LV004
|
|
00004 * DTSIMRCT
|
|
00005 * DTSIMRCT
|
|
00006 * 08/31/1998 REVIEWED AND MODIFIED FOR DC. EHH DTSIMRCT
|
|
00007 * 07/05/2002 ADDED MRCT-ESTIM-WAGE-IND GD DTSIMRCT
|
|
00008 * DTSIMRCT
|
|
00009 ***** DTSIMRCT
|
|
00010 DTSIMRCT
|
|
00011 10 MRCT-KEY-AREA. DTSIMRCT
|
|
00012 15 MRCT-EMP-NO PIC S9(07) COMP-3. DTSIMRCT
|
|
00013 15 MRCT-REC-TYPE PIC S9(04) COMP. DTSIMRCT
|
|
00014 88 MRCT-RCT-88 VALUE +09. DTSIMRCT
|
|
00015 15 MRCT-EFF-YRQ PIC S9(05) COMP-3. DTSIMRCT
|
|
00016 15 MRCT-KEY-FILLER PIC X(07). DTSIMRCT
|
|
00017 DTSIMRCT
|
|
00018 DTSIMRCT
|
|
00019 10 MRCT-PURGE-DATE PIC S9(09) COMP-3. DTSIMRCT
|
|
00020 DTSIMRCT
|
|
00021 DTSIMRCT
|
|
00022 10 MRCT-DATA-AREA. DTSIMRCT
|
|
00023 15 MRCT-ACTIVE-IND PIC X(01). DTSIMRCT
|
|
00024 88 MRCT-EMP-ACTIVE-YES-88 VALUE 'Y'. DTSIMRCT
|
|
00025 88 MRCT-EMP-ACTIVE-NO-88 VALUE 'N'. DTSIMRCT
|
|
00026 DTSIMRCT
|
|
00027 15 MRCT-PRIOR-RESERVE-AMT PIC S9(09)V9(02) COMP-3.DTSIMRCT
|
|
00028 DTSIMRCT
|
|
00029 15 MRCT-UI-TAX-PAID-AMT PIC S9(09)V9(02) COMP-3.DTSIMRCT
|
|
00030 DTSIMRCT
|
|
00031 15 MRCT-TRUST-FUND-INTEREST-AMT DTSIMRCT
|
|
00032 PIC S9(09)V9(02) COMP-3.DTSIMRCT
|
|
00033 DTSIMRCT
|
|
00034 15 MRCT-BENEFITS-CHARGED-AMT DTSIMRCT
|
|
00035 PIC S9(09)V9(02) COMP-3.DTSIMRCT
|
|
00036 DTSIMRCT
|
|
00037 15 MRCT-WAGES-AREA DTSIMRCT
|
|
00038 OCCURS 3 TIMES DTSIMRCT
|
|
00039 INDEXED BY MRCT-WAGES-IDX. DTSIMRCT
|
|
00040 20 MRCT-TOT-WAGE PIC S9(11)V9(02) COMP-3.DTSIMRCT
|
|
00041 20 MRCT-TAX-WAGE PIC S9(11)V9(02) COMP-3.DTSIMRCT
|
|
00042 DTSIMRCT
|
|
00043 15 MRCT-EARLIEST-LIAB-DATE PIC S9(09) COMP-3.DTSIMRCT
|
|
00044 DTSIMRCT
|
|
00045 15 MRCT-MISS-RPT-CNT PIC S9(03) COMP-3.DTSIMRCT
|
|
00046 DTSIMRCT
|
|
00047 15 MRCT-TOT-UI-TAX-BALANCE-AMT DTSIMRCT
|
|
00048 PIC S9(09)V9(02) COMP-3.DTSIMRCT
|
|
00049 DTSIMRCT
|
|
00050 15 MRCT-PRED-DUE-IND PIC X(01). DTSIMRCT
|
|
00051 88 MRCT-PRED-DUE-NO-88 VALUE 'N'. DTSIMRCT
|
|
00052 88 MRCT-PRED-DUE-YES-88 VALUE 'Y'. DTSIMRCT
|
|
00053 DTSIMRCT
|
|
00054 15 MRCT-TRANSFERRED-TO-EMP-NO DTSIMRCT
|
|
00055 PIC S9(07) COMP-3. DTSIMRCT
|
|
00056 DTSIMRCT
|
|
00057 15 MRCT-CHNG-OP-ID PIC X(08). DTSIMRCT
|
|
00058 88 MRCT-CHNG-SYSTEM-88 VALUE 'SYSTEM'. DTSIMRCT
|
|
00059 DTSIMRCT
|
|
00060 DTSIMRCT
|
|
00061 15 MRCT-QTR1-ESTIM-TAX-WAGE DTSIMRCT
|
|
00062 PIC S9(11)V9(02) COMP-3.DTSIMRCT
|
|
00063 DTSIMRCT
|
|
00064 15 FILLER PIC X(25). DTSIMRCT
|
|
00065 DTSIMRCT
|
|
00066 DTSIMRCT
|
|
00067 15 MRCT-CONVERTED-IND PIC X(01). DTSIMRCT
|
|
00068 88 MRCT-CONVERTED-88 VALUE 'Y'. DTSIMRCT
|
|
00069 88 MRCT-NOT-CONVERTED-88 VALUE 'N'. DTSIMRCT
|
|
00070 DTSIMRCT
|
|
00071 DTSIMRCT
|
|
00072 15 MRCT-ESTB-DATE PIC S9(09) COMP-3. DTSIMRCT
|
|
00073 DTSIMRCT
|
|
00074 15 MRCT-CHNG-DATE PIC S9(09) COMP-3. DTSIMRCT
|