00001 ***** 08/26/19 00002 * DTSIX793 00003 * DTSIX793 IRS QUARTERLY FUTA EXTRACT RECORD LV004 00004 * DTSIX793 00005 * GENERATE LETTER TO EMPLOYERS NOT FOUND ON DUTAS. CL**4 00006 * DTSIX793 00007 ***** DTSIX793 00008 DTSIX793 00009 05 QEUP-CHARACTER-CNT PIC S9(04) COMP. CL**4 00010 05 QEUP-HEX-ZERO PIC S9(04) COMP. CL**4 00011 05 QEUP-FEIN-X PIC X(09). CL**4 00012 05 QEUP-FEIN CL**4 00013 REDEFINES QEUP-FEIN-X PIC 9(09). CL**4 00014 05 QEUP-TRANSACTION-DATE PIC X(08). CL**4 00015 05 QEUP-XREF-FEIN PIC X(09). CL**4 00016 05 QEUP-FORMER-NAME-CONTROL PIC X(04). CL**4 00017 05 QEUP-ZIP-CODE. CL**4 00018 10 QEUP-ZIP-1-5 PIC X(05). CL**4 00019 10 QEUP-ZIP-6-9 PIC X(04). CL**4 00020 10 QEUP-ZIP-10-12 PIC X(03). CL**4 00021 05 QEUP-STATE-CODE PIC X(02). CL**4 00022 05 QEUP-CITY PIC X(22). CL**4 00023 05 QEUP-STREET-ADDRESS PIC X(35). CL**4 00024 05 QEUP-NAME-LINE-1 PIC X(35). CL**4 00025 05 QEUP-NAME-LINE-2 PIC X(35). CL**4 00026 05 QEUP-NAME-LINE-3 PIC X(35). CL**4 00027 05 QEUP-NAME-LINE-4 PIC X(35). CL**4 00028 05 QEUP-CHECK-DIGITS PIC X(02). CL**4 00029 05 QEUP-FILING-REQUIREMENTS. CL**4 00030 10 QEUP-FORM-940-IND PIC X(01). CL**4 00031 88 QEUP-FORM-940-NO-88 VALUE 'N'. CL**4 00032 88 QEUP-FORM-940-YES-88 VALUE 'Y'. CL**4 00033 10 QEUP-FORM-940EZ-IND PIC X(01). CL**4 00034 88 QEUP-FORM-940EZ-NO-88 VALUE 'N'. CL**4 00035 88 QEUP-FORM-940EZ-YES-88 VALUE 'Y'. CL**4 00036 10 QEUP-FORM-941-IND PIC X(01). CL**4 00037 88 QEUP-FORM-941-NO-88 VALUE 'N'. CL**4 00038 88 QEUP-FORM-941-YES-88 VALUE 'Y'. CL**4 00039 10 QEUP-FORM-942-IND PIC X(01). CL**4 00040 88 QEUP-FORM-942-NO-88 VALUE 'N'. CL**4 00041 88 QEUP-FORM-942-YES-88 VALUE 'Y'. CL**4 00042 10 QEUP-FORM-943-IND PIC X(01). CL**4 00043 88 QEUP-FORM-943-NO-88 VALUE 'N'. CL**4 00044 88 QEUP-FORM-943-YES-88 VALUE 'Y'. CL**4 00045 05 QEUP-CURRENT-NAME-CONTROL PIC X(04). CL**4 00046 05 QEUP-TRANSACTION-CODES. CL**4 00047 10 QEUP-TRAN-NEW-ACCOUNT-IND PIC X(01). CL**4 00048 88 QEUP-TRAN-NEW-ACCOUNT-NO-88 VALUE 'N'. CL**4 00049 88 QEUP-TRAN-NEW-ACCOUNT-YES-88 VALUE 'Y'. CL**4 00050 10 QEUP-TRAN-FEIN-CHANGE-IND PIC X(01). CL**4 00051 88 QEUP-TRAN-FEIN-CHANGE-NO-88 VALUE 'N'. CL**4 00052 88 QEUP-TRAN-FEIN-CHANGE-YES-88 VALUE 'Y'. CL**4 00053 10 QEUP-TRAN-NAME-CHANGE-IND PIC X(01). CL**4 00054 88 QEUP-TRAN-NAME-CHANGE-NO-88 VALUE 'N'. CL**4 00055 88 QEUP-TRAN-NAME-CHANGE-YES-88 VALUE 'Y'. CL**4 00056 EJECT CL**4