DEMO: Data transfer between Structures

REPORT  zabc.

DATA : BEGIN OF emp,
         empno TYPE i,
         ename(20) TYPE c,
       END OF emp.

emp-empno = 1.
emp-ename = 'raju'.

WRITE :/ 'EMP structure: EMPNO, ENAME'.
WRITE :/ 'EMPNO:', emp-empno,
       / 'ENAME:', emp-ename.

DATA : BEGIN OF emp1,
         deptno TYPE i,
         empno TYPE i,
         ename(20) TYPE c,
       END OF emp1.

emp1-deptno = 20.
WRITE:/ ,
      / 'MOVING EMP TO EMP1',
      /.

MOVE-CORRESPONDING emp TO emp1.
WRITE :/ 'EMP1 structure: DEPNO, EMPNO, ENAME'.
WRITE :/ 'DEPTNO', emp1-deptno,
       / 'EMPNO', emp1-empno,
       /  'ENAME',emp1-ename.

WRITE: /,
       / 'MODIFYING EMP1'.

EMP1-EMPNO = 2.
EMP1-ENAME = 'SAM'.
EMP1-DEPTNO = 50.

WRITE :/ 'DEPTNO', emp1-deptno,
       / 'EMPNO', emp1-empno,
       / 'ENAME',emp1-ename.


WRITE:/ ,
      / 'MOVING EMP1 TO EMP',
      /.

MOVE-CORRESPONDING emp1 TO emp.

*EMP-EMPNO = EMP1-EMPNO.
*EMP-ENAME = EMP1-ENAME.

WRITE :/ 'EMPNO', emp1-empno,
       /  'ENAME',emp1-ename.