00001 ***** 03/01/12 00002 * DTSIT027 00003 * DTSIT027 ESTABLISH ELECTRONIC QUARTERLY REPORT LV005 00004 * TRANSACTION RECORD DEFINITION. DTSIT027 00005 * DTSIT027 00006 * DTSIT027 00007 * 04/07/2003 INITIAL DEVELOPMENT. GD DTSIT027 00008 * 04/19/2011 MODIFIED TO PASS LOG NUMBER TO DTSIT027 00009 * DTSBD140. GD DTSIT027 00010 * DTSIT027 00011 ***** DTSIT027 00012 DTSIT027 00013 10 T027-LENGTH PIC S9(04) COMP. DTSIT027 00014 DTSIT027 00015 10 T027-COMMON-AREA. DTSIT027 00016 * 15 T027-REC-TYPE PIC X(03) VALUE '027'. DTSIT027 RCODE 15 T027-REC-TYPE PIC X(03). DTSIT027 00017 15 T027-EMP-NO PIC S9(07) COMP-3. DTSIT027 00018 15 T027-ORIGIN PIC X(10). DTSIT027 00019 15 FILLER REDEFINES T027-ORIGIN. DTSIT027 00020 20 T027-OP-ID PIC X(08). DTSIT027 00021 20 T027-SCR-ID PIC X(02). DTSIT027 00022 15 T027-SYS-DATE PIC S9(09) COMP-3. DTSIT027 00023 15 T027-SYS-TIME PIC S9(07) COMP-3. DTSIT027 00024 DTSIT027 00025 10 T027-DATA-AREA. DTSIT027 00026 15 T027-TRN-TYPE PIC X(01). DTSIT027 00027 88 T027-WEB-RPT-88 VALUE '0'. DTSIT027 00028 88 T027-MAG-RPT-88 VALUE '1'. DTSIT027 00029 DTSIT027 00030 15 T027-PSEUDO-DOC-NO. DTSIT027 00031 20 T027-PSEUDO-BATCH-NO DTSIT027 00032 PIC S9(05) COMP-3. DTSIT027 00033 20 T027-PSEUDO-ITEM-NO DTSIT027 00034 PIC S9(03) COMP-3. DTSIT027 00035 DTSIT027 00036 15 T027-NAME-CHECK PIC X(04). DTSIT027 00037 DTSIT027 00038 15 T027-RPT-TYPE PIC X(02). DTSIT027 00039 88 T027-ORIG-88 VALUE 'OR'. DTSIT027 00040 88 T027-EMP-AMEND-88 VALUE 'EA'. DTSIT027 00041 88 T027-AUDIT-88 VALUE 'AU'. DTSIT027 00042 88 T027-FLD-SUP-88 VALUE 'FS'. DTSIT027 00043 88 T027-ADMIN-CORR-88 VALUE 'AC'. DTSIT027 00044 88 T027-ESTIM-88 VALUE 'ES'. DTSIT027 00045 88 T027-WITHDRW-88 VALUE 'WD'. DTSIT027 00046 88 T027-SUPPLEM-88 VALUE 'EA' 'AU' DTSIT027 00047 'FS' 'AC'. DTSIT027 00048 DTSIT027 00049 15 T027-YRQ PIC S9(05) COMP-3. DTSIT027 00050 DTSIT027 00051 15 T027-TOT-WAGE PIC S9(11)V9(02) COMP-3. DTSIT027 00052 DTSIT027 00053 15 T027-EXCESS-WAGE PIC S9(11)V9(02) COMP-3. DTSIT027 00054 DTSIT027 00055 15 T027-TAX-WAGE PIC S9(11)V9(02) COMP-3. DTSIT027 00056 DTSIT027 00057 15 T027-REMIT-AMT PIC S9(09)V9(02) COMP-3. DTSIT027 00058 DTSIT027 00059 15 T027-WAIVE-BOTH-IND PIC X(01). DTSIT027 00060 88 T027-WAIVE-BOTH-YES-88 VALUE 'Y'. DTSIT027 00061 88 T027-WAIVE-BOTH-NO-88 VALUE 'N'. DTSIT027 00062 DTSIT027 00063 15 T027-WAIVE-INT-IND PIC X(01). DTSIT027 00064 88 T027-WAIVE-INT-YES-88 VALUE 'Y'. DTSIT027 00065 88 T027-WAIVE-INT-NO-88 VALUE 'N'. DTSIT027 00066 DTSIT027 00067 15 T027-WAIVE-LATE-PEN-IND PIC X(01). DTSIT027 00068 88 T027-WAIVE-LATE-PEN-YES-88 VALUE 'Y'. DTSIT027 00069 88 T027-WAIVE-LATE-PEN-NO-88 VALUE 'N'. DTSIT027 00070 DTSIT027 00071 15 T027-TOTAL-EMPL-CNT PIC S9(07) COMP-3. DTSIT027 00072 88 T027-TOTAL-NO-ENTRY-88 VALUE +9999999. DTSIT027 00073 DTSIT027 00074 15 T027-1ST-MTH-EMPL-CNT PIC S9(07) COMP-3. DTSIT027 00075 88 T027-1ST-MTH-NO-ENTRY-88 VALUE +9999999. DTSIT027 00076 DTSIT027 00077 15 T027-2ND-MTH-EMPL-CNT PIC S9(07) COMP-3. DTSIT027 00078 88 T027-2ND-MTH-NO-ENTRY-88 VALUE +9999999. DTSIT027 00079 DTSIT027 00080 15 T027-3RD-MTH-EMPL-CNT PIC S9(07) COMP-3. DTSIT027 00081 88 T027-3RD-MTH-NO-ENTRY-88 VALUE +9999999. DTSIT027 00082 DTSIT027 00083 15 T027-RECEIVED-DATE PIC S9(09) COMP-3. DTSIT027 00084 DTSIT027 00085 15 T027-DEPOSIT-DATE PIC S9(09) COMP-3. DTSIT027 00086 DTSIT027 00087 15 T027-TRACE-NO PIC S9(13) COMP-3. DTSIT027 00088 DTSIT027 00089 15 T027-RESPONSIBLE-ACTIVITY DTSIT027 00090 PIC X(03). DTSIT027 00091 DTSIT027 00092 15 T027-RESPONSIBLE-OP-ID PIC X(08). DTSIT027 00093 DTSIT027 00094 15 T027-PASSED-FULL-EDITS-IND DTSIT027 00095 PIC X(01). DTSIT027 00096 88 T027-PASSED-FULL-EDITS-NO-88 VALUE 'N'. DTSIT027 00097 88 T027-PASSED-FULL-EDITS-YES-88 VALUE 'Y'. DTSIT027 00098 DTSIT027 00099 15 T027-LOG-NBR PIC X(06). DTSIT027 00100 DTSIT027 00101 15 FILLER PIC X(26). DTSIT027