41 lines
3.2 KiB
COBOL
41 lines
3.2 KiB
COBOL
00001 ***** 02/08/13
|
|
00002 * DTSIX153
|
|
00003 * DTSIX153 EMPLOYEE WORKER NAME EXTRACT RECORD LV001
|
|
00004 * DTSIX153
|
|
00005 * THIS RECORD PASSES WAGE RECORDS WITHOUT SSNS TO THE SERVER DTSIX153
|
|
00006 * DATABASE. THESE WAGES ARE NOT ADDED TO THE REGULAR WAGE DTSIX153
|
|
00007 * FILE, BUT ARE STORED SEPARATELY SO THE WAGES CAN BE FOUND DTSIX153
|
|
00008 * BY NAME IF THE WORKER FILES A CLAIM. DTSIX153
|
|
00009 * DTSIX153
|
|
00010 ***** DTSIX153
|
|
00011 DTSIX153
|
|
00012 15 X153-REC-TYPE PIC X(03) VALUE '153'. DTSIX153
|
|
00013 15 FILLER PIC X(01) VALUE ','. DTSIX153
|
|
00014 15 X153-EMP-NO PIC 9(06). DTSIX153
|
|
00015 15 FILLER PIC X(01) VALUE ','. DTSIX153
|
|
00016 15 X153-QUARTER PIC X(06). DTSIX153
|
|
00017 15 FILLER PIC X(01) VALUE ','. DTSIX153
|
|
00018 15 X153-EARNINGS PIC --------9.99. DTSIX153
|
|
00019 15 FILLER PIC X(01) VALUE ','. DTSIX153
|
|
00020 15 X153-BATCH PIC 9(05). DTSIX153
|
|
00021 15 FILLER PIC X(01) VALUE ','. DTSIX153
|
|
00022 15 X153-ITEM PIC 9(03). DTSIX153
|
|
00023 15 FILLER PIC X(01) VALUE ','. DTSIX153
|
|
00024 15 X153-WAGE-SOURCE PIC 9(02). DTSIX153
|
|
00025 88 X153-ICESA-88 VALUE 1. DTSIX153
|
|
00026 88 X153-PAPER-RPT-88 VALUE 2. DTSIX153
|
|
00027 88 X153-WAGE-ONLY-DISK-88 VALUE 3. DTSIX153
|
|
00028 88 X153-ANNUAL-RPT-88 VALUE 4. DTSIX153
|
|
00029 88 X153-WEB-RPT-88 VALUE 5. DTSIX153
|
|
00030 88 X153-AMENDMENT-88 VALUE 6. DTSIX153
|
|
00031 88 X153-BENEFITS-88 VALUE 7. DTSIX153
|
|
00032 88 X153-UNKNOWN-88 VALUE 0. DTSIX153
|
|
00033 15 FILLER PIC X(01) VALUE ','. DTSIX153
|
|
00034 15 X153-LAST-NAME PIC X(20). DTSIX153
|
|
00035 15 FILLER PIC X(01) VALUE ','. DTSIX153
|
|
00036 15 X153-FIRST-NAME PIC X(15). DTSIX153
|
|
00037 15 FILLER PIC X(01) VALUE ','. DTSIX153
|
|
00038 15 X153-MID-INIT PIC X(01). DTSIX153
|
|
00039 15 FILLER PIC X(01) VALUE ','. DTSIX153
|
|
00040 15 X153-DATE PIC X(10). DTSIX153
|