CLASS big_boss DEFINITION.
PUBLIC SECTION.
METHODS set_name IMPORTING i_name TYPE string.
METHODS get_name EXPORTING e_name TYPE string.
METHODS set_age IMPORTING i_age TYPE int4.
METHODS get_age EXPORTING e_age TYPE int4.
METHODS set_profession IMPORTING i_profession TYPE string.
METHODS get_profession EXPORTING e_profession TYPE string.
PROTECTED SECTION.
PRIVATE SECTION.
DATA p_name TYPE string.
DATA p_age TYPE int4.
DATA p_profession TYPE string.
ENDCLASS.
CLASS big_boss IMPLEMENTATION.
METHOD set_name.
p_name = i_name.
ENDMETHOD.
METHOD get_name.
e_name = p_name.
ENDMETHOD.
METHOD set_age.
P_age = i_age.
ENDMETHOD.
METHOD get_age.
E_age = p_age.
ENDMETHOD.
METHOD set_profession.
P_profession = i_profession.
ENDMETHOD.
METHOD get_profession.
E_profession = p_profession.
ENDMETHOD.
ENDCLASS.
REPORT TO ACCESS GETTER AND SETTER METHODS.
DATA lr_bigboss TYPE REF TO bigboss.
DATA l_name TYPE string.
DATA l_age TYPE int4.
DATA l_profession TYPE string.
Lr_bigboss = NEW bigboss( ).
Lr_bigboss->set_name( EXPORTING i_name = ‚Bala‘ ).
Lr_bigboss->set_age( EXPORTING i_age = 24 ).
Lr_bigboss->set_profession( EXPORTING i_profession = ‚Model and Mr. India‘ ).
Lr_bigboss->get_name( IMPORTING e_name = l_name ).
Lr_bigboss->get_age( IMPORTING e_age = l_age ).
Lr_bigboss->get_profession( IMPORTING e_profession = l_profession ).
WRITE: / ‚NAME OF THE CONTESTANT:‘ , l_name.
WRITE:/ ,AGE OF THE CONTESTANT:‘; l_age.
WRITE:/ ,PROFESSION OF THE CONTESTANT:‘, L_PROFESSION.