unable to generate solman key from solution manager 7.1

[Former Member]

Hi

  iam unable to generate solman key from my solution manager 7.1 i got one error , i have attached the scren shot.

  is any bosy help me to trouble shoot this issue?

regards

vreddy

[Lluis]

Hello Veerrareddy,

You can generate the key in any Solution Manager for any system; the only requisite is that the sys XXX has to exits on SMSY, but you can select anyone product system, and after SMM key popup are displayed you can change it and you will be able to get the SMM key, besaide if the solman is 7.1.

I just have create a report for allow SMM key creation without acces to SMSY, my intention when i was created that report is to create the SMM key as a answers of specific message on incident managemet, the source code is:

you can get the SMM key without acces SMSY,

*&---------------------------------------------------------------------*
*& Report  Z_DSWPCLIENTKEY
*&---------------------------------------------------------------------*
REPORT  Z_DSWPCLIENTKEY.
TYPES gtv_fcode    TYPE sy-ucomm.
parameters:   p_sys_id type CHAR8,
              p_sys_nu type CHAR2,
              p_msg_se type CHAR40,
              p_smsy_i type CHAR10.
***************************************
*** Popup inst-upgr-key
DATA: BEGIN OF gs_dynpinfo_iuk,
  fcode            TYPE gtv_fcode,
  smsy_sys_id      TYPE smsy_name,
  smsy_sys_numb    TYPE smsy_system_sap-sysnr,
  smsy_msg_server  TYPE smsy_system_sap-messserver,
  smsy_inst_numb   type smsy_system_sap-inst_number,
  sys_id(3)        TYPE c,
  sys_numb(2)      TYPE c,
  msg_server(15)   TYPE c,
  key(10)          TYPE c,
END OF gs_dynpinfo_iuk.
***************************************
gs_dynpinfo_iuk-sys_id = p_sys_id.
gs_dynpinfo_iuk-sys_numb = p_sys_nu.
gs_dynpinfo_iuk-msg_server = p_msg_se.
gs_dynpinfo_iuk-smsy_inst_numb = p_smsy_i.
        PERFORM get_sp_value
          USING
            gs_dynpinfo_iuk-sys_id
            gs_dynpinfo_iuk-sys_numb
            gs_dynpinfo_iuk-msg_server
            gs_dynpinfo_iuk-smsy_inst_numb
          CHANGING
            gs_dynpinfo_iuk-key.
  WRITE /.
  WRITE /10 'Your SAP Solution Manager Key is:'.
  WRITE /.
  WRITE /10 gs_dynpinfo_iuk-key.
  WRITE /10 'http://solman.seidor.es'.
FORM get_sp_value USING    P_PF_SID
                           P_PF_SYSNO
                           P_PF_SERVER
                           P_PF_INSTNO
                  CHANGING P_PF_VALUE.
  CONSTANTS: lc_part_len TYPE i VALUE 5,
             lc_pw_len   TYPE i VALUE 10,
             lc_allowed_chars(38) TYPE c VALUE
             '-0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ_'.
  data: lf_string(20)        type c,
        lf_key               type i,
        ls_key               type dswpclientkey,
        lf_part(lc_part_len) type c,
        lf_finalf(lc_pw_len) type c,
        lf_finalx            type xstring,
        lf_xbuffer           type xstring,
        lf_opf(10)           type c,
        lf_subrc             like sy-subrc,
        lf_len               type i,
        lo_conv_to_x         TYPE REF TO cl_abap_conv_out_ce.
  clear: lf_string, lf_finalx, lf_opf.
  concatenate p_pf_sid p_pf_sysno p_pf_server into lf_string.
* Large letters only
  translate lf_string to upper case.
  SET LOCALE LANGUAGE 'E'.
  lo_conv_to_x = cl_abap_conv_out_ce=>create( encoding = '1100' ).
  lf_len = STRLEN( lf_string ).
  IF lf_string(lf_len) CN lc_allowed_chars.
  else.
