46 lines
3.6 KiB
COBOL
46 lines
3.6 KiB
COBOL
00001 ***** 10/02/24
|
|
00002 * DTSES140
|
|
00003 * DTSES140 ESSP TAX REPORT EXTRACT RECORD LV005
|
|
00004 * DTSES140
|
|
00005 * EXCHANGES EMPLOYER TAX REPORTS BETWEEN MAINFRAME AND DTSES140
|
|
00006 * SQL SERVER DATABASE. DTSES140
|
|
00007 * DTSES140
|
|
00008 * 05/04/2010 ADDED CHECK SCAN DATE, CHECK SEQUENCE NBR, DTSES140
|
|
00009 * LEVEL-88 FOR REPORTS FROM IN-HOUSE CASHIERING, DTSES140
|
|
00010 * INTEREST AND PENALTY WAIVER INDICATORS, DTSES140
|
|
00011 * RESPONSIBLE OPID AND ACTIVITY. GD DTSES140
|
|
00012 ***** DTSES140
|
|
00013 DTSES140
|
|
00014 15 X140-REC-TYPE PIC X(03) VALUE '140'. DTSES140
|
|
00015 15 FILLER PIC X(01) VALUE ','. DTSES140
|
|
00016 15 X140-EMP-NO PIC 9(06). DTSES140
|
|
00017 15 FILLER PIC X(01) VALUE ','. DTSES140
|
|
00018 15 X140-QUARTER PIC X(06). DTSES140
|
|
00019 15 FILLER PIC X(01) VALUE ','. DTSES140
|
|
00020 15 X140-REP-TYPE PIC X(08). CL**2
|
|
00021 15 FILLER PIC X(01) VALUE ','. DTSES140
|
|
00022 15 X140-REP-EMPLEE-CNT PIC X(08). CL**2
|
|
00023 15 FILLER PIC X(01) VALUE ','. CL**2
|
|
00024 15 X140-EXCESS-WAGE PIC ----------9.99. CL**5
|
|
00025 15 FILLER PIC X(01) VALUE ','. DTSES140
|
|
00026 15 X140-TAX-WAGE PIC ----------9.99. CL**4
|
|
00027 15 FILLER PIC X(01) VALUE ','. DTSES140
|
|
00028 15 X140-TOTAL-WAGE PIC ----------9.99. CL**4
|
|
00029 15 FILLER PIC X(01) VALUE ','. CL**2
|
|
00030 15 X140-SUBM PIC X(04). CL**2
|
|
00031 15 FILLER PIC X(01) VALUE ','. CL**2
|
|
00032 15 X140-RCVD-DATE PIC X(10). CL**2
|
|
00033 15 FILLER PIC X(01) VALUE ','. CL**2
|
|
00034 15 X140-WRKR-CNT-1ST-MNTH PIC 9(08). CL**2
|
|
00035 15 FILLER PIC X(01) VALUE ','. DTSES140
|
|
00036 15 X140-WRKR-CNT-2ND-MNTH PIC 9(08). CL**2
|
|
00037 15 FILLER PIC X(01) VALUE ','. DTSES140
|
|
00038 15 X140-WRKR-CNT-3RD-MNTH PIC 9(08). CL**2
|
|
00039 15 FILLER PIC X(01) VALUE ','. DTSES140
|
|
00040 15 X140-RPT-SUBM PIC X(04). CL**2
|
|
00041 15 FILLER PIC X(01) VALUE ','. DTSES140
|
|
00042 15 X140-REMITTANCE PIC 9(11).99. CL**2
|
|
00043 15 FILLER PIC X(01) VALUE ','. CL**2
|
|
00044 15 X140-RESP-OPID PIC X(06). CL**2
|
|
00045 15 FILLER PIC X(363). CL**2
|