57 lines
4.4 KiB
COBOL
57 lines
4.4 KiB
COBOL
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
|