71 lines
5.5 KiB
COBOL
71 lines
5.5 KiB
COBOL
00001 ***** 09/28/12
|
|
00002 * DTSIW001
|
|
00003 * DTSIW001 WAGE TRANSACTION FILE 'WAGE ITEM' LV002
|
|
00004 * TRANSACTION RECORD DEFINITION. DTSIW001
|
|
00005 * DTSIW001
|
|
00006 * DTSIW001
|
|
00007 * 12/27/2001 INITIAL DEVELOPMENT. GD DTSIW001
|
|
00008 * 09/03/2003 EXPANDED NAME AREA TO INCLUDE LAST, DTSIW001
|
|
00009 * FIRST AND MIDDLE FOR COMPATABILITY DTSIW001
|
|
00010 * WITH WEB REPORTING GD DTSIW001
|
|
00011 * 11/30/2006 ADDED W001-SOURCE-WEB-88. GD DTSIW001
|
|
00012 * DTSIW001
|
|
00013 ***** DTSIW001
|
|
00014 DTSIW001
|
|
00015 10 W001-KEY-AREA. DTSIW001
|
|
00016 15 W001-DOC-NO. DTSIW001
|
|
00017 20 W001-BATCH-NO PIC S9(05) COMP-3. DTSIW001
|
|
00018 20 W001-ITEM-NO PIC S9(03) COMP-3. DTSIW001
|
|
00019 20 W001-SEQ-NO PIC S9(07) COMP-3. DTSIW001
|
|
00020 DTSIW001
|
|
00021 10 W001-DATA-AREA. DTSIW001
|
|
00022 15 W001-EMP-NO PIC S9(07) COMP-3. DTSIW001
|
|
00023 DTSIW001
|
|
00024 15 W001-SSN PIC S9(09) COMP-3. DTSIW001
|
|
00025 15 W001-SSN-ERR-ID PIC S9(04) COMP. DTSIW001
|
|
00026 88 W001-SSN-VALID-88 VALUE +0. DTSIW001
|
|
00027 88 W001-SSN-INVALID-88 VALUE +0. DTSIW001
|
|
00028 88 W001-SSN-NO-ENTRY-88 VALUE +0. DTSIW001
|
|
00029 DTSIW001
|
|
00030 15 W001-NAME. DTSIW001
|
|
00031 20 W001-LAST-NAME PIC X(20). DTSIW001
|
|
00032 20 W001-FIRST-NAME PIC X(15). DTSIW001
|
|
00033 20 W001-MID-INIT PIC X(01). DTSIW001
|
|
00034 15 W001-NAME-ERR-ID PIC S9(04) COMP. DTSIW001
|
|
00035 88 W001-NAME-VALID-88 VALUE +0. DTSIW001
|
|
00036 88 W001-NAME-INVALID-88 VALUE +1. DTSIW001
|
|
00037 88 W001-NAME-NO-ENTRY-88 VALUE +2. DTSIW001
|
|
00038 DTSIW001
|
|
00039 15 W001-YRQ PIC S9(05) COMP-3. DTSIW001
|
|
00040 DTSIW001
|
|
00041 15 W001-WAGE-CHNG PIC S9(07)V9(02) COMP-3. DTSIW001
|
|
00042 15 W001-WAGE-ERR-ID PIC S9(04) COMP. DTSIW001
|
|
00043 88 W001-WAGE-VALID-88 VALUE +0. DTSIW001
|
|
00044 88 W001-WAGE-INVALID-88 VALUE +1. DTSIW001
|
|
00045 88 W001-WAGE-NO-ENTRY-88 VALUE +2. DTSIW001
|
|
00046 88 W001-WAGE-INVLD-NEG-88 VALUE +3. DTSIW001
|
|
00047 DTSIW001
|
|
00048 15 W001-CURR-WAGE PIC S9(07)V9(02) COMP-3. DTSIW001
|
|
00049 15 W001-TAX-WAGE PIC S9(07)V9(02) COMP-3. DTSIW001
|
|
00050 15 W001-PRIOR-WAGE PIC S9(07)V9(02) COMP-3. DTSIW001
|
|
00051 DTSIW001
|
|
00052 15 W001-RECEIVED-DATE PIC S9(09) COMP-3. DTSIW001
|
|
00053 DTSIW001
|
|
00054 15 W001-RECEIVED-TIME PIC S9(07) COMP-3. DTSIW001
|
|
00055 DTSIW001
|
|
00056 15 W001-RESPONSIBLE-OP-ID PIC X(08). DTSIW001
|
|
00057 DTSIW001
|
|
00058 15 W001-SOURCE PIC X(01). DTSIW001
|
|
00059 88 W001-ICESA-88 VALUE '1'. DTSIW001
|
|
00060 88 W001-PAPER-RPT-88 VALUE '2'. DTSIW001
|
|
00061 88 W001-WAGE-ONLY-DISK-88 VALUE '3'. DTSIW001
|
|
00062 88 W001-ANNUAL-RPT-88 VALUE '4'. DTSIW001
|
|
00063 88 W001-WEB-RPT-88 VALUE '5'. DTSIW001
|
|
00064 88 W001-AMEND-RPT-88 VALUE '6'. DTSIW001
|
|
00065 88 W001-BENEFITS-88 VALUE '7'. DTSIW001
|
|
00066 88 X144-INTRANET-RPT-88 VALUE '8'. CL**2
|
|
00067 88 X144-CLAIMNT-WAGE-88 VALUE '9'. CL**2
|
|
00068 88 X144-UNKNOWN-88 VALUE '0'. CL**2
|
|
00069 DTSIW001
|
|
00070 15 FILLER PIC X(27). DTSIW001
|