Data Definition Language (DDL) Reference Manual (G06.24+)

Definition Attributes
Data Definition Language (DDL) Reference Manual—426798-002
6-34
REDEFINES Clause
02 D.
04 D-1 PIC X.
04 D-2 PIC 9 REDEFINES D-1.
02 E PIC 9(5).
02 F REDEFINES E.
04 F-1 PIC 9(3).
04 F-2 PIC 9(2).
END.
Pascal:
TYPE A_DEF = RECORD
V_B : RECORD
CASE INT16 OF
01:( B : FSTRING[4] );
02:( C : RECORD
C_1 : FSTRING[2];
C_2 : FSTRING[2];
END );
END;
D : RECORD
CASE INT16 OF
01:( D_1 : CHAR );
02:( D_2 : CHAR );
END;
CASE INT16 OF
01:( E : FSTRING[5] );
02:( F : RECORD
F_1 : FSTRING[3];
F_2 : FSTRING[2];
END );
END;
REDEFINES Clause Example
In the following example, the storage defined for exempt employees is redefined for
nonexempt employees:
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-empREDEFINES exmpt-emp .
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
Salary redefined for non-exempt
employees
VST606.vsd