REDEFINES (REDEF, RED)
The REDEFINES command controls whether data item redefinitions are displayed.
The command is available in the Browse and Edit functions in Formatted and Vertical Formatted modes.
ON
Displays data item redefinitions as they occur in the record layout. Each redefinition is preceded with an information line that indicates the name of the redefinition and the name of the data item being redefined. Multiple redefinitions are displayed in sequence, with an information line preceding each redefinition.
OFF
Does not display data item redefinitions. Only one definition of each storage area is displayed. Use the DISPLAY REDEF command to select between multiple definitions when the REDEFINES value is OFF.
Guidelines
Use the PROFILE command to display the current REDEFINES value.
By default, the first definition of an area of storage is displayed and no redefinitions are displayed.
The following figure shows a record layout used to show the effect of the REDEF display option. When data formatted according to this record layout is displayed with REDEF set OFF, only the first definition displays, as shown in Display with REDEF OFF Setting. When the REDEF ON is set, the redefinition displays (preceded by an information line) as shown in Display with REDEF ON Setting.
Source Layout with REDEFINES Clause
05 EMP-NUMBER PIC X(5).
05 EMP-LAST-NAME PIC X(15).
05 EMP-FIRST-NAME PIC X(10).
05 EMP-MID-INIT PIC X.
05 FILLER PIC X(2).
05 EMP-TITLE PIC X(30).
05 EMP-PERSONAL-INFO.
10 EMP-NATL-ID-NUMBER PIC 9(9).
10 FILLER PIC X(01).
10 EMP-DATE-OF-BIRTH PIC X(6).
10 EMP-DOB-REDEF REDEFINES EMP-DATE-OF-BIRTH.
15 EMP-DOB-MM PIC 99.
15 EMP-DOB-DD PIC 99.
15 EMP-DOB-YY PIC 99.
10 EMP-HIRE-DATE PIC X(6).
10 EMP-MARITAL-STATUS PIC X.
05 EMP-WITHOLD-INFO.
10 EMP-LIFE-INS-WITHOLD-AMT PIC S9999V99.
10 EMP-NATL-TAX-WITHOLD-PCT PIC S999V99 COMP-3.
10 EMP-REGION-TAX-WITHOLD-PCT PIC S999V99 COMP-3.
10 EMP-LOCAL-TAX-WITHOLD-PCT PIC S999V99 COMP-3.
05 EMP-HOME-ADDRESS.
10 EMP-STREET-ADDRESS PIC X(25).
Display with REDEF OFF Setting
COMMAND ===> SCROLL ===> CSR
RECORD: 1 EMPLOYEE-MASTER-FILE LENGTH: 198
---- FIELD LEVEL/NAME ------- -FORMAT- ----+----1----+----2----+----3----+----4
5 EMP-NUMBER 5/AN 00090
5 EMP-LAST-NAME 15/AN MARTIN
5 EMP-FIRST-NAME 10/AN EDWARD
5 EMP-MID-INIT 1/AN M
5 FILLER 2/AN
5 EMP-TITLE 30/AN AIRPLANE MANUFACTURER
5 EMP-PERSONAL-INFO SYNC 23/GRP
10 EMP-NATL-ID-NUMBER 9/NUM 427890125
10 FILLER 1/AN
10 EMP-DATE-OF-BIRTH 6/AN 101954
10 EMP-HIRE-DATE 6/AN 920101
10 EMP-MARITAL-STATUS 1/AN M
5 EMP-WITHOLD-INFO SYNC 15/GRP
10 EMP-LIFE-INS-WITHOLD-AMT DISPLAY 30000}
6/SNUM -3000.00
10 EMP-NATL-TAX-WITHOLD-PCT 3/PS -74.00 000000E+01
10 EMP-REGION-TAX-WITHOLD-PCT 1
3/PS 25.00
10 EMP-LOCAL-TAX-WITHOLD-PCT
3/PS 5.00
Display with REDEF ON Setting
COMMAND ===> SCROLL ===> CSR
RECORD: 1 EMPLOYEE-MASTER-FILE LENGTH: 198
---- FIELD LEVEL/NAME ------- -FORMAT- ----+----1----+----2----+----3----+----4
5 EMP-NUMBER 5/AN 00090
5 EMP-LAST-NAME 15/AN MARTIN
5 EMP-FIRST-NAME 10/AN EDWARD
5 EMP-MID-INIT 1/AN M
5 FILLER 2/AN
5 EMP-TITLE 30/AN AIRPLANE MANUFACTURER
5 EMP-PERSONAL-INFO SYNC 23/GRP
10 EMP-NATL-ID-NUMBER 9/NUM 427890125
10 FILLER 1/AN
10 EMP-DATE-OF-BIRTH 6/AN 101954
10 EMP-DOB-REDEF REDEFINES EMP-DATE-OF-BIRTH <---- Redefinition
10 EMP-DOB-REDEF SYNC 6/GRP Information
15 EMP-DOB-MM 2/NUM 10 Line
15 EMP-DOB-DD 2/NUM 19
15 EMP-DOB-YY 2/NUM 54
10 EMP-HIRE-DATE 6/AN 920101
10 EMP-MARITAL-STATUS 1/AN M
5 EMP-WITHOLD-INFO SYNC 15/GRP
10 EMP-LIFE-INS-WITHOLD-AMT DISPLAY 30000}
6/SNUM -3000.00