57 lines
4.4 KiB
COBOL
57 lines
4.4 KiB
COBOL
00001 ***** 01/29/02
|
|
00002 * DTSIR112
|
|
00003 * DTSIR112 EMPLOYER REGISTRATION NOTICE OF SUBJECTIVITY LV004
|
|
00004 * (UI-47) REPORT RECORD. DTSIR112
|
|
00005 * DTSIR112
|
|
00006 * NOTE: IF R112-EMP-CLASS = 'R', R112-LAST-RATE-END-YRQ DTSIR112
|
|
00007 * WILL BE THE VALUE OF MHDR-LAST-REG-RATE-END-YRQ. DTSIR112
|
|
00008 * IF R112-EMP-CLASS = 'G', R112-LAST-RATE-END-YRQ DTSIR112
|
|
00009 * WILL BE THE VALUE OF MHDR-LAST-GOV-RATE-END-YRQ. DTSIR112
|
|
00010 * IF R112-EMP-CLASS = 'S', R112-LAST-RATE-END-YRQ DTSIR112
|
|
00011 * DOES NOT APPLY. DTSIR112
|
|
00012 * DTSIR112
|
|
00013 * R112-RATE-AREA WILL CARRY THE MOST RECENT SIX DTSIR112
|
|
00014 * RATES ASCENDING BY MRTE-EFF-YRQ. DTSIR112
|
|
00015 * THE REPORT MODULE WILL DETERMINE WHICH RATES DTSIR112
|
|
00016 * TO DISPLAY AND THE SEQUENCE FOR DISPLAY. DTSIR112
|
|
00017 * DTSIR112
|
|
00018 * DTSIR112
|
|
00019 * 10/28/1998 REVIEWED AND MODIFIED FOR DC. EHH DTSIR112
|
|
00020 * DTSIR112
|
|
00021 * 11/02/2001 MODIFIED FOR HOUSEHOLD. GD DTSIR112
|
|
00022 * DTSIR112
|
|
00023 ***** DTSIR112
|
|
00024 DTSIR112
|
|
00025 10 R112-LENGTH PIC S9(04) COMP. DTSIR112
|
|
00026 DTSIR112
|
|
00027 10 R112-SORT-AREA. DTSIR112
|
|
00028 15 R112-REC-TYPE PIC X(03) VALUE '112'. DTSIR112
|
|
00029 15 R112-OP-ID PIC X(08). DTSIR112
|
|
00030 15 R112-EMP-NO PIC S9(07) COMP-3. DTSIR112
|
|
00031 DTSIR112
|
|
00032 10 R112-DATA-AREA. DTSIR112
|
|
00033 15 R112-RPT-TYPE PIC X(01). DTSIR112
|
|
00034 88 R112-RPT-QUARTERLY-88 VALUE 'Q'. DTSIR112
|
|
00035 88 R112-RPT-ANNUAL-88 VALUE 'A'. DTSIR112
|
|
00036 15 R112-RUN-DATE PIC S9(09) COMP-3. DTSIR112
|
|
00037 15 R112-FMT-ADDR. DTSIR112
|
|
00038 20 R112-FMT-LINE OCCURS 5 TIMES DTSIR112
|
|
00039 INDEXED BY R112-FMT-IDX DTSIR112
|
|
00040 PIC X(40). DTSIR112
|
|
00041 15 R112-ZIP PIC X(10). DTSIR112
|
|
00042 15 R112-ADVANCED-BARCODE PIC X(14). DTSIR112
|
|
00043 15 R112-FIRST-LIAB-YRQ PIC S9(05) COMP-3. DTSIR112
|
|
00044 15 R112-LAST-LIAB-YRQ PIC S9(05) COMP-3. DTSIR112
|
|
00045 15 R112-SCHED-START-YRQ PIC S9(05) COMP-3. DTSIR112
|
|
00046 15 R112-EMP-CLASS PIC X(01). DTSIR112
|
|
00047 88 R112-CLASS-RATED-88 VALUE 'R'. DTSIR112
|
|
00048 88 R112-CLASS-SELF-INS-88 VALUE 'S'. DTSIR112
|
|
00049 15 R112-LAST-RATE-END-YRQ PIC S9(05) COMP-3. DTSIR112
|
|
00050 15 R112-RATE-CNT PIC S9(04) COMP. DTSIR112
|
|
00051 15 R112-RATE-AREA OCCURS 6 TIMES DTSIR112
|
|
00052 INDEXED BY R112-RATE-IDX. DTSIR112
|
|
00053 20 R112-RATE-EFF-YRQ PIC S9(05) COMP-3. DTSIR112
|
|
00054 20 R112-RATE-END-YRQ PIC S9(05) COMP-3. DTSIR112
|
|
00055 20 R112-UI-RATE PIC S9(01)V9(04) DTSIR112
|
|
00056 COMP-3. DTSIR112
|