00001 ***** 11/11/02 00002 * DTSIR910 00003 * DTSIR910 EMPLOYER ANNUAL REPORT (UC-30H) LV003 00004 * REPORT RECORD. DTSIR910 00005 * DTSIR910 00006 * NOTE: IF R910-ANN-CR-AMT = +0, PRINT SPACES. DTSIR910 00007 * DTSIR910 00008 * IF R910-DAILY-WAIVER-START-YRQ = DTSIR910 00009 * R910-DAILY-WAIVER-END-YRQ, PRINT SINGLE DTSIR910 00010 * QUARTER WAIVER MESSAGE. DTSIR910 00011 * DTSIR910 00012 * 11/02/2001 MODIFIED FROM DTSIR902 FOR HOUSEHOLD DTSIR910 00013 * EMPLOYERS REPORTING ANNUALLY. DTSIR910 00014 * DTSIR910 00015 * 05/02/2002 ADD TABLE CONTAINS 10 OCCURENCES ON DTSIR910 00016 * SSN FOR UC30H ANNUAL MAILING PROCESSES. DTSIR910 00017 * DTSIR910 00018 ***** DTSIR910 00019 DTSIR910 00020 10 R910-LENGTH PIC S9(04) COMP. DTSIR910 00021 DTSIR910 00022 10 R910-SORT-AREA. DTSIR910 00023 15 R910-REC-TYPE PIC X(03) VALUE '910'. DTSIR910 00024 15 R910-SORT-TYPE PIC X(01). DTSIR910 00025 88 R910-SORT-TYPE-ANN-88 VALUE 'A'. DTSIR910 00026 88 R910-SORT-TYPE-DAILY-88 VALUE 'D'. DTSIR910 00027 15 R910-VAR-SORT-AREA PIC X(18). DTSIR910 00028 15 R910-ANNUAL-SORT-AREA REDEFINES DTSIR910 00029 R910-VAR-SORT-AREA. DTSIR910 00030 20 R910-ANNUAL-ZIP-CODE DTSIR910 00031 PIC X(10). DTSIR910 00032 20 R910-ANNUAL-EMP-NO DTSIR910 00033 PIC S9(07) COMP-3. DTSIR910 00034 20 R910-ANNUAL-YR PIC S9(05) COMP-3. DTSIR910 00035 20 FILLER PIC X(01). DTSIR910 00036 DTSIR910 00037 15 R910-DAILY-SORT-AREA REDEFINES DTSIR910 00038 R910-VAR-SORT-AREA. DTSIR910 00039 20 R910-DAILY-TYPE PIC X(01). DTSIR910 00040 88 R910-INACT-88 VALUE 'I'. DTSIR910 00041 88 R910-LIAB-DETERM-88 VALUE 'L'. DTSIR910 00042 88 R910-REQUEST-88 VALUE 'R'. DTSIR910 00043 *********************88 R910-ELF-ADD-88 VALUE 'E'. DTSIR910 00044 20 R910-DAILY-OP-ID PIC X(08). DTSIR910 00045 20 R910-DAILY-EMP-NO PIC S9(07) COMP-3. DTSIR910 00046 20 R910-DAILY-YR PIC S9(05) COMP-3. DTSIR910 00047 20 FILLER PIC X(02). DTSIR910 00048 DTSIR910 00049 10 R910-DATA-AREA. DTSIR910 00050 15 R910-RUN-IND PIC X(01). DTSIR910 00051 88 R910-ANNUAL-88 VALUE 'A'. DTSIR910 00052 88 R910-DAILY-88 VALUE 'D'. DTSIR910 00053 15 R910-PRI-NAME-FIRST4 PIC X(04). DTSIR910 00054 15 R910-FMT-ADDR. DTSIR910 00055 20 R910-FMT-LINE OCCURS 5 TIMES DTSIR910 00056 INDEXED BY R910-FMT-IDX DTSIR910 00057 PIC X(40). DTSIR910 00058 15 R910-ZIP PIC X(10). DTSIR910 00059 15 R910-ADVANCED-BARCODE PIC X(14). DTSIR910 00060 15 R910-TAX-WAGE-BASE PIC S9(07)V9(02) DTSIR910 00061 COMP-3. DTSIR910 00062 15 R910-UI-RATE PIC S9(01)V9(04) DTSIR910 00063 COMP-3. DTSIR910 00064 15 R910-RPT-DUE-DATE PIC S9(09) COMP-3. DTSIR910 00065 15 R910-FEIN PIC S9(09) COMP-3. DTSIR910 00066 15 R910-ANN-CR-AMT PIC S9(09)V9(02) DTSIR910 00067 COMP-3. DTSIR910 00068 15 R910-DAILY-WAIVER-START-YRQ DTSIR910 00069 PIC S9(05) COMP-3. DTSIR910 00070 15 R910-DAILY-WAIVER-END-YRQ DTSIR910 00071 PIC S9(05) COMP-3. DTSIR910 00072 15 R910-DAILY-WAIVER-DATE PIC S9(09) COMP-3. DTSIR910 00073 15 R910-DAILY-SUPPLEMENTAL-IND DTSIR910 00074 PIC X(01). DTSIR910 00075 88 R910-DAILY-SUPL-YES-88 VALUE 'Y'. DTSIR910 00076 15 R910-ELECTRNIC-WAGE-FILER-IND DTSIR910 00077 PIC X(01). DTSIR910 00078 88 R910-ELECTRNIC-WAGES-YES-88 VALUE 'Y'. DTSIR910 00079 88 R910-ELECTRNIC-WAGES-NO-88 VALUE 'N'. DTSIR910 00080 15 R910-SSN-LINE-CNT PIC S9(04) COMP. DTSIR910 00081 15 R910-SSN-UC30H. DTSIR910 00082 20 R910-SSN-LINE OCCURS 10 TIMES DTSIR910 00083 INDEXED BY R910-SSN-IDX DTSIR910 00084 PIC S9(09) COMP-3. DTSIR910 00085 DTSIR910