58 lines
4.5 KiB
COBOL
58 lines
4.5 KiB
COBOL
00001 ***** 08/29/23
|
|
00002 * DTSIX102
|
|
00003 * DTSIX102 EMPLOYER PROFILE RECORD LV003
|
|
00004 * DTSIX102
|
|
00005 ***** DTSIX102
|
|
00006 DTSIX102
|
|
00007 15 X102-REC-TYPE PIC X(03) VALUE '102'. DTSIX102
|
|
00008 15 FILLER PIC X(01) VALUE ','. DTSIX102
|
|
00009 15 X102-EMP-NO PIC 9(06). DTSIX102
|
|
00010 15 FILLER PIC X(01) VALUE ','. DTSIX102
|
|
00011 15 X102-EMP-FEIN PIC 9(09). DTSIX102
|
|
00012 15 FILLER PIC X(01) VALUE ','. DTSIX102
|
|
00013 15 X102-EMP-CLASS PIC X(01). DTSIX102
|
|
00014 88 X102-CLASS-RATED-88 VALUE 'R'. DTSIX102
|
|
00015 88 X102-CLASS-SELF-INS-88 VALUE 'S'. DTSIX102
|
|
00016 88 X102-CLASS-CD-VALID-88 VALUE 'R' 'S'. CL**2
|
|
00017 15 FILLER PIC X(01) VALUE ','. DTSIX102
|
|
00018 15 X102-EMP-STATUS PIC X(01). DTSIX102
|
|
00019 88 X102-STATUS-ACTIVE-88 VALUE 'A'. DTSIX102
|
|
00020 88 X102-STATUS-INACTIVE-88 VALUE 'I'. DTSIX102
|
|
00021 88 X102-STATUS-NOT-SUB-88 VALUE 'N'. DTSIX102
|
|
00022 88 X102-STATUS-UNKNOWN-88 VALUE 'U'. DTSIX102
|
|
00023 88 X102-STATUS-CD-VALID-88 VALUE 'A' 'I' CL**2
|
|
00024 'N' 'U'. CL**2
|
|
00025 15 FILLER PIC X(01) VALUE ','. DTSIX102
|
|
00026 15 X102-SOURCE-CD PIC X(02). DTSIX102
|
|
00027 88 X102-CONTRACT-CMPL-88 VALUE '00'. DTSIX102
|
|
00028 88 X102-PHONE-CALL-88 VALUE '01'. DTSIX102
|
|
00029 88 X102-WRITTEN-REQUEST-88 VALUE '02'. DTSIX102
|
|
00030 88 X102-VOLUNTARY-88 VALUE '03'. DTSIX102
|
|
00031 88 X102-UC30-OF-PRED-88 VALUE '04'. DTSIX102
|
|
00032 88 X102-BENEFITS-88 VALUE '05'. DTSIX102
|
|
00033 88 X102-940-CERTIFICATION-88 VALUE '06'. DTSIX102
|
|
00034 88 X102-UNION-HALL-88 VALUE '07'. DTSIX102
|
|
00035 88 X102-FIELD-REP-88 VALUE '08'. DTSIX102
|
|
00036 88 X102-FOLLOW-UP-88 VALUE '09'. DTSIX102
|
|
00037 88 X102-OTR-88 VALUE '10'. DTSIX102
|
|
00038 88 X102-WORKERS-COMP-88 VALUE '11'. DTSIX102
|
|
00039 88 X102-LIQUOR-LIC-88 VALUE '12'. DTSIX102
|
|
00040 88 X102-FEIN-LIST-88 VALUE '13'. DTSIX102
|
|
00041 88 X102-UC30-STAFF-88 VALUE '14'. DTSIX102
|
|
00042 88 X102-UC30-SYS-88 VALUE '15'. DTSIX102
|
|
00043 88 X102-UC30-88 VALUE '14', '15'. DTSIX102
|
|
00044 88 X102-FISCAL-AGENT-88 VALUE '16'. DTSIX102
|
|
00045 88 X102-WEB-REG-88 VALUE '17'. DTSIX102
|
|
00046 88 X102-WEB-REG-PRED-88 VALUE '18'. DTSIX102
|
|
00047 88 X102-WEB-REG-SUCC-88 VALUE '19'. DTSIX102
|
|
00048 88 X102-WEB-88 VALUE DTSIX102
|
|
00049 '17' THRU '19'. DTSIX102
|
|
00050 88 X102-SOURCE-CD-VALID-88 VALUE DTSIX102
|
|
00051 '00' THRU '19'. DTSIX102
|
|
00052 15 FILLER PIC X(01) VALUE ','. DTSIX102
|
|
00053 15 X102-ACTION-CD PIC X(01). DTSIX102
|
|
00054 88 X102-ACTION-INSERT-88 VALUE 'I'. DTSIX102
|
|
00055 88 X102-ACTION-UPDATE-88 VALUE 'U'. DTSIX102
|
|
00056 88 X102-ACTION-DELETE-88 VALUE 'D'. DTSIX102
|
|
00057 88 X102-ACTION-CD-VALID-88 VALUE 'I' 'U' 'D'. CL**2
|