00001 ***** 08/05/04 00002 * REVIEWED BY D.SHEPPERSON 10/23/1998 DTSIR122 00003 * LV013 00004 * DTSIR122 LIABILITY DETERMINATION ACTIVITY REPORT RECORD. DTSIR122 00005 * DTSIR122 00006 * NOTE: ON THIS REPORT THERE WILL OFTEN BE MULTIPLE REPORT DTSIR122 00007 * RECS (EACH IN A DIFFERENT CATEGORY) FOR THE SAME DTSIR122 00008 * EMPLOYER. DTSIR122 00009 * DTSIR122 00010 * 06/10/2004 ADDED OP-ID, INACTIVATION DATE GD DTSIR122 00011 * 07/29/2004 ADDED MISSING FR500 DATE AND PENDING DTSIR122 00012 * DETERMINATION REPORTS GD DTSIR122 00013 * DTSIR122 00014 ***** DTSIR122 00015 SKIP1 DTSIR122 00016 10 R122-LENGTH PIC S9(04) COMP. DTSIR122 00017 SKIP1 DTSIR122 00018 10 R122-SORT-AREA. DTSIR122 00019 15 R122-REC-TYPE PIC X(03). DTSIR122 00020 15 R122-CATEGORY PIC X(01). DTSIR122 00021 88 R122-LIAB-ENTERED-NEW-88 VALUE '1'. DTSIR122 00022 88 R122-LIAB-ENTERED-SUCC-88 VALUE '2'. DTSIR122 00023 88 R122-INACT-ENTERED-88 VALUE '3'. DTSIR122 00024 88 R122-INACT-REVERSED-88 VALUE '4'. DTSIR122 00025 88 R122-ACTIVE-EMPLOYER-88 VALUE '5'. DTSIR122 00026 88 R122-MISSING-FR500-88 VALUE '6'. DTSIR122 00027 88 R122-PENDING-DETERM-88 VALUE '7'. DTSIR122 00028 SKIP1 DTSIR122 00029 15 R122-EMP-NO PIC S9(07) COMP-3. DTSIR122 00030 SKIP1 DTSIR122 00031 10 R122-DATA-AREA. DTSIR122 00032 15 R122-PERIOD-START-DATE PIC S9(09) COMP-3. DTSIR122 00033 15 R122-PERIOD-END-DATE PIC S9(09) COMP-3. DTSIR122 00034 15 R122-OP-ID PIC X(08). DTSIR122 00035 10 R122-DATA-VAR-AREA PIC X(53). DTSIR122 00036 DTSIR122 00037 10 R122-LIAB-DATA-AREA REDEFINES R122-DATA-VAR-AREA. DTSIR122 00038 15 R122-LIAB-PRIMARY-NAME PIC X(40). DTSIR122 00039 15 R122-LIAB-ESTAB-DATE PIC S9(09) COMP-3. DTSIR122 00040 *************** (ESTAB-DATE LOADED FROM MSOL-LIAB-ESTAB-DATE) DTSIR122 00041 15 R122-LIAB-ENTRY-DATE PIC S9(09) COMP-3. DTSIR122 00042 *************** (ENTRY-DATE LOADED FROM MSOL-ESTB-DATE) DTSIR122 00043 15 R122-LIAB-TIME-LAPSE PIC S9(05) COMP-3. DTSIR122 00044 DTSIR122 00045 10 R122-INAC-R-DATA-AREA REDEFINES R122-DATA-VAR-AREA. DTSIR122 00046 15 R122-INAC-R-PRIMARY-NAME PIC X(40). DTSIR122 00047 15 R122-INAC-R-DATE PIC S9(09) COMP-3. DTSIR122 00048 15 R122-INAC-R-TIME-LAPSE PIC S9(05) COMP-3. DTSIR122 00049 15 FILLER PIC X(05). DTSIR122 00050 DTSIR122 00051 10 R122-INAC-E-DATA-AREA REDEFINES R122-DATA-VAR-AREA. DTSIR122 00052 15 R122-INAC-E-PRIMARY-NAME PIC X(40). DTSIR122 00053 15 R122-INAC-E-DATE PIC S9(09) COMP-3. DTSIR122 00054 15 R122-INAC-E-INACT-DATE PIC S9(09) COMP-3. DTSIR122 00055 15 FILLER PIC X(03). DTSIR122 00056 DTSIR122 00057 10 R122-ACTIVE-DATA-AREA REDEFINES R122-DATA-VAR-AREA. DTSIR122 00058 15 R122-ACTIVE-EMP-CLASS PIC X(01). DTSIR122 00059 88 R122-CLASS-CHG-ONLY-88 VALUE 'C'. DTSIR122 00060 88 R122-CLASS-RATED-88 VALUE 'R'. DTSIR122 00061 88 R122-CLASS-SELF-INS-88 VALUE 'S'. DTSIR122 00062 88 R122-CLASS-UNK-88 VALUE 'U'. DTSIR122 00063 88 R122-CLASS-SUB-88 VALUE 'R' 'S'. DTSIR122 00064 15 FILLER PIC X(52). DTSIR122 00065 DTSIR122 00066 10 R122-FR500-AREA REDEFINES R122-DATA-VAR-AREA. DTSIR122 00067 15 R122-FR500-PRIMARY-NAME PIC X(40). DTSIR122 00068 15 R122-FR500-LIAB-DATE PIC S9(09) COMP-3. DTSIR122 00069 15 R122-FR500-SOURCE PIC X(02). DTSIR122 00070 15 FILLER PIC X(06). DTSIR122 00071 DTSIR122 00072 10 R122-PEND-AREA REDEFINES R122-DATA-VAR-AREA. DTSIR122 00073 15 R122-PEND-PRIMARY-NAME PIC X(40). DTSIR122 00074 15 R122-PEND-REG-DATE PIC S9(09) COMP-3. DTSIR122 00075 15 R122-PEND-ACTION-DATE PIC S9(09) COMP-3. DTSIR122 00076 15 R122-PEND-ACT-TYPE PIC X(02). DTSIR122 00077 88 R122-PEND-ACT-LTR1-88 VALUE '1'. DTSIR122 00078 88 R122-PEND-ACT-LTR2-88 VALUE '2'. DTSIR122 00079 88 R122-PEND-ACT-FLD-88 VALUE '3'. DTSIR122 00080 88 R122-PEND-ACT-COOP-88 VALUE '4'. DTSIR122 00081 88 R122-PEND-ACT-RCVD-88 VALUE '5'. DTSIR122 00082 15 FILLER PIC X(01). DTSIR122