*     infocube
      CALL FUNCTION 'RSD_NAME_CHECK_CUBE'
        EXPORTING
          i_name            = i_objnm
          i_namespace       = e_namespace
          i_name_w_o_prefix = e_name_w_o_prefix
          i_systp           = e_systp
          i_nspacegen       = e_nspacegen
        EXCEPTIONS
          name_invalid      = 1
          OTHERS            = 2.
      IF sy-subrc <> 0.
        MESSAGE ID sy-msgid TYPE rs_c_error NUMBER sy-msgno
                WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4
                RAISING name_invalid.
        EXIT.
      ENDIF.

*
CONSTANTS rsdg_c_cube_max_len     TYPE rsd_s_doma-intlen VALUE '9'.
CONSTANTS rsdg_c_cube_min_len     TYPE rsd_s_doma-intlen VALUE '3'.
*
CASE i_systp.
*
    WHEN 'Область имен SAP'.
      IF i_namespace(1) CA '0'.
        l_max_len = rsdg_c_cube_max_len.
      ELSEIF i_namespace(1) CA '123456789'.
        l_max_len = rsdg_c_cube_max_len - 1.
      ENDIF.
      l_len = strlen( i_name ).
*
    WHEN 'Область имен КЛИЕНТА'.
      l_max_len = rsdg_c_cube_max_len.
      l_len = strlen( i_name ).
*
    WHEN 'Область имен ПАРТНЕРА SAP'.
      l_max_len = 14 - STRLEN( i_nspacegen ) + STRLEN( i_namespace ).
      l_len = strlen( i_name ).
  ENDCASE.