83 lines
6.5 KiB
COBOL
83 lines
6.5 KiB
COBOL
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
|