DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
Neeraj Kumar
116
Copybook/DTSIMERA.cpy
Normal file
116
Copybook/DTSIMERA.cpy
Normal file
@ -0,0 +1,116 @@
|
||||
00001 ***** 02/26/08
|
||||
00002 * DTSIMERA
|
||||
00003 * DTSIMERA MASTER FILE 'EMPLOYER REGISTRATION CYCLE A' LV008
|
||||
00004 * RECORD DEFINITION. DTSIMERA
|
||||
00005 * DTSIMERA
|
||||
00006 * DTSIMERA
|
||||
00007 * 08/28/1998 REVIEWED AND MODIFIED FOR DC. EHH DTSIMERA
|
||||
00008 * 05/31/2000 ADDED FIRST LABEL IND FIELD. ZL1 DTSIMERA
|
||||
00009 * 07/22/2004 UPDATED LEVEL-88S FOR SOURCE CODE - GD DTSIMERA
|
||||
00010 * 06/01/2005 ADDED WEB REGISTRATION AND FISCAL DTSIMERA
|
||||
00011 * AGENT SOURCE CODES. - GD DTSIMERA
|
||||
00012 * DTSIMERA
|
||||
00013 ***** DTSIMERA
|
||||
00014 DTSIMERA
|
||||
00015 10 MERA-KEY-AREA. DTSIMERA
|
||||
00016 15 MERA-EMP-NO PIC S9(07) COMP-3. DTSIMERA
|
||||
00017 15 MERA-REC-TYPE PIC S9(04) COMP. DTSIMERA
|
||||
00018 88 MERA-ERA-88 VALUE +18. DTSIMERA
|
||||
00019 15 MERA-KEY-FILLER PIC X(10). DTSIMERA
|
||||
00020 DTSIMERA
|
||||
00021 DTSIMERA
|
||||
00022 10 MERA-PURGE-DATE PIC S9(09) COMP-3. DTSIMERA
|
||||
00023 DTSIMERA
|
||||
00024 DTSIMERA
|
||||
00025 10 MERA-DATA-AREA. DTSIMERA
|
||||
00026 15 MERA-SOURCE-CD PIC X(02). DTSIMERA
|
||||
00027 88 MERA-SOURCE-CNTR-CMPLY-88 VALUE '00'. DTSIMERA
|
||||
00028 88 MERA-SOURCE-PHONE-88 VALUE '01'. DTSIMERA
|
||||
00029 88 MERA-SOURCE-LETTER-88 VALUE '02'. DTSIMERA
|
||||
00030 88 MERA-SOURCE-VOL-88 VALUE '03'. DTSIMERA
|
||||
00031 88 MERA-SOURCE-PRED-88 VALUE '04'. DTSIMERA
|
||||
00032 88 MERA-SOURCE-BEN-88 VALUE '05'. DTSIMERA
|
||||
00033 88 MERA-SOURCE-940-88 VALUE '06'. DTSIMERA
|
||||
00034 88 MERA-SOURCE-UNION-HALL-88 VALUE '07'. DTSIMERA
|
||||
00035 88 MERA-SOURCE-FIELD-REP-88 VALUE '08'. DTSIMERA
|
||||
00036 88 MERA-SOURCE-FOLLOW-UP-88 VALUE '09'. DTSIMERA
|
||||
00037 88 MERA-SOURCE-DEPT-REVENUE-88 VALUE '10'. DTSIMERA
|
||||
00038 88 MERA-SOURCE-WRKR-COMP-88 VALUE '11'. DTSIMERA
|
||||
00039 88 MERA-SOURCE-LIQ-LICENSE-88 VALUE '12'. DTSIMERA
|
||||
00040 88 MERA-SOURCE-FEIN-LIST-88 VALUE '13'. DTSIMERA
|
||||
00041 88 MERA-SOURCE-UC30-STAFF-88 VALUE '14'. DTSIMERA
|
||||
00042 88 MERA-SOURCE-UC30-SYS-88 VALUE '15'. DTSIMERA
|
||||
00043 88 MERA-SOURCE-UC30-88 VALUE '14', '15'.DTSIMERA
|
||||
00044 88 MERA-SOURCE-FISC-AGNT-88 VALUE '16'. DTSIMERA
|
||||
00045 88 MERA-SOURCE-WEB-REG-88 VALUE '17'. DTSIMERA
|
||||
00046 88 MERA-SOURCE-WEB-REG-PRED-88 VALUE '18'. DTSIMERA
|
||||
00047 88 MERA-SOURCE-WEB-REG-SUCC-88 VALUE '19'. DTSIMERA
|
||||
00048 88 MERA-SOURCE-WEB-88 VALUE DTSIMERA
|
||||
00049 '17' THRU '19'. DTSIMERA
|
||||
00050 88 MERA-SOURCE-SYSTEM-88 VALUE DTSIMERA
|
||||
00051 '14' THRU '19'. DTSIMERA
|
||||
00052 88 MERA-SOURCE-OTH-88 VALUE '98'. DTSIMERA
|
||||
00053 88 MERA-SOURCE-UNK-88 VALUE '99'. DTSIMERA
|
||||
00054 DTSIMERA
|
||||
00055 15 MERA-CLAIMANT-SSN PIC S9(09) COMP-3. DTSIMERA
|
||||
00056 DTSIMERA
|
||||
00057 15 MERA-CLAIMANT-NAME PIC X(32). DTSIMERA
|
||||
00058 DTSIMERA
|
||||
00059 15 MERA-RESPONSIBLE-OP-ID PIC X(08). DTSIMERA
|
||||
00060 DTSIMERA
|
||||
00061 15 MERA-POT-PRED-EMP-NO PIC S9(07) COMP-3. DTSIMERA
|
||||
00062 DTSIMERA
|
||||
00063 15 MERA-NOTE PIC X(60). DTSIMERA
|
||||
00064 DTSIMERA
|
||||
00065 15 MERA-LETTER-1-CD PIC X(02). DTSIMERA
|
||||
00066 88 MERA-LETTER-GENERIC-88 VALUE '01'. DTSIMERA
|
||||
00067 88 MERA-LETTER-EMP-REQUEST-88 VALUE '02'. DTSIMERA
|
||||
00068 88 MERA-LETTER-UC30-RCVD-88 VALUE '04'. DTSIMERA
|
||||
00069 88 MERA-LETTER-CLAIMNT-WGS-88 VALUE '05'. DTSIMERA
|
||||
00070 DTSIMERA
|
||||
00071 15 MERA-LABEL-CNT PIC S9(01) COMP-3. DTSIMERA
|
||||
00072 DTSIMERA
|
||||
00073 15 MERA-STATUS-CD PIC X(02). DTSIMERA
|
||||
00074 88 MERA-STATUS-SETUP-88 VALUE '00'. DTSIMERA
|
||||
00075 88 MERA-STATUS-LTR1-88 VALUE '01'. DTSIMERA
|
||||
00076 88 MERA-STATUS-LTR2-88 VALUE '02'. DTSIMERA
|
||||
00077 88 MERA-STATUS-COOP-88 VALUE '05'. DTSIMERA
|
||||
00078 88 MERA-STATUS-ASSGN-GEN-88 VALUE '06'. DTSIMERA
|
||||
00079 88 MERA-STATUS-MANUAL-88 VALUE '09'. DTSIMERA
|
||||
00080 88 MERA-STATUS-RECD-88 VALUE '11'. DTSIMERA
|
||||
00081 88 MERA-STATUS-HOLD-88 VALUE '12'. DTSIMERA
|
||||
00082 88 MERA-STATUS-NOT-LIAB-88 VALUE '21'. DTSIMERA
|
||||
00083 88 MERA-STATUS-LIAB-88 VALUE '31'. DTSIMERA
|
||||
00084 88 MERA-STATUS-ACTIVE-88 VALUE '00' DTSIMERA
|
||||
00085 THRU '11'. DTSIMERA
|
||||
00086 DTSIMERA
|
||||
00087 15 MERA-STATUS-CHNG-DATE PIC S9(09) COMP-3. DTSIMERA
|
||||
00088 DTSIMERA
|
||||
00089 15 MERA-MAIL-DATE-1 PIC S9(09) COMP-3. DTSIMERA
|
||||
00090 DTSIMERA
|
||||
00091 15 MERA-MAIL-DATE-2 PIC S9(09) COMP-3. DTSIMERA
|
||||
00092 DTSIMERA
|
||||
00093 15 MERA-COOP-AGENCY-REQ-DATE DTSIMERA
|
||||
00094 PIC S9(09) COMP-3. DTSIMERA
|
||||
00095 DTSIMERA
|
||||
00096 15 MERA-FIELD-ASSIGN-DATE PIC S9(09) COMP-3. DTSIMERA
|
||||
00097 DTSIMERA
|
||||
00098 15 MERA-RECEIVED-DATE PIC S9(09) COMP-3. DTSIMERA
|
||||
00099 DTSIMERA
|
||||
00100 15 MERA-DETER-NOTSUB-DATE PIC S9(09) COMP-3. DTSIMERA
|
||||
00101 DTSIMERA
|
||||
00102 15 MERA-FIRST-LABEL-IND PIC X(01). DTSIMERA
|
||||
00103 88 MERA-FIRST-LABEL-NEEDED-88 VALUE '0'. DTSIMERA
|
||||
00104 88 MERA-FIRST-LABEL-PRINTED-88 VALUE '1'. DTSIMERA
|
||||
00105 DTSIMERA
|
||||
00106 15 FILLER PIC X(47). DTSIMERA
|
||||
00107 DTSIMERA
|
||||
00108 DTSIMERA
|
||||
00109 15 MERA-CONVERTED-IND PIC X(01). DTSIMERA
|
||||
00110 88 MERA-CONVERTED-88 VALUE 'Y'. DTSIMERA
|
||||
00111 88 MERA-NOT-CONVERTED-88 VALUE 'N'. DTSIMERA
|
||||
00112 DTSIMERA
|
||||
00113 DTSIMERA
|
||||
00114 15 MERA-ESTB-DATE PIC S9(09) COMP-3. DTSIMERA
|
||||
00115 DTSIMERA
|
||||
00116 15 MERA-CHNG-DATE PIC S9(09) COMP-3. DTSIMERA
|
||||
Reference in New Issue
Block a user