Sample Code - OOABAP - Redefining methods

  
CLASS parent DEFINITION.
  PUBLIC SECTION.
    DATA test TYPE char50.
    METHODS gv_pub.

  PROTECTED SECTION.
    DATA gv_date TYPE sy-datum.
    METHODS gv_pro.
ENDCLASS.

CLASS parent IMPLEMENTATION.
  METHOD gv_pub.
    test = 'Method declared in Public of Parent Class'.
    WRITE / test.
    CALL METHOD gv_pro.
  ENDMETHOD.

  METHOD gv_pro.
    gv_date = sy-datum.
    WRITE: / 'Today is = ', gv_date DD/MM/YYYY.
    SKIP 2.
  ENDMETHOD.
ENDCLASS.


CLASS child DEFINITION INHERITING FROM parent.
  PUBLIC SECTION.
    DATA c_txt TYPE char50.
    methods gv_pub redefinition.

  PROTECTED SECTION.
    DATA time TYPE sy-uzeit.
    METHODS gv_pro REDEFINITION.
ENDCLASS.


CLASS child IMPLEMENTATION.
  METHOD gv_pub.
    c_txt = 'Method Redefined in Public of Child Class'.
    WRITE / c_txt.
    CALL METHOD gv_pro.
  ENDMETHOD.

  METHOD gv_pro.
    time = sy-uzeit.
    WRITE: / 'Now the Time is = ', time.
  ENDMETHOD.
ENDCLASS.

START-OF-SELECTION.
  DATA: obj_par TYPE REF TO parent,
        obj_chi TYPE REF TO child.

  CREATE OBJECT: obj_par, obj_chi.
  CALL METHOD: obj_par->gv_pub,
               obj_chi->gv_pub.

OUTPUT: