00001 ***** 02/26/08 00002 * DTSIX141 00003 * DTSIX141 EMPLOYER REPORTS DUE EXTRACT RECORD LV001 00004 * DTSIX141 00005 * PASSES INFORMATION ABOUT QUARTERS NOT YET FILED TO THE DTSIX141 00006 * SQL SERVER DATABASE. DTSIX141 00007 * DTSIX141 00008 * DTSIX141 00009 ***** DTSIX141 00010 DTSIX141 00011 15 X141-REC-TYPE PIC X(03) VALUE '141'. DTSIX141 00012 15 FILLER PIC X(01) VALUE ','. DTSIX141 00013 15 X141-EMP-NO PIC 9(06). DTSIX141 00014 15 FILLER PIC X(01) VALUE ','. DTSIX141 00015 15 X141-QUARTER PIC X(06). DTSIX141 00016 15 FILLER PIC X(01) VALUE ','. DTSIX141 00017 15 X141-QTR-STATUS PIC X(01). DTSIX141 00018 88 X141-QTR-CURRENT-88 VALUE '0'. DTSIX141 00019 88 X141-QTR-RECEIVED-88 VALUE '1'. DTSIX141 00020 88 X141-QTR-DELINQUENT-88 VALUE '2'. DTSIX141 00021 88 X141-QTR-NOT-LIABLE-88 VALUE '9'. DTSIX141 00022 15 FILLER PIC X(01) VALUE ','. DTSIX141 00023 15 X141-FILING-SCHEDULE PIC X(01). DTSIX141 00024 88 X141-FILE-QTRLY-88 VALUE '0'. DTSIX141 00025 88 X141-FILE-ANN-LIAB-88 VALUE '1'. DTSIX141 00026 88 X141-FILE-ANN-NOT-LIAB-88 VALUE '2'. DTSIX141 00027 15 FILLER PIC X(01) VALUE ','. DTSIX141 00028 15 X141-RATE-X PIC X(06). DTSIX141 00029 15 X141-RATE REDEFINES X141-RATE-X DTSIX141 00030 PIC 9.9999. DTSIX141 00031 15 FILLER PIC X(01) VALUE ','. DTSIX141 00032 15 X141-REPORT-DUE-DATE PIC X(10). DTSIX141 00033 15 FILLER PIC X(01) VALUE ','. DTSIX141 00034 15 X141-TAX-DUE-DATE PIC X(10). DTSIX141 00035 15 FILLER PIC X(01) VALUE ','. DTSIX141 00036 *** 15 X141-TOTAL-WAGE PIC --------9.99. DTSIX141 00037 * 15 FILLER PIC X(01) VALUE ','. DTSIX141 00038 * 15 X141-TAX-WAGE PIC --------9.99. DTSIX141 00039 *** 15 FILLER PIC X(01) VALUE ','. DTSIX141 00040 15 X141-UI-TAX-BAL PIC --------9.99. DTSIX141 00041 15 FILLER PIC X(01) VALUE ','. DTSIX141 00042 15 X141-SUR-BAL PIC --------9.99. DTSIX141 00043 15 FILLER PIC X(01) VALUE ','. DTSIX141 00044 15 X141-INT-BAL PIC --------9.99. DTSIX141 00045 15 FILLER PIC X(01) VALUE ','. DTSIX141 00046 15 X141-PEN-BAL PIC --------9.99. DTSIX141