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