PROGRAM FOR MOVE CORRESPONDING:
We have to write a simple program to demonstrate Move Corresponding.
identification division.
program- id.
environment division.
data division.
working-storage section.
01 rec-1.
02 sno pic 9(2) value 11.
02 name pic x(4) value "Ravi".
01 rec-2.
05 sno pic z(2).
05 f pic x(10) value spaces.
05 name pic x(4).
05 f pic x(10) value spaces.
procedure division.
p-1.
display(1 1) erase.
move corr rec-1 to rec-2.
display rec-2.
stop run.