function conversion_exit_zphon_output

function conversion_exit_zphon_output.
*"----------------------------------------------------------------------
*"*"Локальный интерфейс:
*"  IMPORTING
*"     VALUE(INPUT) TYPE  CLIKE
*"  EXPORTING
*"     VALUE(OUTPUT) TYPE  CLIKE
*"----------------------------------------------------------------------
*+7(123)456-78-90
*1234567890123456

  data: lv_internal(16) type c.

  lv_internal = input.

  if strlen( lv_internal ) = 6.
    concatenate '7172' lv_internal into lv_internal.
  endif.
  if strlen( lv_internal ) = 7.
    concatenate '727' lv_internal into lv_internal.
  endif.

  case lv_internal(3).
    when '700' or '701' or '702' or '707' or '777' or '727'.
      concatenate '+7(' lv_internal(3) ')' lv_internal+3(3) '-' lv_internal+6(2) '-' lv_internal+8(2) into  output.
    when others.
      concatenate '+7(' lv_internal(4) ')' lv_internal+4(2) '-' lv_internal+6(2) '-' lv_internal+8(2) into  output.
  endcase.

endfunction.