43 lines
3.3 KiB
COBOL
43 lines
3.3 KiB
COBOL
00001 ***** 10/28/98
|
|
00002 * DTSIR116
|
|
00003 * DTSIR116 EMPLOYER REGISTRATION NEW/REACTIVATED/ LV011
|
|
00004 * INACTIVATED EMPLOYER LIST REPORT RECORD. DTSIR116
|
|
00005 * CL*11
|
|
00006 * CL*11
|
|
00007 * 10/28/1998 REVIEWED AND MODIFIED FOR DC. EHH CL*11
|
|
00008 * CL*11
|
|
00009 ***** DTSIR116
|
|
00010 CL**9
|
|
00011 10 R116-LENGTH PIC S9(04) COMP. CL**5
|
|
00012 CL**9
|
|
00013 10 R116-SORT-AREA. DTSIR116
|
|
00014 15 R116-REC-TYPE PIC X(03) VALUE '116'. CL*11
|
|
00015 15 R116-CATEGORY PIC X(01). DTSIR116
|
|
00016 88 R116-NEW-88 VALUE '1'. DTSIR116
|
|
00017 88 R116-REACT-88 VALUE '2'. DTSIR116
|
|
00018 88 R116-INACT-88 VALUE '3'. DTSIR116
|
|
00019 15 R116-SORT-VAR-AREA PIC X(15). DTSIR116
|
|
00020 15 R116-NEW-SORT-AREA DTSIR116
|
|
00021 REDEFINES R116-SORT-VAR-AREA. DTSIR116
|
|
00022 20 R116-NEW-EMP-NO PIC S9(07) COMP-3. DTSIR116
|
|
00023 20 R116-NEW-LIAB-DATE PIC S9(09) COMP-3. DTSIR116
|
|
00024 15 R116-REACT-SORT-AREA DTSIR116
|
|
00025 REDEFINES R116-SORT-VAR-AREA. DTSIR116
|
|
00026 20 R116-REACT-EMP-NO PIC S9(07) COMP-3. DTSIR116
|
|
00027 20 R116-REACT-LIAB-DATE DTSIR116
|
|
00028 PIC S9(09) COMP-3. DTSIR116
|
|
00029 15 R116-INACT-SORT-AREA DTSIR116
|
|
00030 REDEFINES R116-SORT-VAR-AREA. DTSIR116
|
|
00031 20 R116-INACT-EMP-NO PIC S9(07) COMP-3. CL*10
|
|
00032 20 R116-INACT-LIAB-DATE DTSIR116
|
|
00033 PIC S9(09) COMP-3. DTSIR116
|
|
00034 CL**9
|
|
00035 10 R116-DATA-AREA. DTSIR116
|
|
00036 15 R116-PRIMARY-NAME PIC X(40). CL**3
|
|
00037 15 R116-INACT-DATE PIC S9(09) COMP-3. DTSIR116
|
|
00038 15 R116-EMP-CLASS PIC X(01). DTSIR116
|
|
00039 88 R116-CLASS-RATED-88 VALUE 'R'. CL**3
|
|
00040 88 R116-CLASS-SELF-INS-88 VALUE 'S'. CL**7
|
|
00041 88 R116-CLASS-UNK-88 VALUE 'U'. CL**8
|
|
00042 15 R116-NUM-DELQ-RPTS PIC S9(03) COMP-3. DTSIR116
|