40 lines
3.1 KiB
COBOL
40 lines
3.1 KiB
COBOL
00001 ***** 08/28/20
|
|
00002 * DTSIY779
|
|
00003 * DTSIY779 ETA581 MISCELLANEOUS DATA LV004
|
|
00004 * DTSIY779
|
|
00005 * DTSBE770 EXTRACTS DATA FOR ITEMS 12 AND 13 OF THE ETA581 DTSIY779
|
|
00006 * REPORT. THE RECORDS ARE PASSED TO DTSBX770, WHICH UPDATES DTSIY779
|
|
00007 * THE REFERENCE FILE ETA581 RECORD. DTSIY779
|
|
00008 * DTSIY779
|
|
00009 * 10/02/2010 ADDED WAGE ITEM COUNT GD DTSIY779
|
|
00010 * 01/13/2011 ADDED ANNUAL REPORT COUNT GD DTSIY779
|
|
00011 * 02/11/2011 REMOVED ANNUAL REPORT COUNT - DTSIY779
|
|
00012 * AFTER CHANGES TO DTSBE770, IT IS DTSIY779
|
|
00013 * NO LONGER NEEDED. GD DTSIY779
|
|
00014 * 04/15/2013 ITEMS 12 AND 13 NO LONGER USED, BUT THE DTSIY779
|
|
00015 * DATA FIELDS ON THE F581 WILL BE RETAINED. DTSIY779
|
|
00016 * THREE SUTA DUMPING NUMBERS HAVE BEEN DTSIY779
|
|
00017 * ADDED TO THE RECORD. GD DTSIY779
|
|
00018 * CL**2
|
|
00019 * 08/28/2020 ITEMS 63, 64 AND 65 ADDED FOR TAX AVOIDANCE CL**2
|
|
00020 * DATA PER DOL UPIL 12-20. NH CL**2
|
|
00021 * CL**2
|
|
00022 * CL**2
|
|
00023 ***** DTSIY779
|
|
00024 10 Y779-LENGTH PIC S9(04) COMP. DTSIY779
|
|
00025 DTSIY779
|
|
00026 10 Y779-SORT-AREA. DTSIY779
|
|
00027 15 Y779-REC-TYPE PIC X(03). DTSIY779
|
|
00028 88 Y779-REC-TYPE-779-88 VALUE '779'. DTSIY779
|
|
00029 DTSIY779
|
|
00030 10 Y779-DATA-AREA. DTSIY779
|
|
00031 15 Y779-OUTSTANDING-QTR-CNT PIC S9(07) COMP-3. DTSIY779
|
|
00032 15 Y779-OUTSTANDING-BAL PIC S9(11)V99 COMP-3. DTSIY779
|
|
00033 15 Y779-WAGE-ITEM-CNT PIC S9(09) COMP-3. DTSIY779
|
|
00034 15 Y779-MANDATORY-XFER-CNT PIC S9(07) COMP-3. DTSIY779
|
|
00035 15 Y779-PROHIBITED-XFER-CNT PIC S9(07) COMP-3. DTSIY779
|
|
00036 15 Y779-SUTA-CONTRIB-DUE PIC S9(11) COMP-3. DTSIY779
|
|
00037 15 Y779-TAXAVD-MAN-XFER-CNT PIC S9(07) COMP-3. CL**3
|
|
00038 15 Y779-TAXAVD-PROH-XFER-CNT PIC S9(07) COMP-3. CL**3
|
|
00039 15 Y779-TAXAVD-CONTRIB-DUE PIC S9(11) COMP-3. CL**3
|