Step By Step Process To Unlocking The Users Password Using Gateway Service(OData) When ever it is locked

[former_member536260]

Introduction.

Hi All,

 

Sap Gateway is an open standards-based framework that developers can use to more easily

connect non-sap applications to sap applications. it is also used to connect to and acess SAP

applications from mobile devices.

 

Odata data source can be accessible by JavaScript  code running on web browsers like IE, FF,etc.

OData client library is also available for silverlight applications and other RIA(Rich Internet

Applications). OData libraries are available for Android, IOS and Windows phone. many Bi Tools

support OData.

 

In this blog I want to explain about how to unlock the users password when it is locked using

OData and Resetting the users password by giving temporary password which is been

sending through mail.

 

     Step 1.

Go to t-code SEGW to create service .



    Step 2.

Create an entity type by giving the name as user details.



 Step 3. 

Now provide the properties.





Step 4.

Now get entity set is automatically created.



 

 Step 5.    

Now we have to implement the code by redefining the methods get entity in DPC_EXT class.

Now right click on get entity and Choose Redefine.

In our scenario we have redefined get_entity and update_entity methods as shown below.

 



 

Step 6.

And we have to write the code in the Re-defined method .

Based on the login user to get the user details using get entity method.

method USERDETAILSSET_GET_ENTITY.





 DATA: is_key_tab TYPE /IWBEP/s_MGW_NAME_VALUE_PAIR.



 READ TABLE it_key_tab INTO is_key_tab INDEX 1.

 DATA(lv) = is_key_tab-value.



TRANSLATE lv TO UPPER CASE.

 SELECT SINGLE  Bname

        Langu

        FROM usr01 INTO CORRESPONDING FIELDS OF ER_ENTITY WHERE Bname = lv."is_key_tab-VALUE.





  endmethod.

 

Step 7.   

After getting the user details we have to update the user password using update entity.

METHOD userdetailsset_update_entity.



    DATA:is_update TYPE zcl_zuser_unlock_mpc=>ts_userdetails.

    io_data_provider->read_entry_data( IMPORTING es_data = is_update ).



    DATA(lv_user) = is_update-bname.

    DATA:logondata TYPE uslogond.

    DATA(repid) = sy-repid.

    DATA(reptitle) = sy-title.



    CALL FUNCTION 'SUSR_USER_LOGONDATA_GET'

      EXPORTING

        user_name           = lv_user

      IMPORTING

        user_logondata      = logondata

      EXCEPTIONS

        user_name_not_exist = 1

        OTHERS              = 2.

  



   

 

Step 8.

Logic to generate a random password

 DATA: lv_password(8),

     lv_newpassword TYPE xu400-newcode.



    DATA:lc_alphanum TYPE c.

    CALL FUNCTION 'RSEC_GENERATE_PASSWORD'

      EXPORTING

        alphabet      = lc_alphanum

        output_length = 8

      IMPORTING

        output        = lv_password

      EXCEPTIONS

        some_error    = 1

        OTHERS        = 2.

 

Step 9.

Now we have to assign a password to the user .

 IF lv_password IS NOT INITIAL.

** If no number in password, insert a number to meet security policy

      IF lv_password NA '123456789'.

        lv_password+7(1) = '5'.

      ENDIF.

      lv_newpassword = lv_password.

      CALL FUNCTION 'SUSR_USER_PASSWORD_PUT'

        EXPORTING

          user_name            = lv_user

          password             = lv_newpassword

        EXCEPTIONS

          user_name_not_exist  = 1

          password_not_allowed = 2

          OTHERS               = 3.



      IF sy-subrc = 0.



        CALL FUNCTION 'SUSR_USER_BUFFERS_TO_DB'

          EXPORTING

            message_out               = 'X'  " note 173081

          EXCEPTIONS

            no_logondata_for_new_user = 1

            no_init_password          = 2

            db_insert_usr02_failed    = 3

            db_update_usr02_failed    = 4

            db_insert_usr01_failed    = 5

            db_update_usr01_failed    = 6

            db_insert_usr05_failed    = 7

            db_update_usr05_failed    = 8

            db_insert_usr21_failed    = 9

            db_update_usr21_failed    = 10.



         IF sy-subrc <> 0.

 

         ENDIF.



         MESSAGE 'Generated password has been copied to clipboard!' TYPE 'S'.



         COMMIT WORK.



         DATA:wa_address TYPE bapiaddr3,

              it_returns TYPE bapiret2_t,

               it_email      TYPE STANDARD TABLE OF bapiadsmtp,

                lo_container TYPE REF TO /iwbep/if_message_container.

         CALL FUNCTION 'BAPI_USER_GET_DETAIL'

          EXPORTING

            username = lv_user

