117 lines
9.2 KiB
COBOL
117 lines
9.2 KiB
COBOL
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
|