00001 ******************************************************************08/08/17 00002 * TRANSACTION W4 - ADD WAGE INFORMATION - REV 3.0 *EWGTRNW4 00003 ****************************************************************** LV010 00004 * 03/08/2017 - ADDED ID-THEFT INDICATOR MAS* CL*10 00005 ****************************************************************** CL*10 00006 05 W4-TRAN-AREA REDEFINES ESP-TRANSACTION-AREA. CL**8 00007 EWGTRNW4 00008 10 W4-KEY-DATA. EWGTRNW4 00009 15 W4-SSN PIC 9(09). EWGTRNW4 00010 15 FILLER EWGTRNW4 00011 REDEFINES EWGTRNW4 00012 W4-SSN. EWGTRNW4 00013 20 W4-SSN1 PIC X(03). EWGTRNW4 00014 20 W4-SSN2 PIC X(02). EWGTRNW4 00015 20 W4-SSN3 PIC X(04). EWGTRNW4 00016 15 FILLER PIC 9(01). EWGTRNW4 00017 15 W4-TRAN-ID PIC X(02). EWGTRNW4 00018 15 W4-TRAN-OPER-ID. EWGTRNW4 00019 20 W4-TRAN-CLM-CNTR PIC 9(06). EWGTRNW4 00020 20 W4-TRAN-OPR-ID PIC 9(02). EWGTRNW4 00021 15 W4-DATE-ENTERED PIC 9(08). EWGTRNW4 00022 15 FILLER REDEFINES W4-DATE-ENTERED. EWGTRNW4 00023 20 W4-CENTURY-ENTERED PIC 9(2). EWGTRNW4 00024 20 W4-DTE-ENTERED PIC 9(6). EWGTRNW4 00025 15 W4-TIME-ENTERED PIC 9(06). EWGTRNW4 00026 15 FILLER PIC X(6). CL**2 00027 10 W4-TRAN-DATA. EWGTRNW4 00028 15 W4-NAME-CHECK PIC X(03). EWGTRNW4 00029 15 W4-QUARTER PIC 9(5). EWGTRNW4 00030 15 FILLER REDEFINES W4-QUARTER. EWGTRNW4 00031 20 W4-QTR-CENTURY PIC 9(2). EWGTRNW4 00032 20 W4-QTR PIC 9(3). EWGTRNW4 00033 15 W4-AFFI-CODE PIC X(1). CL**3 00034 15 W4-QUARTER-EARNINGS PIC 9(7). EWGTRNW4 00035 15 W4-ACCOUNT PIC 9(6). EWGTRNW4 00036 15 W4-EMP-NAME PIC X(4). EWGTRNW4 00037 15 W4-OP-CAUSE PIC 9(01). CL**9 00038 88 W4-CAUSE-VALID VALUE 1 THRU 5. CL**9 00039 88 W4-CAUSE-REVERSAL VALUE 1. CL**9 00040 88 W4-CAUSE-SESA-ERROR VALUE 2. CL**9 00041 88 W4-CAUSE-EMPR-ERROR VALUE 3. CL**9 00042 88 W4-CAUSE-CLMT-ERROR VALUE 4. CL**9 00043 88 W4-CAUSE-OTHER VALUE 5. CL**9 00044 15 W4-OP-CLASS PIC X(01). CL**9 00045 88 W4-CLASS-VALID VALUE 'F' 'N'. CL**9 00046 88 W4-CLASS-FRAUD VALUE 'F'. CL**9 00047 88 W4-CLASS-NON-FRAUD VALUE 'N'. CL**9 00048 15 W4-OP-METHOD PIC X(01). CL**9 00049 88 W4-METHOD-VALID VALUE 'A' 'F' CL**9 00050 'H' 'I' CL**9 00051 'K' 'L' CL**9 00052 'M'. CL**9 00053 88 W4-METHOD-CROSSMATCH VALUE 'A'. CL**9 00054 88 W4-METHOD-INTERNET-XMTCH VALUE 'F'. CL**9 00055 88 W4-METHOD-CONTROL-ACTIVITY VALUE 'H'. CL**9 00056 88 W4-METHOD-NONCONTROL-ACT VALUE 'I'. CL**9 00057 88 W4-METHOD-NEW-HIRE VALUE 'K'. CL**9 00058 88 W4-METHOD-MULTI-CLAIMANT VALUE 'L'. CL**9 00059 88 W4-METHOD-SPEC-PROJECT VALUE 'M'. CL**9 00060 15 W4-ID-THEFT-IND PIC 9(01). CL*10 00061 88 W4-ID-THEFT-YES VALUE 1. CL*10 00062 88 W4-ID-THEFT-NO VALUE 2. CL*10