42 lines
3.2 KiB
COBOL
42 lines
3.2 KiB
COBOL
00001 ***** 10/12/98
|
|
00002 * DTSIT016
|
|
00003 * DTSIT016 LMI EMPLOYER LEVEL UPDATE TRANSACTION RECORD. LV004
|
|
00004 * DTSIT016
|
|
00005 * CL**3
|
|
00006 * 09/23/1998 REVIEWED AND MODIFED FOR DC. EHH CL**3
|
|
00007 * CL**3
|
|
00008 ***** DTSIT016
|
|
00009 CL**3
|
|
00010 10 T016-LENGTH PIC S9(04) COMP. CL**3
|
|
00011 CL**3
|
|
00012 10 T016-COMMON-AREA. DTSIT016
|
|
00013 * 15 T016-REC-TYPE PIC X(03) VALUE '016'. DTSIT016
|
|
RCODE 15 T016-REC-TYPE PIC X(03). DTSIT016
|
|
00014 15 T016-EMP-NO PIC S9(07) COMP-3. DTSIT016
|
|
00015 15 T016-ORIGIN PIC X(10). DTSIT016
|
|
00016 15 FILLER REDEFINES T016-ORIGIN. DTSIT016
|
|
00017 20 T016-OP-ID PIC X(08). DTSIT016
|
|
00018 20 T016-SCR-ID PIC X(02). DTSIT016
|
|
00019 15 T016-SYS-DATE PIC S9(09) COMP-3. DTSIT016
|
|
00020 15 T016-SYS-TIME PIC S9(07) COMP-3. DTSIT016
|
|
00021 CL**3
|
|
00022 10 T016-DATA-AREA. DTSIT016
|
|
00023 15 T016-TRN-CD PIC X(02). DTSIT016
|
|
00024 88 T016-EMP-LVL VALUE '01'. DTSIT016
|
|
00025 CL**3
|
|
00026 15 T016-SIC-CD PIC X(04). CL**3
|
|
00027 CL**3
|
|
00028 15 T016-SIC-AUXILIARY-CD PIC X(01). CL**3
|
|
00029 CL**3
|
|
00030 15 T016-NAICS-CD PIC X(06). CL**3
|
|
00031 CL**3
|
|
00032 15 T016-NAICS-AUXILIARY-CD PIC X(01). CL**3
|
|
00033 CL**3
|
|
00034 15 T016-OWN-CD PIC X(02). CL**3
|
|
00035 CL**3
|
|
00036 15 T016-MULTI-IND PIC X(01). CL**3
|
|
00037 CL**3
|
|
00038 15 T016-WARD-CD PIC X(02). CL**3
|
|
00039 CL**3
|
|
00040 15 FILLER PIC X(49). CL**3
|