Placing Hyphen(-) between the characters
DATA:gv_string TYPE string VALUE 'DM999999999999',
gv_string_final TYPE string,
lv_mod TYPE i,
gv_length TYPE i,
gv_offset TYPE i.
gv_length = strlen( gv_string ).
DO gv_length TIMES.
CONCATENATE gv_string_final gv_string+gv_offset(1) INTO gv_string_final.
IF sy-index = gv_length. "exit on reaching last caracter
EXIT.
ENDIF.
IF sy-index = 2.
CONCATENATE gv_string_final '-' INTO gv_string_final.
ELSEIF sy-index = 8.
CONCATENATE gv_string_final '-' INTO gv_string_final.
ELSEIF sy-index = 9.
CONCATENATE gv_string_final '-' INTO gv_string_final.
ELSEIF sy-index = 11.
CONCATENATE gv_string_final '-' INTO gv_string_final.
ENDIF.
gv_offset = gv_offset + 1.
ENDDO.
WRITE:/ 'Input string: ', gv_string .
WRITE:/ 'Result: ', gv_string_final.
Output:
Comments
Post a Comment