34 lines
2.6 KiB
COBOL
34 lines
2.6 KiB
COBOL
00001 ***** 03/20/18
|
|
00002 * DTSEX147
|
|
00003 * DTSIX147 EMPLOYEE AMENDED WAGES TO BE DELETED LV005
|
|
00004 * DTSEX147
|
|
00005 * IMPORTS EMPLOYEE WAGES AND NAME FROM EXTERNAL DTSEX147
|
|
00006 * APPLICATIONS. DTSEX147
|
|
00007 * DTSEX147
|
|
00008 * 02-23-2012 MODIFIED SOURCE CODES TO MATCH DTSIW001. GD DTSEX147
|
|
00009 * 06-11-2012 ADDED INTRANET REPORTS TO WAGE STATUS. GD DTSEX147
|
|
00010 * 09-01-2015 COPIED FROM IX147, USED FOR AMENDED WAGES ZL1 DTSEX147
|
|
00011 * DTSEX147
|
|
00012 * DTSEX147
|
|
00013 ***** DTSEX147
|
|
00014 DTSEX147
|
|
00015 15 X147-REC-TYPE PIC X(03) VALUE '147'. DTSEX147
|
|
00016 15 FILLER PIC X(01) VALUE ','. DTSEX147
|
|
00017 15 X147-EMP-NO PIC 9(06). DTSEX147
|
|
00018 15 FILLER PIC X(01) VALUE ','. DTSEX147
|
|
00019 15 X147-QUARTER. CL**5
|
|
00020 20 X147-YR PIC X(04). CL**5
|
|
00021 20 FILLER PIC X(01). CL**5
|
|
00022 20 X147-QTR PIC X(01). CL**5
|
|
00023 15 FILLER PIC X(01) VALUE ','. DTSEX147
|
|
00024 15 FILLER PIC X(08). CL**2
|
|
00025 15 FILLER PIC X(01) VALUE ','. CL**2
|
|
00026 15 X147-SSN PIC 9(09). DTSEX147
|
|
00027 15 FILLER PIC X(01) VALUE ','. DTSEX147
|
|
00028 15 X147-FNAME PIC X(30). CL**2
|
|
00029 15 FILLER PIC X(01) VALUE ','. CL**2
|
|
00030 15 X147-LNAME PIC X(30). CL**2
|
|
00031 15 FILLER PIC X(03) VALUE ','. CL**3
|
|
00032 15 X147-WAGES PIC ----------9.99. CL**4
|
|
00033 15 FILLER PIC X(432). CL**2
|