rajandhla
Active User
Joined: 18 Oct 2005 Posts: 182 Location: Luton UK
|
|
|
|
Redefines and renames are used to reuse the storage space of an existing data item.
redefines ex:
01 Error-Flag-Table Value Spaces.
88 No-Errors Value Spaces.
05 Type-Error Pic X.
05 Shift-Error Pic X.
05 Home-Code-Error Pic X.
05 Work-Code-Error Pic X.
05 Name-Error Pic X.
05 Initials-Error Pic X.
05 Duplicate-Error Pic X.
05 Not-Found-Error Pic X.
01 Filler Redefines Error-Flag-Table.
05 Error-Flag Occurs 8 Times
Indexed By Flag-Index Pic X.
Renames:
The RENAMES clause specifies alternative, possibly overlapping, groupings of elementary data items.
The special level-number 66 must be specified for data description entries that contain the RENAMES clause.
One or more RENAMES entries can be written for a logical record. All RENAMES entries associated with one logical record must immediately follow that record's last data description entry
01 rec.
05 a...
05 b...
05 c...
66 z redefines b through c.....
for more info look in to mauals....
Regards
jai |
|