106 lines
8.3 KiB
COBOL
106 lines
8.3 KiB
COBOL
00001 ***** 10/18/05
|
|
00002 * DTSIMSOL
|
|
00003 * DTSIMSOL MASTER FILE 'SPAN OF LIABILITY' RECORD DEFINITION. LV005
|
|
00004 * DTSIMSOL
|
|
00005 * DTSIMSOL
|
|
00006 * 08/31/1998 REVIEWED AND MODIFIED FOR DC. EHH DTSIMSOL
|
|
00007 * DTSIMSOL
|
|
00008 ***** DTSIMSOL
|
|
00009 DTSIMSOL
|
|
00010 10 MSOL-KEY-AREA. DTSIMSOL
|
|
00011 15 MSOL-EMP-NO PIC S9(07) COMP-3. DTSIMSOL
|
|
00012 15 MSOL-REC-TYPE PIC S9(04) COMP. DTSIMSOL
|
|
00013 88 MSOL-SOL-88 VALUE +04. DTSIMSOL
|
|
00014 15 MSOL-LIAB-DATE PIC S9(09) COMP-3. DTSIMSOL
|
|
00015 15 MSOL-KEY-FILLER PIC X(05). DTSIMSOL
|
|
00016 DTSIMSOL
|
|
00017 DTSIMSOL
|
|
00018 10 MSOL-PURGE-DATE PIC S9(09) COMP-3. DTSIMSOL
|
|
00019 DTSIMSOL
|
|
00020 DTSIMSOL
|
|
00021 10 MSOL-DATA-AREA. DTSIMSOL
|
|
00022 15 MSOL-LIAB-DATA. DTSIMSOL
|
|
00023 20 MSOL-FIRST-LIAB-YRQ PIC S9(05) COMP-3. DTSIMSOL
|
|
00024 DTSIMSOL
|
|
00025 20 MSOL-LIAB-ESTB-DATE DTSIMSOL
|
|
00026 PIC S9(09) COMP-3. DTSIMSOL
|
|
00027 DTSIMSOL
|
|
00028 20 MSOL-LIAB-MAIL-DATE DTSIMSOL
|
|
00029 PIC S9(09) COMP-3. DTSIMSOL
|
|
00030 DTSIMSOL
|
|
00031 20 MSOL-LIAB-CD PIC X(02). DTSIMSOL
|
|
00032 88 MSOL-LIAB-RATED-REG-88 VALUE '01'. DTSIMSOL
|
|
00033 88 MSOL-LIAB-RATED-NON-PROF-88 VALUE '02'. DTSIMSOL
|
|
00034 88 MSOL-LIAB-RATED-DOMESTIC-88 VALUE '04'. DTSIMSOL
|
|
00035 88 MSOL-LIAB-RATED-SUCC-88 VALUE '05'. DTSIMSOL
|
|
00036 88 MSOL-LIAB-RATED-FUTA-88 VALUE '06'. DTSIMSOL
|
|
00037 88 MSOL-LIAB-RATED-FOREIGN-88 VALUE '07'. DTSIMSOL
|
|
00038 88 MSOL-LIAB-RATED-VOLUNT-88 VALUE '08'. DTSIMSOL
|
|
00039 88 MSOL-LIAB-RATED-OTH-88 VALUE '09'. DTSIMSOL
|
|
00040 88 MSOL-LIAB-RATED-CONV-88 VALUE '10'. DTSIMSOL
|
|
00041 88 MSOL-LIAB-RATED-UNK-88 VALUE '11'. DTSIMSOL
|
|
00042 DTSIMSOL
|
|
00043 88 MSOL-LIAB-SELF-INS-SCHOOL-88 VALUE '21'. DTSIMSOL
|
|
00044 88 MSOL-LIAB-SELF-INS-CITY-88 VALUE '22'. DTSIMSOL
|
|
00045 88 MSOL-LIAB-SELF-INS-COUNTY-88 VALUE '23'. DTSIMSOL
|
|
00046 88 MSOL-LIAB-SELF-INS-STATE-88 VALUE '24'. DTSIMSOL
|
|
00047 88 MSOL-LIAB-SELF-INS-CHURCH-88 VALUE '25'. DTSIMSOL
|
|
00048 88 MSOL-LIAB-SELF-INS-NON-PROF-88 DTSIMSOL
|
|
00049 VALUE '26'. DTSIMSOL
|
|
00050 88 MSOL-LIAB-SELF-INS-OTH-88 VALUE '27'. DTSIMSOL
|
|
00051 88 MSOL-LIAB-SELF-INS-CONV-88 VALUE '28'. DTSIMSOL
|
|
00052 88 MSOL-LIAB-SELF-INS-UNK-88 VALUE '29'. DTSIMSOL
|
|
00053 88 MSOL-LIAB-SELF-INS-VOLUNT-88 VALUE '30'. DTSIMSOL
|
|
00054 DTSIMSOL
|
|
00055 88 MSOL-LIAB-REG-88 VALUE DTSIMSOL
|
|
00056 '01' '02' '04' '05' '06' '07' DTSIMSOL
|
|
00057 '08' '09' '10' '11'. DTSIMSOL
|
|
00058 88 MSOL-LIAB-SELF-88 VALUE DTSIMSOL
|
|
00059 '21' '22' '23' '24' '25' '26' '27' DTSIMSOL
|
|
00060 '28' '29' '30'. DTSIMSOL
|
|
00061 88 MSOL-LIAB-UNK-88 VALUE DTSIMSOL
|
|
00062 '10' '11' '28' '29'. DTSIMSOL
|
|
00063 DTSIMSOL
|
|
00064 20 MSOL-NEW-EMPLOYER-IND DTSIMSOL
|
|
00065 PIC X(01). DTSIMSOL
|
|
00066 88 MSOL-NEW-EMP-88 VALUE 'Y'. DTSIMSOL
|
|
00067 88 MSOL-SUCC-EMP-88 VALUE 'N'. DTSIMSOL
|
|
00068 DTSIMSOL
|
|
00069 15 MSOL-INACT-DATA. DTSIMSOL
|
|
00070 20 MSOL-INACT-DATE PIC S9(09) COMP-3. DTSIMSOL
|
|
00071 DTSIMSOL
|
|
00072 20 MSOL-LAST-LIAB-YRQ PIC S9(05) COMP-3. DTSIMSOL
|
|
00073 DTSIMSOL
|
|
00074 20 MSOL-INACT-ENTER-DATE DTSIMSOL
|
|
00075 PIC S9(09) COMP-3. DTSIMSOL
|
|
00076 DTSIMSOL
|
|
00077 20 MSOL-INACT-REVERSE-DATE DTSIMSOL
|
|
00078 PIC S9(09) COMP-3. DTSIMSOL
|
|
00079 DTSIMSOL
|
|
00080 20 MSOL-INACT-CD PIC X(02). DTSIMSOL
|
|
00081 88 MSOL-INACT-ACTIVE-88 VALUE ' '. DTSIMSOL
|
|
00082 88 MSOL-INACT-TERMINATION-88 VALUE '01'. DTSIMSOL
|
|
00083 88 MSOL-INACT-OUT-OF-BUS-88 VALUE '02'. DTSIMSOL
|
|
00084 88 MSOL-INACT-WDRW-DUP-88 VALUE '04'. DTSIMSOL
|
|
00085 88 MSOL-INACT-WDRW-CAN-88 VALUE '05'. DTSIMSOL
|
|
00086 88 MSOL-INACT-SUCCEEDED-88 VALUE '06'. DTSIMSOL
|
|
00087 88 MSOL-INACT-PAY-CHANGE-88 VALUE '07'. DTSIMSOL
|
|
00088 DTSIMSOL
|
|
00089 88 MSOL-INACT-INACTIVE-88 VALUE DTSIMSOL
|
|
00090 '01' '02' '04' '05' '06' '07'. DTSIMSOL
|
|
00091 88 MSOL-INACT-WITHDRAWN-88 VALUE DTSIMSOL
|
|
00092 '04' '05'. DTSIMSOL
|
|
00093 DTSIMSOL
|
|
00094 DTSIMSOL
|
|
00095 15 FILLER PIC X(32). DTSIMSOL
|
|
00096 DTSIMSOL
|
|
00097 DTSIMSOL
|
|
00098 15 MSOL-CONVERTED-IND PIC X(01). DTSIMSOL
|
|
00099 88 MSOL-CONVERTED-88 VALUE 'Y'. DTSIMSOL
|
|
00100 88 MSOL-NOT-CONVERTED-88 VALUE 'N'. DTSIMSOL
|
|
00101 DTSIMSOL
|
|
00102 DTSIMSOL
|
|
00103 15 MSOL-ESTB-DATE PIC S9(09) COMP-3. DTSIMSOL
|
|
00104 DTSIMSOL
|
|
00105 15 MSOL-CHNG-DATE PIC S9(09) COMP-3. DTSIMSOL
|