66 lines
5.1 KiB
COBOL
66 lines
5.1 KiB
COBOL
00001 ***** 12/24/02
|
|
00002 * DTSIR515
|
|
00003 * DTSIR515 EMPLOYER RATE ASSIGNMENT DETAIL LIST REPORT RECORD. LV006
|
|
00004 * DTSIR515
|
|
00005 * DTSIR515
|
|
00006 * 04/22/1999 REVIEWED AND MODIFIED FOR DC. EHH DTSIR515
|
|
00007 * 07/08/2002 ADDED R515-REPORT-TYPE TO DISTINGUISH DTSIR515
|
|
00008 * REPORTS PRODUCED FOR EMPLOYERS DTSIR515
|
|
00009 * RECEIVING REGULAR RATES, ANNUAL DTSIR515
|
|
00010 * FILERS RECEIVING PRELIMINARY RATES, DTSIR515
|
|
00011 * AND ANNUAL FILERS RECEIVING FINAL DTSIR515
|
|
00012 * RATES. DTSIR515
|
|
00013 * DTSIR515
|
|
00014 ***** DTSIR515
|
|
00015 DTSIR515
|
|
00016 10 R515-LENGTH PIC S9(04) COMP. DTSIR515
|
|
00017 DTSIR515
|
|
00018 DTSIR515
|
|
00019 10 R515-SORT-AREA. DTSIR515
|
|
00020 15 R515-REC-TYPE PIC X(03). DTSIR515
|
|
00021 DTSIR515
|
|
00022 15 R515-REPORT-TYPE PIC X(01). DTSIR515
|
|
00023 88 R515-RPT-TYPE-REG-88 VALUE 'R'. DTSIR515
|
|
00024 88 R515-RPT-TYPE-ESTIM-88 VALUE 'E'. DTSIR515
|
|
00025 88 R515-RPT-TYPE-FINAL-88 VALUE 'F'. DTSIR515
|
|
00026 DTSIR515
|
|
00027 15 R515-UI-RATE-CATEGORY PIC X(01). DTSIR515
|
|
00028 88 R515-RATE-CLASSIFIED-88 VALUE 'C'. DTSIR515
|
|
00029 88 R515-RATE-NONCLASSIFIED-88 VALUE 'N'. DTSIR515
|
|
00030 DTSIR515
|
|
00031 15 R515-EMP-NO PIC S9(07) COMP-3. DTSIR515
|
|
00032 DTSIR515
|
|
00033 DTSIR515
|
|
00034 10 R515-DATA-AREA. DTSIR515
|
|
00035 15 R515-EFF-QTR PIC S9(05) COMP-3. DTSIR515
|
|
00036 DTSIR515
|
|
00037 15 R515-PRIMARY-NAME PIC X(40). DTSIR515
|
|
00038 DTSIR515
|
|
00039 15 R515-WAGES-AREA DTSIR515
|
|
00040 OCCURS 3 TIMES DTSIR515
|
|
00041 INDEXED BY R515-WAGES-IDX. DTSIR515
|
|
00042 20 R515-WAGES-FROM-YRQ PIC S9(05) COMP-3. DTSIR515
|
|
00043 20 R515-WAGES-THRU-YRQ PIC S9(05) COMP-3. DTSIR515
|
|
00044 20 R515-TAX-WAGE PIC S9(11)V9(02) COMP-3. DTSIR515
|
|
00045 DTSIR515
|
|
00046 15 R515-AVG-TAX-WAGE PIC S9(11)V9(02) COMP-3. DTSIR515
|
|
00047 DTSIR515
|
|
00048 15 R515-PRIOR-RESERVE-AMT PIC S9(09)V9(02) COMP-3. DTSIR515
|
|
00049 DTSIR515
|
|
00050 15 R515-UI-TAX-PAID-AMT PIC S9(09)V9(02) COMP-3. DTSIR515
|
|
00051 DTSIR515
|
|
00052 15 R515-TRUST-FUND-INTEREST-AMT DTSIR515
|
|
00053 PIC S9(09)V9(02) COMP-3. DTSIR515
|
|
00054 DTSIR515
|
|
00055 15 R515-BENEFITS-CHARGED-AMT DTSIR515
|
|
00056 PIC S9(09)V9(02) COMP-3. DTSIR515
|
|
00057 DTSIR515
|
|
00058 15 R515-CURRENT-RESERVE-AMT DTSIR515
|
|
00059 PIC S9(09)V9(02) COMP-3. DTSIR515
|
|
00060 DTSIR515
|
|
00061 15 R515-RESERVE-RATIO PIC S9(02)V9(05) COMP-3. DTSIR515
|
|
00062 DTSIR515
|
|
00063 15 R515-COMPUTED-RATE PIC S9(01)V9(04) COMP-3. DTSIR515
|
|
00064 DTSIR515
|
|
00065 15 R515-PENALTY-RATE PIC S9(01)V9(04) COMP-3. DTSIR515
|