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