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