Using REGEX (Regular Expressions) we can build smart codes. Regex is used for string processing, and they are very fast.
In this example I'm formatting the names. My intention is to convert any name in the given format "Xxxxx Yyyyy". Using conventional ABAP programming this can get pretty messy as a name can be in any format. Thankfully REGEX helps a lot.
Example Name: PIERRE-LOUIS LEFĂVRE
The Output:
Another example with name: MARTIN LUTHER KING,JR.
The output:
Another example with name: TALLEGA Y PRADO
The output:
The Code :
*&---------------------------------------------------------------------*
*& Report ZTEST_SB1
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT ZTEST_REGEX.
DATA: i_seltext TYPE STANDARD TABLE OF rsseltexts,
wa_seltext TYPE rsseltexts.
DATA: l_off TYPE i,
r_root TYPE REF TO cx_root,
l_dummy TYPE c LENGTH 500,
l_replacement TYPE string.
PARAMETERS: p_name TYPE c LENGTH 100 OBLIGATORY.
INITIALIZATION.
wa_seltext-name = 'P_NAME'.
wa_seltext-kind = 'P'.
wa_seltext-text = 'Name'.
APPEND wa_seltext TO i_seltext.
CALL FUNCTION 'SELECTION_TEXTS_MODIFY'
EXPORTING
program = sy-repid
TABLES
seltexts = i_seltext
EXCEPTIONS
program_not_found = 1
program_cannot_be_generated = 2
OTHERS = 3.
IF sy-subrc <> 0.
* Implement suitable error handling here
ENDIF.
START-OF-SELECTION.
l_dummy = p_name.
TRANSLATE l_dummy TO LOWER CASE.
WHILE sy-subrc = 0.
TRANSLATE l_dummy+l_off(1) TO UPPER CASE.
FIND REGEX '(\<[a-z])' IN l_dummy MATCH OFFSET l_off.
ENDWHILE.
WRITE: /1 'Formatted Name:',20 l_dummy.