*           CACHE_RESULTS        = 'X'

          IMPORTING

            address  = wa_address

          TABLES

            addsmtp  = it_email

            return   = it_returns.



        IF it_email IS NOT INITIAL.



          READ TABLE it_email ASSIGNING FIELD-SYMBOL(<fs_email>) INDEX 1.

          DATA(v_email) = <fs_email>-e_mail.

        ENDIF.



        DATA: wa_docdata  TYPE sodocchgi1,

              wa_objpack  TYPE sopcklsti1,

              it_objpack  TYPE TABLE OF sopcklsti1,

              wa_objtxt   TYPE solisti1,

              it_objtxt   TYPE TABLE OF solisti1,

              wa_reclist  TYPE somlreci1,

              it_reclist  TYPE TABLE OF somlreci1,

              it_lines    TYPE TABLE OF tline,

              lv_link(35) TYPE  c VALUE 'www.thesummitgroup.net',

              tab_lines   TYPE i,

              ls_returns  TYPE bapiret2.



        DATA: lt_tvarcv_config TYPE TABLE OF tvarvc,

              ls_tvarcv_config TYPE tvarvc,

              lv_launchpad_url TYPE string,

              lv_supinfo_url   TYPE string.







        CONSTANTS: c_htm   TYPE char3  VALUE 'HTM',

                   c_u     TYPE c      VALUE 'U',

                   c_x     TYPE c      VALUE 'X',

                   c_space TYPE c      VALUE ' ',

                   c_e     TYPE c      VALUE 'E',

                   c_pw    TYPE char5  VALUE '{PWD}'.





          IF sy-subrc = 0.



          CALL FUNCTION 'READ_TEXT'

            EXPORTING

              client                  = sy-mandt

              id                      = 'ST'

              language                = sy-langu

              name                    = 'ZSRM_PWD_UNLOCK'

              object                  = 'TEXT'

            TABLES

              lines                   = it_lines

            EXCEPTIONS

              id                      = 1

              language                = 2

              name                    = 3

              not_found               = 4

              object                  = 5

              reference_check         = 6

              wrong_access_to_archive = 7

              OTHERS                  = 8.

          IF sy-subrc <> 0.



          ENDIF.



          LOOP AT it_lines INTO DATA(wa_lines).

            APPEND wa_lines-tdline TO it_objtxt.

          ENDLOOP.



          REPLACE ALL OCCURRENCES OF c_pw IN TABLE

          it_objtxt WITH lv_newpassword IN CHARACTER MODE.



          DESCRIBE TABLE it_objtxt LINES tab_lines.

          READ TABLE it_objtxt INTO wa_objtxt INDEX tab_lines.

          wa_docdata-obj_name = text-020.  "'TEST_HTML'.

          wa_docdata-obj_descr = text-031.  "'HISD - Password has been reset and your new password'.

          wa_docdata-doc_size = ( tab_lines - 1 ) * 255 + strlen( wa_objtxt ).



          CLEAR wa_objpack-transf_bin.

          wa_objpack-head_start = 1.

          wa_objpack-head_num = 0.

          wa_objpack-body_start = 1.

          wa_objpack-body_num = tab_lines.

          wa_objpack-doc_type = c_htm.

          APPEND wa_objpack TO it_objpack.



          wa_reclist-receiver = v_email .

          wa_reclist-rec_type = c_u.

          APPEND wa_reclist TO it_reclist.

Step 10.

Logic to send an email to user with new password.

CALL FUNCTION 'SO_DOCUMENT_SEND_API1'

             EXPORTING

              document_data              = wa_docdata

              put_in_outbox              = c_space

              commit_work                = c_x

            TABLES

              packing_list               = it_objpack

              contents_txt               = it_objtxt

              receivers                  = it_reclist

            EXCEPTIONS

              too_many_receivers         = 1

              document_not_sent          = 2

              document_type_not_exist    = 3

              operation_no_authorization = 4

              parameter_error            = 5

              x_error                    = 6

              enqueue_error              = 7

              OTHERS                     = 8.

          IF sy-subrc <> 0.

            CALL FUNCTION 'BAPI_MESSAGE_GETDETAIL'

              EXPORTING

                id         = sy-msgid

                number     = sy-msgno

                textformat = c_htm

                message_v1 = sy-msgv1

                message_v2 = sy-msgv2

                message_v3 = sy-msgv3

                message_v4 = sy-msgv4

              IMPORTING

                message    = ls_returns-message.

            IF ls_returns-message IS INITIAL.

              ls_returns-message = text-022.  "'Failed to Send an Email to Supplier'.

            ENDIF.



          ENDIF.



        ENDIF.

      ENDIF.

    ELSE.

      lo_container = me->mo_context->get_message_container( ).

      CALL METHOD lo_container->add_message_text_only

        EXPORTING

          iv_msg_type               = /iwbep/if_message_container=>gcs_message_type-error

          iv_msg_text               = 'Order Number not Valid! Do you require pass through codes to get out of line?'

          iv_error_category         = /iwbep/if_message_container=>gcs_error_category-processing

          iv_is_leading_message     = abap_true

          iv_add_to_response_header = abap_true.

    ENDIF.



  ENDMETHOD.

 

Step 11.

we have successfully  done with coding part, now we have to execute the service.

Step 12.

Go to the t-code /n/IWFND/MAINT_SERVICE and click on enter.

Step 13.

Now enter your project name and click on enter .



 

Step 14.

Now we have to load the metadata by pressing the load metadata button and click on sap gateway client.

Step 15.

It will navigate to execution phase of Request Uri .



 

Step 16.

Now double click on Entity sets button and it will give pop-up like as shown below.



Step 17.

Double click on the entity set name and the service url is as shown below.

specify the particular user to reset the password in the url as shown below.

 



 

Step 18.

Now click on Execute button the output can be displayed as shown below.

And click on Use as request the data is displayed in left side and choose radio button as put.

 



 

Simply execute status will be 204.



 

Step 19

 

Now the temporary password is been sent to the mail .

Go to SOST t-code there we can check the temporary password as shown below.



 

Step 20.

Choose the send status and click on display button then the following screen we can see.



Step 21.

Now user can copy this password and Re-Login using SAP GUI as shown below.



 

Step 22.

Now user can create new password as shown below.



CONCLUSION:

 

By using the above odata URL we had rested the password for the user XXXXXXX, The service had

sent an email with temorary password , by using the password we had created new password.

can reset any one user at a time. The same thing has been expalained in the above steps. The

temoprary passowrd will be generated and the same will be sent to the respective registred mail id.

By using the temporary password we can create a new password.