32 lines
2.5 KiB
COBOL
32 lines
2.5 KiB
COBOL
00001 ***** 01/05/99
|
|
00002 * DTSIR308
|
|
00003 * DTSIR308 EMPLOYER CREDITS REPORT RECORD. LV005
|
|
00004 * DTSIR308
|
|
00005 ***** DTSIR308
|
|
00006 SKIP1 DTSIR308
|
|
00007 10 R308-LENGTH PIC S9(04) COMP. CL**4
|
|
00008 SKIP1 DTSIR308
|
|
00009 10 R308-SORT-AREA. DTSIR308
|
|
00010 15 R308-REC-TYPE PIC X(03). CL**4
|
|
00011 15 R308-EMP-STATUS PIC X(01). DTSIR308
|
|
00012 88 R308-STATUS-ACT-88 VALUE 'A'. DTSIR308
|
|
00013 88 R308-STATUS-INACT-88 VALUE 'I'. DTSIR308
|
|
00014 15 R308-SORT-CLASS PIC X(01). DTSIR308
|
|
00015 88 R308-SORT-RATED-88 VALUE '1'. CL**3
|
|
00016 88 R308-SORT-UNK-88 VALUE '2'. CL**3
|
|
00017 88 R308-SORT-SELF-INS-88 VALUE '3'. CL**3
|
|
00018 15 R308-EMP-NO PIC S9(07) COMP-3. DTSIR308
|
|
00019 SKIP1 DTSIR308
|
|
00020 10 R308-DATA-AREA. DTSIR308
|
|
00021 15 R308-EMP-CLASS PIC X(01). DTSIR308
|
|
00022 88 R308-CLASS-UNK-88 VALUE 'U'. CL**3
|
|
00023 88 R308-CLASS-RATED-88 VALUE 'R'. CL**3
|
|
00024 88 R308-CLASS-SELF-INS-88 VALUE 'S'. CL**3
|
|
00025 15 R308-PRIMARY-NAME PIC X(40). CL**2
|
|
00026 15 R308-TOT-CREDIT-AMT PIC S9(09)V9(02) COMP-3. DTSIR308
|
|
00027 15 R308-UC30-CREDIT-IND PIC X(01). CL**2
|
|
00028 15 R308-INACT-DATE PIC S9(09) COMP-3. DTSIR308
|
|
00029 15 R308-SUCCESSOR-IND PIC X(01). CL**5
|
|
00030 88 R308-SUCCESSOR-88 VALUE 'Y'. CL**5
|
|
00031 88 R308-NO-SUCCESSOR-88 VALUE 'N'. CL**5
|