Enhancement of a Standard Class

By Raghava Vakada, Mouri Tech Solutions

Go to TCode SE24. 

Enter the name of the Class to be enhanced. 

The Following Screen would be displayed.

Click on Class > Enhance.

Give the name of the enhancement implementation and short text

Click on continue. 

Enter the New method “GET_DATA_NEW” 

Click on Parameters.

Enter the Required parameters, Type, Associated Type.

Click on Back and get back to method screen. 

Enter the Source code. 

Click on Save Check and activate. 

Create a Report program on SE38 T- Code.

Click on Pattern.

Select ABAP Object Patterns. 

Click on continue.

Enter the Enhance Class name and method name.

Click on continue. 

Paste the Below Code. 

*&---------------------------------------------------------------------*
*& Report  ZENHANCE_TEST

*&  DEMO FOR ENHANCING THE STANDARD CLASS.

REPORT  ZENHANCE_TEST.
* TYPE DECLARATIONS
DATA : TABLE TYPE STRING,
       ROW_COUNT TYPE I,
       DATA_OUT TYPE TABLE OF SFLIGHT,
       W_OUT LIKE LINE OF DATA_OUT.

* Calling the Enhanced class and Enhanced methods.

CALL METHOD CL_WDR_FLIGHTS=>GET_DATA_NEW
  EXPORTING
*    ROW_COUNT =
    TAB_NAME  = 'SFLIGHT'
  CHANGING
    DATA      = DATA_OUT.

LOOP AT DATA_OUT INTO W_OUT.

WRITE :/ W_OUT-CARRID, W_OUT-FLDATE.

ENDLOOP.  

Execute the program: