47 lines
3.6 KiB
COBOL
47 lines
3.6 KiB
COBOL
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
|