35 lines
2.7 KiB
COBOL
35 lines
2.7 KiB
COBOL
00001 ***** 04/19/99
|
|
00002 * DTSIR506
|
|
00003 * DTSIR506 RATE CUTOFF TRANSFERS OF EXPERIENCE REPORT RECORD. LV003
|
|
00004 * DTSIR506
|
|
00005 ***** DTSIR506
|
|
00006 CL**2
|
|
00007 10 R506-LENGTH PIC S9(04) COMP. CL**2
|
|
00008 CL**2
|
|
00009 10 R506-SORT-AREA. DTSIR506
|
|
00010 15 R506-REC-TYPE PIC X(03). CL**2
|
|
00011 15 R506-SUCC-EMP-NO PIC S9(07) COMP-3. CL**2
|
|
00012 15 R506-PRED-EMP-NO PIC S9(07) COMP-3. CL**2
|
|
00013 15 R506-REL-EFF-DATE PIC S9(09) COMP-3. CL**2
|
|
00014 CL**2
|
|
00015 10 R506-DATA-AREA. DTSIR506
|
|
00016 15 R506-EXP-CUTOFF-DATE PIC S9(09) COMP-3. DTSIR506
|
|
00017 15 R506-EFF-QTR PIC S9(05) COMP-3. DTSIR506
|
|
00018 15 R506-PRIOR-RESERVE-AMT PIC S9(09)V9(02) COMP-3. CL**2
|
|
00019 15 R506-UI-TAX-PAID-AMT PIC S9(09)V9(02) COMP-3. CL**2
|
|
00020 15 R506-TRUST-FUND-INTEREST-AMT CL**3
|
|
00021 PIC S9(09)V9(02) COMP-3. CL**2
|
|
00022 15 R506-BENEFITS-CHARGED-AMT CL**3
|
|
00023 PIC S9(09)V9(02) COMP-3. CL**3
|
|
00024 15 R506-WAGES-AREA CL**2
|
|
00025 OCCURS 3 TIMES CL**2
|
|
00026 INDEXED BY R506-WAGES-IDX. CL**2
|
|
00027 20 R506-WAGES-FROM-YRQ PIC S9(05) COMP-3. CL**2
|
|
00028 20 R506-WAGES-THRU-YRQ PIC S9(05) COMP-3. CL**2
|
|
00029 20 R506-TOT-WAGE PIC S9(11)V9(02) COMP-3. CL**2
|
|
00030 20 R506-TAX-WAGE PIC S9(11)V9(02) COMP-3. CL**2
|
|
00031 15 R506-EARLIEST-LIAB-DATE PIC S9(09) COMP-3. CL**2
|
|
00032 15 R506-MISS-RPT-CNT PIC S9(03) COMP-3. CL**2
|
|
00033 15 R506-TOT-UI-TAX-BALANCE-AMT CL**2
|
|
00034 PIC S9(09)V9(02) COMP-3. CL**2
|