*----------------------------------------------------------------------* * CLASS child IMPLEMENTATION *----------------------------------------------------------------------* CLASS child IMPLEMENTATION. METHOD m_child. DATA obj TYPE REF TO abc. CREATE OBJECT obj. CALL METHOD m_par. obj->v_pro = 'Protected - Accessed by Child'. obj->v_pri = 'Private - Accessed by Child'. WRITE: / 'Child Method:', / obj->v_pro, / obj->v_pri. SKIP. ENDMETHOD. "m_chi ENDCLASS. "child IMPLEMENTATION * Start of selection START-OF-SELECTION. * Data Declaration DATA obj_chi TYPE REF TO child. * Create object CREATE OBJECT obj_chi. * Method call CALL METHOD obj_chi->m_child.

 

Output