63 lines
4.9 KiB
COBOL
63 lines
4.9 KiB
COBOL
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
|