48 lines
3.7 KiB
COBOL
48 lines
3.7 KiB
COBOL
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
|