Palindrome string using sap abap

 we could check whether the string is palindrome or not , simply by using oops concept and reverse method  in sap abap.

the code :

&---------------------------------------------------------------------*
*& Report  ZPALINDROME
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  ZPALINDROME.

CLASS ZDEMO DEFINITION.
PUBLIC SECTION.
DATA: LV_VAL TYPE STRING.
METHODS: CONSTRUCTOR IMPORTING IM_VALUE TYPE STRING.
METHODS : CHECK.
ENDCLASS.


CLASS ZDEMO   IMPLEMENTATION.
METHOD  CONSTRUCTOR.
LV_VAL = IM_VALUE.
ENDMETHOD.

METHOD CHECK.
DATA: I_REV TYPE STRING.
   I_REV = reverse( lv_val ).
IF I_REV = LV_VAL.
 WRITE :/' THIS IS A PALINDROME'.
ELSE.

WRITE : 'NOT A PLAINDROME'.
ENDIF.
ENDMETHOD.
ENDCLASS.

START-OF-SELECTION.

DATA: LV_OBJ TYPE REF TO ZDEMO.
CREATE OBJECT LV_OBJ EXPORTING IM_VALUE = 'HINDUSTAN'.
LV_OBJ->CHECK( ).

DATA: LV_OB1 TYPE REF TO ZDEMO.
CREATE OBJECT LV_OB1 EXPORTING IM_VALUE = 'MALAYALAM'.
LV_OB1->CHECK( ).