DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
47
Copybook/DTSIMRRA.cpy
Normal file
47
Copybook/DTSIMRRA.cpy
Normal file
@ -0,0 +1,47 @@
|
||||
00001 ***** 01/16/08
|
||||
00002 * DTSIMRRA
|
||||
00003 * DTSIMRRA MASTER FILE 'EXPERIENCE TRANSFER RESERVE LV001
|
||||
00004 * AUDIT' RECORD DEFINITION. DTSIMRRA
|
||||
00005 * DTSIMRRA
|
||||
00006 * 11/10/2006 INITIAL DEVELOPMENT GD DTSIMRRA
|
||||
00007 * DTSIMRRA
|
||||
00008 ***** DTSIMRRA
|
||||
00009 DTSIMRRA
|
||||
00010 10 MRRA-KEY-AREA. DTSIMRRA
|
||||
00011 15 MRRA-EMP-NO PIC S9(07) COMP-3. DTSIMRRA
|
||||
00012 15 MRRA-REC-TYPE PIC S9(04) COMP. DTSIMRRA
|
||||
00013 88 MRRA-RRA-88 VALUE +10. DTSIMRRA
|
||||
00014 15 MRRA-RATE-EFF-YRQ PIC S9(05) COMP-3. DTSIMRRA
|
||||
00015 15 MRRA-REL-EFF-DATE PIC S9(09) COMP-3. DTSIMRRA
|
||||
00016 15 MRRA-ID-NO PIC S9(03) COMP-3. DTSIMRRA
|
||||
00017 DTSIMRRA
|
||||
00018 10 MRRA-PURGE-DATE PIC S9(09) COMP-3. DTSIMRRA
|
||||
00019 DTSIMRRA
|
||||
00020 10 MRRA-DATA-AREA. DTSIMRRA
|
||||
00021 15 MRRA-ACTION-IND PIC X(01). DTSIMRRA
|
||||
00022 88 MRRA-ESTB-RESERVE-88 VALUE '0'. DTSIMRRA
|
||||
00023 88 MRRA-SUB-FROM-PRED-88 VALUE '1'. DTSIMRRA
|
||||
00024 88 MRRA-ADD-ORIG-TO-SUCC-88 VALUE '2'. DTSIMRRA
|
||||
00025 88 MRRA-ADD-TO-SUCC-88 VALUE '3'. DTSIMRRA
|
||||
00026 15 MRRA-PRED-EMP-NO PIC S9(07) COMP-3. DTSIMRRA
|
||||
00027 15 MRRA-SUCC-EMP-NO PIC S9(07) COMP-3. DTSIMRRA
|
||||
00028 15 MRRA-ORIG-EMP-NO PIC S9(07) COMP-3. DTSIMRRA
|
||||
00029 DTSIMRRA
|
||||
00030 15 MRRA-PRIOR-RESERVE PIC S9(09)V99 COMP-3. DTSIMRRA
|
||||
00031 15 MRRA-BENEFITS PIC S9(09)V99 COMP-3. DTSIMRRA
|
||||
00032 15 MRRA-UI-TAX PIC S9(09)V99 COMP-3. DTSIMRRA
|
||||
00033 15 MRRA-INTEREST PIC S9(09)V99 COMP-3. DTSIMRRA
|
||||
00034 DTSIMRRA
|
||||
00035 15 MRRA-WAGES-AREA DTSIMRRA
|
||||
00036 OCCURS 3 TIMES DTSIMRRA
|
||||
00037 INDEXED BY MRRA-WAGES-IDX. DTSIMRRA
|
||||
00038 20 MRRA-TOT-WAGE PIC S9(11)V99 COMP-3. DTSIMRRA
|
||||
00039 20 MRRA-TAX-WAGE PIC S9(11)V99 COMP-3. DTSIMRRA
|
||||
00040 DTSIMRRA
|
||||
00041 15 FILLER PIC X(17). DTSIMRRA
|
||||
00042 DTSIMRRA
|
||||
00043 15 MRRA-CONVERTED-IND PIC X(01). DTSIMRRA
|
||||
00044 88 MRRA-CONVERTED-88 VALUE 'Y'. DTSIMRRA
|
||||
00045 88 MRRA-NOT-CONVERTED-88 VALUE 'N'. DTSIMRRA
|
||||
00046 DTSIMRRA
|
||||
00047 15 MRRA-ESTB-DATE PIC S9(09) COMP-3. DTSIMRRA
|
||||
Reference in New Issue
Block a user