00001 ***** 09/28/12 00002 * DTSIT028 00003 * DTSIT028 ESTABLISH ELECTRONIC QUARTERLY REPORT LV002 00004 * TRANSACTION RECORD DEFINITION. DTSIT028 00005 * DTSIT028 00006 * DTSIT028 00007 * 04/06/2012 INITIAL DEVELOPMENT - MODIFIED DTSIT028 00008 * FROM DTSIT027. THE SORT FIELDS DTSIT028 00009 * HAVE BEEN CHANGED SO THAT ICESA DTSIT028 00010 * REPORTS, AMENDED REPORTS AND DTSIT028 00011 * REPORTS FROM EXTERNAL SOURCES DTSIT028 00012 * WILL SORT INTO RELATED GROUPS. GD DTSIT028 00013 * DTSIT028 00014 ***** DTSIT028 00015 DTSIT028 00016 10 T028-LENGTH PIC S9(04) COMP. DTSIT028 00017 DTSIT028 00018 10 T028-KEY-AREA. DTSIT028 00019 15 T028-REC-TYPE PIC X(03) VALUE '028'. DTSIT028 00020 15 T028-TRN-TYPE PIC X(01). DTSIT028 00021 88 T028-ICESA-88 VALUE '1'. DTSIT028 00022 88 T028-PAPER-RPT-88 VALUE '2'. DTSIT028 00023 88 T028-WAGE-ONLY-DISK-88 VALUE '3'. DTSIT028 00024 88 T028-ANNUAL-RPT-88 VALUE '4'. DTSIT028 00025 88 T028-WEB-RPT-88 VALUE '5'. DTSIT028 00026 88 T028-AMEND-RPT-88 VALUE '6'. DTSIT028 00027 88 T028-BENEFITS-88 VALUE '7'. DTSIT028 00028 88 T028-INTRANET-RPT-88 VALUE '8'. CL**2 00029 88 T028-CLAIMNT-WAGE-88 VALUE '9'. CL**2 00030 88 T028-UNKNOWN-88 VALUE '0'. DTSIT028 00031 15 T028-LOG-NBR PIC 9(06). DTSIT028 00032 DTSIT028 00033 10 T028-DATA-AREA. DTSIT028 00034 15 T028-EMP-NO PIC S9(07) COMP-3. DTSIT028 00035 15 T028-ORIGIN PIC X(10). DTSIT028 00036 15 FILLER REDEFINES T028-ORIGIN. DTSIT028 00037 20 T028-OP-ID PIC X(08). DTSIT028 00038 20 T028-SCR-ID PIC X(02). DTSIT028 00039 15 T028-SYS-DATE PIC S9(09) COMP-3. DTSIT028 00040 15 T028-SYS-TIME PIC S9(07) COMP-3. DTSIT028 00041 DTSIT028 00042 15 T028-PSEUDO-DOC-NO. DTSIT028 00043 20 T028-PSEUDO-BATCH-NO DTSIT028 00044 PIC S9(05) COMP-3. DTSIT028 00045 20 T028-PSEUDO-ITEM-NO DTSIT028 00046 PIC S9(03) COMP-3. DTSIT028 00047 DTSIT028 00048 15 T028-NAME-CHECK PIC X(04). DTSIT028 00049 DTSIT028 00050 15 T028-RPT-TYPE PIC X(02). DTSIT028 00051 88 T028-ORIG-88 VALUE 'OR'. DTSIT028 00052 88 T028-EMP-AMEND-88 VALUE 'EA'. DTSIT028 00053 88 T028-AUDIT-88 VALUE 'AU'. DTSIT028 00054 88 T028-FLD-SUP-88 VALUE 'FS'. DTSIT028 00055 88 T028-ADMIN-CORR-88 VALUE 'AC'. DTSIT028 00056 88 T028-ESTIM-88 VALUE 'ES'. DTSIT028 00057 88 T028-WITHDRW-88 VALUE 'WD'. DTSIT028 00058 88 T028-SUPPLEM-88 VALUE 'EA' 'AU' DTSIT028 00059 'FS' 'AC'. DTSIT028 00060 DTSIT028 00061 15 T028-YRQ PIC S9(05) COMP-3. DTSIT028 00062 DTSIT028 00063 15 T028-TOT-WAGE PIC S9(11)V9(02) COMP-3. DTSIT028 00064 DTSIT028 00065 15 T028-EXCESS-WAGE PIC S9(11)V9(02) COMP-3. DTSIT028 00066 DTSIT028 00067 15 T028-TAX-WAGE PIC S9(11)V9(02) COMP-3. DTSIT028 00068 DTSIT028 00069 15 T028-REMIT-AMT PIC S9(09)V9(02) COMP-3. DTSIT028 00070 DTSIT028 00071 15 T028-WAIVE-BOTH-IND PIC X(01). DTSIT028 00072 88 T028-WAIVE-BOTH-YES-88 VALUE 'Y'. DTSIT028 00073 88 T028-WAIVE-BOTH-NO-88 VALUE 'N'. DTSIT028 00074 DTSIT028 00075 15 T028-WAIVE-INT-IND PIC X(01). DTSIT028 00076 88 T028-WAIVE-INT-YES-88 VALUE 'Y'. DTSIT028 00077 88 T028-WAIVE-INT-NO-88 VALUE 'N'. DTSIT028 00078 DTSIT028 00079 15 T028-WAIVE-LATE-PEN-IND PIC X(01). DTSIT028 00080 88 T028-WAIVE-LATE-PEN-YES-88 VALUE 'Y'. DTSIT028 00081 88 T028-WAIVE-LATE-PEN-NO-88 VALUE 'N'. DTSIT028 00082 DTSIT028 00083 15 T028-TOTAL-EMPL-CNT PIC S9(07) COMP-3. DTSIT028 00084 88 T028-TOTAL-NO-ENTRY-88 VALUE +9999999. DTSIT028 00085 DTSIT028 00086 15 T028-1ST-MTH-EMPL-CNT PIC S9(07) COMP-3. DTSIT028 00087 88 T028-1ST-MTH-NO-ENTRY-88 VALUE +9999999. DTSIT028 00088 DTSIT028 00089 15 T028-2ND-MTH-EMPL-CNT PIC S9(07) COMP-3. DTSIT028 00090 88 T028-2ND-MTH-NO-ENTRY-88 VALUE +9999999. DTSIT028 00091 DTSIT028 00092 15 T028-3RD-MTH-EMPL-CNT PIC S9(07) COMP-3. DTSIT028 00093 88 T028-3RD-MTH-NO-ENTRY-88 VALUE +9999999. DTSIT028 00094 DTSIT028 00095 15 T028-RECEIVED-DATE PIC S9(09) COMP-3. DTSIT028 00096 DTSIT028 00097 15 T028-DEPOSIT-DATE PIC S9(09) COMP-3. DTSIT028 00098 DTSIT028 00099 15 T028-TRACE-NO PIC S9(13) COMP-3. DTSIT028 00100 DTSIT028 00101 15 T028-RESPONSIBLE-ACTIVITY DTSIT028 00102 PIC X(03). DTSIT028 00103 DTSIT028 00104 15 T028-RESPONSIBLE-OP-ID PIC X(08). DTSIT028 00105 DTSIT028 00106 15 T028-PASSED-FULL-EDITS-IND DTSIT028 00107 PIC X(01). DTSIT028 00108 88 T028-PASSED-FULL-EDITS-NO-88 VALUE 'N'. DTSIT028 00109 88 T028-PASSED-FULL-EDITS-YES-88 VALUE 'Y'. DTSIT028 00110 DTSIT028 00111 15 FILLER PIC X(26). DTSIT028