Set and Read Memory ID in ABAP OO

Below code for reference:

CONSTANTS: lc_memid_a  TYPE char20 VALUE 'ZMEM_ID_A',
           lc_memid_b  TYPE char20 VALUE 'ZMEM_ID_B',
           lc_name_a  TYPE char1  VALUE 'A',
           lc_name_b  TYPE char1  VALUE 'B'.

DATA: lv_a_exp TYPE char10 VALUE 'AAAAA',
      lv_a_imp TYPE char10,
      lv_b_exp TYPE char10 VALUE 'BBBBB',
      lv_b_imp TYPE char10.


EXPORT lc_name_a FROM lv_a_exp TO MEMORY ID lc_memid_a.

EXPORT lc_name_b FROM lv_b_exp TO MEMORY ID lc_memid_b.

IMPORT lv_a_imp = lv_a_imp FROM MEMORY ID lc_memid_a.

IMPORT lc_name_b TO lv_b_imp FROM MEMORY ID lc_memid_b.

FREE MEMORY ID: lc_memid_a, lc_memid_b.

WRITE: lv_a_imp, lv_b_imp.

WRITE: / '===TABlE===='.

DATA: BEGIN OF lwa_test,
        fld1 TYPE char10,
        fld2 TYPE char20,
      END OF lwa_test,
      lt_test     LIKE TABLE OF lwa_test,
      lt_test_imp LIKE TABLE OF lwa_test.

lwa_test-fld1 = 'AAAA'.
lwa_test-fld2 = 'AAAA'.
APPEND lwa_test TO lt_test.
CLEAR lwa_test.

lwa_test-fld1 = 'BBBB'.
lwa_test-fld2 = 'BBBB'.
APPEND lwa_test TO lt_test.
CLEAR lwa_test.

EXPORT lc_name_a FROM lt_test   TO MEMORY ID lc_memid_a.
IMPORT lc_name_a TO lt_test_imp FROM MEMORY ID lc_memid_a.

FREE MEMORY ID: lc_memid_a.
CLEAR lt_test.

LOOP AT lt_test_imp INTO lwa_test.
  WRITE: / lwa_test-fld1, lwa_test-fld2.
ENDLOOP.