HP DDL D40 Reference Manual page 128

Definition Attributes
02 D.
04 D-1
04 D-2
02 E
02 F
04 F-1
04 F-2
END.
Pascal:
TYPE A_DEF = RECORD
V_B
CASE INT16 OF
END;
D
END;
CASE INT16 OF
END;
REDEFINES Clause Example
In the following example, the storage defined for exempt employees is redefined for
nonexempt employees:
DEF employee .
02 emp-id
02 emp-name
02 emp-type
02 exmpt-emp .
04 salary
02 non-exmpt-emp REDEFINES exmpt-emp .
04 hrly-wage
04 hrs-wrkd
02 dept
02 emp-sex
02 spouse-name
END
Data Definition Language (DDL) Reference Manual—426798-002
PIC X.
PIC 9 REDEFINES D-1.
PIC 9(5).
REDEFINES E.
PIC 9(3).
PIC 9(2).
01:( B
02:( C
C_1
C_2
END );
CASE INT16 OF
01:( D_1
02:( D_2
01:( E
02:( F
F_1
F_2
END );
PIC 9 (4) .
PIC X (22) .
PIC X .
PIC 9 (6) V99 .
PIC 9 (3) V99 .
PIC 9 (3) .
PIC 9 (4) .
PIC X .
PIC X (22) .
: RECORD
: FSTRING[4]
: RECORD
: FSTRING[2];
: FSTRING[2];
: RECORD
: CHAR );
: CHAR );
: FSTRING[5]
: RECORD
: FSTRING[3];
: FSTRING[2];
Salary redefined for non-exempt
6- 34
REDEFINES Clause
);
);
employees
VST606.vsd