86 lines
6.7 KiB
COBOL
86 lines
6.7 KiB
COBOL
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
|