DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
34
Copybook/DTSIR506.cpy
Normal file
34
Copybook/DTSIR506.cpy
Normal file
@ -0,0 +1,34 @@
|
||||
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
|
||||
Reference in New Issue
Block a user