PROGRAMS FOR REDEFINES CLAUSE:
We have to write a simple program to explain the REDEFINES clause at 01 level.
identification division.
program- id. Redef.
environment division.
data division.
working-storage section.
01 a pic 9(3) value 125.
01 r pic 9(2) redefines a.
procedure division.
p-1.
display(1 1) erase.
display(5 5) "Value of r = " r.
stop run.
Note: The outcome of the program will be
Value of r = 12.
This output is arrived by using Redefining the variable a.