* Fold the input string to a lc_part_len long string
    WHILE lf_len > 0.
      lf_part = lf_string(lc_part_len).
      SHIFT lf_string BY lc_part_len PLACES.
      lf_len = STRLEN( lf_string ).
      CALL METHOD lo_conv_to_x->reset.
      CALL METHOD lo_conv_to_x->write( data = lf_part n = -1 ).
      lf_xbuffer = lo_conv_to_x->get_buffer( ).
      lf_finalx = lf_finalx BIT-XOR lf_xbuffer.
    ENDWHILE.
    lf_key = 12.
    PERFORM scramble USING      lf_finalx
                                lf_key
                                lc_part_len
                       CHANGING lf_finalf
                                lf_subrc.
    if not lf_finalf is initial.
      p_pf_value = lf_finalf.
      ls_key-dbid        = p_pf_sid.
      ls_key-instno      = p_pf_instno.
      ls_key-bundle_id   = 'SM_KEY'.
      ls_key-service_key = lf_finalf.
      if not p_pf_instno is initial.
        insert dswpclientkey from ls_key.
        if sy-subrc <> 0.
          update dswpclientkey from ls_key.
        endif.
      endif.
    else.
      clear p_pf_value.
    endif.
  endif.
  SET LOCALE LANGUAGE ' '.
ENDFORM.                    " get_sp_value
*&---------------------------------------------------------------------*
*&      Form  scramble
*&---------------------------------------------------------------------*
FORM scramble USING    iv_xstring TYPE xstring
                       iv_key TYPE i
                       iv_src_len TYPE i
              CHANGING lf_finalf
                       lf_subrc LIKE sy-subrc.
  CONSTANTS: lc_max_len    TYPE i VALUE 20,
             lc_mask(4)    TYPE x VALUE '0000003F',
             lc_random(64) TYPE x VALUE
                      'F0ED53B83244F1F876C67959FD4F13A2' &
                      'C15195EC5483C234774943A27DE26596' &
                      '5E5398789A17A33CD383A8B829FBDCA5' &
                      '55D702778413ACDDF9B83116610E6DFA'.
  DATA: lv_key_index(4)  TYPE x,
        lv_rand_index(4) TYPE x,
        lv_xkey(4)       TYPE x,
        lv_xkey_shl_1(4) TYPE x,
        lv_xkey_shr_5(4) TYPE x,
        lv_scramble_byte TYPE x,
        lv_dest(lc_max_len) TYPE x,
        lv_index         TYPE i,
        lv_len           TYPE i.
  CLEAR lf_subrc.
  IF iv_src_len EQ 0. EXIT. ENDIF.
  lv_len = XSTRLEN( iv_xstring ).
  IF iv_src_len GT lc_max_len OR
     iv_src_len GT lv_len.
    lf_subrc = 2.
    EXIT.
  ENDIF.
  lv_xkey       = iv_key.
  lv_xkey_shl_1 = iv_key * 2.
  lv_xkey_shr_5 = iv_key DIV 32.
  lv_rand_index = lv_xkey BIT-XOR lv_xkey_shr_5 BIT-XOR lv_xkey_shl_1.
  lv_rand_index = lv_rand_index BIT-AND lc_mask.
  lv_index = 0.
  DO iv_src_len TIMES.
    CATCH SYSTEM-EXCEPTIONS compute_int_times_overflow = 1.
      lv_key_index = ( iv_key * lv_index * lv_index ) - lv_index.
    ENDCATCH.
    IF sy-subrc <> 0.
      lf_subrc = 1.
      EXIT.
    ENDIF.
    lv_scramble_byte = lc_random+lv_rand_index(1) BIT-XOR
                       lv_key_index+3(1).
    lv_dest+lv_index(1) = iv_xstring+lv_index(1) BIT-XOR
                          lv_scramble_byte.
    lv_index = lv_index + 1.
    lv_rand_index = lv_rand_index + 1.
    lv_rand_index = lv_rand_index BIT-AND lc_mask.
  ENDDO.
  IF lf_subrc <> 0.
    EXIT.
  ENDIF.
  WRITE  lv_dest(iv_src_len) TO lf_finalf.
ENDFORM.                    " scramble

Hhen i finish my tutorial to create SMM key as an answers of message creation trough PPF i will ipdate on my scn blog.

Hope that can help you,

regards,

Luis

[Former Member]

Hi,

only Edit option is not available in smsy, rest all the function remains as same as in 7.0 Ehp1

Please follow SAP Basis Tutorials: How to generate SAP solution manager key for the installation or upgrade pro...

Thanks

Jansi

[Former Member]

Hi janasi rani

  i follow the the above url , but still throughing the error message

regards

vreddy

[former_member206552]

Hi Vreddy

we are running SAP SOLUTION MANAGER 7.1 and im still able to generate a key via SMSY

What steps do you take ?

Best Regards

Marius