66 lines
5.1 KiB
COBOL
66 lines
5.1 KiB
COBOL
00001 ***** 04/22/99
|
|
00002 * DTSIR723
|
|
00003 * DTSIR723 RQC EXPERIENCE RATING UNIVERSE LV005
|
|
00004 * REPORT RECORD. DTSIR723
|
|
00005 * DTSIR723
|
|
00006 * NOTE: IF THERE IS NO "EFFECTIVE" PENALTY RATE DTSIR723
|
|
00007 * THEN R723-PENALTY-RATE CONTAINS ZERO. DTSIR723
|
|
00008 * DTSIR723
|
|
00009 * NOTE: USE R723-EFF-YRQ AND DTSBU055 TO CL**3
|
|
00010 * DETERMINE RANGE OF DATES OR THE RANGE CL**3
|
|
00011 * OF QUARTERS FROM WHICH THE RATING CL**3
|
|
00012 * EXPERIENCE IS ACCUMULATED. CL**3
|
|
00013 * CL**3
|
|
00014 * CL**3
|
|
00015 * 04/22/1999 REVIEWED AND MODIFIED FOR DC. EHH CL**3
|
|
00016 * CL**3
|
|
00017 ***** DTSIR723
|
|
00018 CL**3
|
|
00019 10 R723-LENGTH PIC S9(04) COMP. CL**2
|
|
00020 CL**3
|
|
00021 CL**3
|
|
00022 10 R723-SORT-AREA. DTSIR723
|
|
00023 15 R723-REC-TYPE PIC X(03). CL**3
|
|
00024 CL**3
|
|
00025 15 R723-EMP-NO PIC S9(07) COMP-3. DTSIR723
|
|
00026 CL**3
|
|
00027 CL**3
|
|
00028 10 R723-DATA-AREA. DTSIR723
|
|
00029 15 R723-EFF-YRQ PIC S9(05) COMP-3. DTSIR723
|
|
00030 CL**3
|
|
00031 15 R723-PRIMARY-NAME PIC X(40). CL**3
|
|
00032 CL**3
|
|
00033 15 R723-PRIOR-RESERVE-AMT PIC S9(09)V9(02) COMP-3. CL**5
|
|
00034 CL**5
|
|
00035 15 R723-UI-TAX-PAID-AMT PIC S9(09)V9(02) COMP-3. CL**5
|
|
00036 CL**5
|
|
00037 15 R723-TRUST-FUND-INTEREST-AMT CL**5
|
|
00038 PIC S9(09)V9(02) COMP-3. CL**5
|
|
00039 CL**5
|
|
00040 15 R723-BENEFITS-CHARGED-AMT CL**5
|
|
00041 PIC S9(09)V9(02) COMP-3. CL**5
|
|
00042 CL**5
|
|
00043 15 R723-WAGES-AREA CL**5
|
|
00044 OCCURS 3 TIMES CL**5
|
|
00045 INDEXED BY R723-WAGES-IDX. CL**5
|
|
00046 20 R723-TOT-WAGE PIC S9(11)V9(02) COMP-3. CL**5
|
|
00047 20 R723-TAX-WAGE PIC S9(11)V9(02) COMP-3. CL**5
|
|
00048 CL**5
|
|
00049 15 R723-EARLIEST-LIAB-DATE PIC S9(09) COMP-3. CL**5
|
|
00050 CL**5
|
|
00051 15 R723-MISS-RPT-CNT PIC S9(03) COMP-3. CL**5
|
|
00052 CL**5
|
|
00053 15 R723-TOT-UI-TAX-BALANCE-AMT CL**5
|
|
00054 PIC S9(09)V9(02) COMP-3. CL**5
|
|
00055 CL**5
|
|
00056 15 R723-AVG-TAX-WAGE PIC S9(11)V9(02) COMP-3. CL**5
|
|
00057 CL**3
|
|
00058 15 R723-CURRENT-RESERVE-AMT CL**4
|
|
00059 PIC S9(09)V9(02) COMP-3. CL**5
|
|
00060 CL**4
|
|
00061 15 R723-RESERVE-RATIO PIC S9(02)V9(05) COMP-3. CL**5
|
|
00062 CL**4
|
|
00063 15 R723-COMPUTED-RATE PIC S9(01)V9(04) COMP-3. CL**5
|
|
00064 CL**3
|
|
00065 15 R723-PENALTY-RATE PIC S9(01)V9(04) COMP-3. CL**5
|