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 strlengv_string ).

DO gv_length TIMES.
  CONCATENATE gv_string_final gv_string+gv_offset(1INTO 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

Popular posts from this blog

Passing Dynamic Variables to SO10 TEXT

Implicit Enhancement with Example

TMG Events