Redefines - Control Data Corporation 3300 Reference Manual

3.5.11
REDEFINES
60229400
The REDEFINES clause allows data items in the same physical area in
memory to be specified in an alternate manner. The data is not changed,
only the method of referencing the data; this includes giving the item a new
name.
level-number data-name-1; REDEFINES data-name-2
The level number of data-name-1 must be the same as that specified for
data-name-2; it may not be 66 or 88. This clause may not be at the 01 level
in the File Section. Implicit redefinition is provided by the DATA RECORDS
clause in the file description entry.
Entries giving the new description of the area in memory must immediately
follow entries describing the area being redefined. Redefinition starts at
data-name-2 and ends when a level number less than or equal to that of data-
name-2 is encountered. Unless data-name-1 is at the 01 level, it must
specify an area in memory the same size as that of data-name-2.
The data-name-2 entry cannot contain an OCCURS clause and cannot be sub-
ordinate to an entry containing an OCCURS clause. Nor can an OCCURS
clause with the DEPENDING ON option be specified for any entries in the
original item or its redefinition.
Example:
01 LIST.
02 PART-1 PICTURE 999 VALUE IS
xxx.
02 PART-2 PICTURE 999 VALUE IS
xxx.
02 PART-3 PICTURE 999 VALUE IS
xxx.
02 PART-50 PICTURE 999 VALUE IS
xxx.
01 NEW-LIST REDEFINES LIST.
02 PARTS PICTURE 999 OCCURS 50 TIMES.
3-35