Data Definition Language (DDL) Reference Manual

Definition Attributes
Data Definition Language (DDL) Reference Manual—529431-004
6-32
REDEFINES
group-name
is the name of the previous group in the definition or record currently being
defined.
Redefining structures must start at the same level as the structures they redefine.
A redefining structure must immediately follow the structure it redefines except in the
case of multiple redefines where each redefining structure refers back to the same
original structure.
A redefining field must not have a VALUE clause, a MUST BE clause, or an UPSHIFT
clause.
Because the data type of a group is always alphanumeric, an attempt to redefine a
group containing binary items can produce unpredictable results.
A redefining structure must not be larger than the structure it redefines.
Example 6-23 on page 6-32 defines storage for exempt employees and redefines it for
nonexempt employees.
Topics:
•
C on page 6-33
•
COBOL on page 6-33
•
FORTRAN on page 6-34
•
Pascal (D-series Systems Only) on page 6-34
•
pTAL or TAL on page 6-36
•
TACL on page 6-36
Example 6-23. REDEFINES Clause
DEF employee.
02 emp-id PIC 9(4).
02 emp-name PIC X(22).
02 emp-type PIC X.
02 exmpt-emp.
04 salary PIC 9(6)V99.
02 non-exmpt-emp REDEFINES exmpt-emp. ! Redefines salary
04 hrly-wage PIC 9(3)V99.
04 hrs-wrkd PIC 9(3).
02 dept PIC 9(4).
02 emp-sex PIC X.
02 spouse-name PIC X(22).
END