Comparing Two Strings As Parameters in ABAP Program Using Functions
Introduction
String comparison is often required while writing a program in ABAP or any other programming language. Various types of contrast can be used, such as comparing two names, two cities, or any other alphanumeric string.
*&---------------------------------------------------------------------*
*& Report ZTESTING1*&---------------------------------------------------------------------*
*& WRITE A PROGRAM THAT CHECKS TWO STRINGS FOR EQUALITY USING A
*& FUNCTION THAT ACCEPTS STRINGS AS PARAMETERS AND RETURNS THE STATUS
*&---------------------------------------------------------------------*
REPORT ZTESTING1.
PARAMETERS: STR1 TYPE STRING, STR2 TYPE STRING.
DATA: FLAG TYPE ABAP_BOOL.
START-OF-SELECTION.
PERFORM CHECK_STRINGS USING STR1 STR2 CHANGING FLAG.
IF FLAG EQ ABAP_TRUE.
WRITE: /'STRINGS ARE EQUAL'.
ELSE.
WRITE: /'STRINGS ARE UNEQUAL'.
ENDIF.
FORM CHECK_STRINGS USING S1 S2 CHANGING CH_FLAG.
IF S1 EQ S2.
CH_FLAG = ABAP_TRUE.
ELSE.
CH_FLAG = ABAP_FALSE.
ENDIF.
ENDFORM.
*&---------------------------------------------------------------------*
*& Report ZTESTING2
*&---------------------------------------------------------------------*
*& WRITE A PROGRAM THAT CHECKS TWO STRINGS FOR EQUALITY USING A
*& FUNCTION THAT ACCEPTS STRINGS AS PARAMETERS AND RETURNS THE STATUS
*& USING TRANSLATE TO CONVERT TEXT TO UPPERCASE
*&---------------------------------------------------------------------*
REPORT ZTESTING2.
PARAMETERS: STR1 TYPE STRING, STR2 TYPE STRING.
DATA: FLAG TYPE ABAP_BOOL.
START-OF-SELECTION.
PERFORM CHECK_STRINGS USING STR1 STR2 CHANGING FLAG.
IF FLAG EQ ABAP_TRUE.
WRITE: /'STRINGS ARE EQUAL'.
ELSE.
WRITE: /'STRINGS ARE UNEQUAL'.
ENDIF.
FORM CHECK_STRINGS USING S1 S2 CHANGING CH_FLAG.
TRANSLATE S1 TO UPPER CASE.
TRANSLATE S2 TO UPPER CASE.
IF S1 EQ S2.
CH_FLAG = ABAP_TRUE.
ELSE.
CH_FLAG = ABAP_FALSE.
ENDIF.
ENDFORM.
Comments
Post a Comment