DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
74
Copybook/DTSIMRCT.cpy
Normal file
74
Copybook/DTSIMRCT.cpy
Normal file
@ -0,0 +1,74 @@
|
||||
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
|
||||
Reference in New Issue
Block a user