Comparing Strings

REPORT ZRR_SAMPLE.

TYPE-POOLS: abap.

PARAMETERS: p_str1 TYPE string,
            p_str2 TYPE string.

DATA: lv_equal_flag TYPE abap_bool.

START-OF-SELECTION.

  PERFORM check_char_is_equal USING p_str1
                                  p_str2
                            CHANGING lv_equal_flag.

  IF lv_equal_flag EQ abap_true.

    WRITE: / 'Os valores são iguais...'.

  ELSE.

    WRITE: / 'Os valores não são iguais...'.

  ENDIF.

*----------------------------------------------------------------------*
* -> FORM check_char_is_equal                                          *
*----------------------------------------------------------------------*
* -> Realiza a verificação dos valores informados                      *
*----------------------------------------------------------------------*
FORM check_char_is_equal USING  im_string1
                                im_string2
                         CHANGING ch_flag.

  DATA: lv_string1 TYPE string,
        lv_string2 TYPE string.

  lv_string1 = im_string1.
  lv_string2 = im_string2.

  TRANSLATE lv_string1 TO UPPER CASE.
  TRANSLATE lv_string2 TO UPPER CASE.

  IF lv_string1 EQ lv_string2.

    ch_flag = abap_true.

  ELSE.

    ch_flag = abap_false.

  ENDIF.

ENDFORM.                      " FORM check_char_is_equal