CRM Mobile, selective deactivation of rep-objects in practice

[Former Member]

Precondition

From CRM 4.0 SP12 there is a way to deactivate the transfer of relication objects selectivly by site. This is a very flexible feature when you have to deal with mass updates in a CRM environment with mobile clients.

But looking a little bit behind the scenes, the "smoeac" is not a handy tool to use this feature. It will lead to the point where you are spending hours deactiviating objects per site one after the other. Not a very good idea...

What is it for

The selective deactivation of replication objects is made for helping CRM Mobile Admins to control the data sent to the mobile clients. Usualy the mobile clients get their data instance by instance through the RFC-Queue and Conntrans. But imagine you have to do a mass update then you got 2 chances

Flooding the queue??

This is probably not a good solution. Since a mass update (e.g. all german customers) will be a lot of datasets, the queues of your mobiles will be flooded.

Deactivation the object?

As with the "MIP" improvements delivered with CRM4.0 SP12 there you have the chance to deactivate the specific replication object for wich your mass update will be done. (eg. capgen_obj_write) This is usualy the better way, since the update will not cause any processing in the extract queue and no single instance bdocs are written.

When you are reactivating the object again, the smoeac will check if something has changed since the deactivation and if this is true a AC-Extract will be fired for the object.

Is it that simple?

In practice, no!

Since you usualy have not only german mobile laptops around, but others that are not involved within the mass update, you would have (guess what...) two chances again. You can either selectivly deactivate the replication object for all clients (using the object based view in smoeac), or you would have to deactivate the object site by site.

Deactivating the object for all, means that for example a swiss client who maybe only got one change of a customer due to normal daily business, will get a full AC-Extract of all the customers. This is not what we intended!

If you go for selective deactivation site by site, then you are the lucky man, if you've got to deactivate 200 or 300 sites!

(If you are on the site based view and missing the replication objects assigned by "interlinkage" you should check the SAP-Notes, there is one build for me 🙂 that is correcting this)

My solution

As usual, a report will do the job. It started with only the deactivation, but with some "inherited" code from the "smoeac", it now does the activation and the AC-Extract as well.

You will need to paste the following code into a plain report in your system

*&---------------------------------------------------------------------**& Report  Z_SELDEACT_REPOBJ                                           **&                                                                     **&---------------------------------------------------------------------**& Selective deactivation and reactivation of replication objects      **& used for mass updates with mobile clients involved                  **&                                                                     **& Rolf Mueller Endress+Hauser Infoserve 07.2009                       **&                                                                     **& Rev.1.0 first version deact/react 09.07.09                          **& Rev.1.1 reactivation with AC-Extract trigger from admin console     **&                                   10.07.09                          **&                                                                     **&                                                                     **&---------------------------------------------------------------------*REPORT  z_seldeact_repobj                       .TABLES: smohsiteid.TYPES : BEGIN OF t_rotype,          shortname TYPE smo_objsht,          rotype    TYPE smo_rotype,        END OF t_rotype.DATA: gt_exrrobj TYPE TABLE OF smoexrrobj,      gs_exrrobj TYPE smoexrrobj.DATA: ls_extr            TYPE smoeextr1.DATA: ls_rotype          TYPE t_rotype.DATA: lt_rotype          TYPE STANDARD TABLE OF t_rotype.DATA: lt_exrrobj_act     TYPE STANDARD TABLE OF smoexrrobj.DATA: lt_sites_inact_buf TYPE smohsitearrus.DATA: lt_ro_extbuf       TYPE STANDARD TABLE OF smoexrrtab.DATA: lt_extr            TYPE STANDARD TABLE OF smoeextr1.DATA: lv_extract         TYPE smo_flag.DATA: lv_tabix           TYPE sytabix.PARAMETERS: p_repobj type smohrepobj-shortname OBLIGATORY,            p_activ TYPE smo_flag AS CHECKBOX,            p_test AS CHECKBOX DEFAULT 'X'.SELECT-OPTIONS: s_siteid FOR smohsiteid-site_id NO INTERVALS.SELECTION-SCREEN SKIP.SELECTION-SCREEN BEGIN OF LINE.SELECTION-SCREEN COMMENT (50) text-001.SELECTION-SCREEN END OF LINE.start-of-selection.SELECT mandt site_id INTO TABLE gt_exrrobj FROM smohsiteidWHERE site_id IN s_siteidAND sitetypeid = 'SMW1'AND inactive = space.LOOP AT gt_exrrobj INTO gs_exrrobj.  WRITE:/ gs_exrrobj-site_id.  MOVE p_repobj TO gs_exrrobj-shortname.  MODIFY gt_exrrobj FROM gs_exrrobj INDEX sy-tabix.ENDLOOP.IF gt_exrrobj[] IS NOT INITIAL    AND p_test IS INITIAL    AND p_activ IS INITIAL.  CALL FUNCTION 'SMOE_DEACTIVATE_REPOBJ'    EXPORTING      pin_objlist  = gt_exrrobj      pin_activate = p_activ.  COMMIT WORK.  WRITE:/ 'DONE!'.ENDIF.IF NOT gt_exrrobj[] IS INITIAL   AND p_test IS INITIAL   AND p_activ = 'X'.  FREE lt_rotype.*       Update SMOEXRROBJ with the collected list*       of 'Active' Replication Objects.  CALL FUNCTION 'SMOE_DEACTIVATE_REPOBJ'    EXPORTING      pin_objlist  = gt_exrrobj      pin_activate = 'X'.*       Collect the rotype of the replication objects.  SELECT shortname rotype    FROM smohrepobj    INTO TABLE lt_rotype     FOR ALL ENTRIES IN gt_exrrobj   WHERE shortname = gt_exrrobj-shortname.  SORT gt_exrrobj BY site_id.  lt_exrrobj_act = gt_exrrobj.  DELETE ADJACENT DUPLICATES FROM lt_exrrobj_act    COMPARING site_id.*       Create buffer to check whether site is inactive.  SELECT site_id    INTO TABLE lt_sites_inact_buf    FROM smoexrrsit     FOR ALL ENTRIES IN lt_exrrobj_act   WHERE site_id = lt_exrrobj_act-site_id.  SORT lt_sites_inact_buf.*       Create buffer to check whether extract for*       RO has to be done.  SELECT *    INTO TABLE lt_ro_extbuf    FROM smoexrrtab     FOR ALL ENTRIES IN gt_exrrobj   WHERE site_id   = gt_exrrobj-site_id     AND shortname = gt_exrrobj-shortname.  SORT lt_ro_extbuf BY site_id shortname.*       Create extract list.  FREE lt_extr.  LOOP AT gt_exrrobj INTO gs_exrrobj.    lv_tabix = sy-tabix.    CLEAR: ls_rotype.    CLEAR: ls_extr.*         Check whether extract for RO has to be done.    READ TABLE lt_ro_extbuf TRANSPORTING NO FIELDS           WITH KEY site_id   = gs_exrrobj-site_id                    shortname = gs_exrrobj-shortname           BINARY SEARCH.    IF sy-subrc = 0.*           Check whether site is inactive.      READ TABLE lt_sites_inact_buf TRANSPORTING NO FIELDS             WITH KEY table_line = gs_exrrobj-site_id             BINARY SEARCH.      IF sy-subrc <> 0.*             Add to extract list.        READ TABLE lt_rotype INTO ls_rotype                WITH KEY shortname = gs_exrrobj-shortname.        ls_extr-site_id   = gs_exrrobj-site_id.        ls_extr-shortname = gs_exrrobj-shortname.        ls_extr-rotype    = ls_rotype-rotype.        APPEND ls_extr TO lt_extr.      ELSE.        DELETE gt_exrrobj INDEX lv_tabix.      ENDIF.    ELSE.      DELETE gt_exrrobj INDEX lv_tabix.    ENDIF.  ENDLOOP.*       Update table where AC-Extract jobs for inactve*       sites/RO's are collected.  DELETE smoexrrtab FROM TABLE gt_exrrobj.*       Create an AC-Extract for the activated Replication object.  CALL FUNCTION 'SMOE_AC_EXTRACT'    EXPORTING      iv_no_inact_sites_check = space      iv_no_inact_ro_check    = 'X'    IMPORTING*          O_RETURN                  =      o_extract               = lv_extract     TABLES       it_extr                = lt_extr.  IF NOT lv_extract IS INITIAL.    COMMIT WORK.    "lv_saved = 'X'.    "endif.    "if not lv_saved is initial.    "MESSAGE s393(smoe_message) WITH text-210.    write:/ 'AC Extracts sent!'.  ENDIF.  write:/ 'DONE!'.ENDIF.*     Release resources.FREE: gt_exrrobj.*************************************************************************  F4 Helps************************************************************************  DATA: progname        TYPE sy-repid,        dynnum          TYPE sy-dynnr,        dynfield        TYPE help_info-dynprofld,        f4_fieldtab     TYPE TABLE OF dfies          WITH HEADER LINE,        f4_dynpfld      TYPE TABLE OF dselc          WITH HEADER LINE,        f4_returntab    TYPE TABLE OF ddshretval     WITH HEADER LINE.  DATA: f4_repobj       TYPE TABLE OF smohrepobj.  DATA: f4_siteid       TYPE TABLE OF smohsiteid.  DATA: f4_sprvdr       TYPE TABLE OF smw1sprvdr.  Data:      ls_repobj       TYPE smohrepobj.AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_repobj.* reset tables  REFRESH f4_fieldtab.    CLEAR f4_fieldtab.  REFRESH f4_dynpfld.     CLEAR f4_dynpfld.  REFRESH f4_returntab.   CLEAR f4_returntab.* init  progname = sy-repid.  dynnum   = sy-dynnr.  dynfield = 'P_REPOBJ'.  READ TABLE f4_repobj INDEX 1 TRANSPORTING NO FIELDS.  IF sy-subrc <> 0.    CLEAR ls_repobj.    ls_repobj-rotype = 'I'.    ls_repobj-smoactv = 'X'.    APPEND ls_repobj TO f4_repobj.    ls_repobj-rotype = 'B'.    ls_repobj-smoactv = 'X'.    APPEND ls_repobj TO f4_repobj.    ls_repobj-rotype = 'D'.    ls_repobj-smoactv = 'X'.    APPEND ls_repobj TO f4_repobj.    CALL FUNCTION 'SMOE_REPOBJ_SEL'      TABLES        io_smohrepobj = f4_repobj.    SORT f4_repobj AS TEXT BY shortname.    CLEAR ls_repobj.  ENDIF.* structure of hitlist  f4_fieldtab-tabname   = 'SMOHREPOBJ'.  f4_fieldtab-fieldname = 'SHORTNAME'.  APPEND f4_fieldtab.  f4_fieldtab-tabname   = 'SMOHREPOBJ'.  f4_fieldtab-fieldname = 'SHORT_ID'.  APPEND f4_fieldtab.  f4_fieldtab-tabname   = 'SMOHREPOBJ'.  f4_fieldtab-fieldname = 'ROTYPE'.  APPEND f4_fieldtab.* F4-Help  CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'    EXPORTING      retfield        = 'SHORTNAME'      dynpprog        = progname      dynpnr          = dynnum      dynprofield     = dynfield      value_org       = 'S'    TABLES      field_tab       = f4_fieldtab      value_tab       = f4_repobj      return_tab      = f4_returntab      dynpfld_mapping = f4_dynpfld.

Please add text element 001

"Attention, Relication Object is not checked! "

For the selection texts, you can use the dictionary defaults for s_siteid and p_repobj and use "Testmode" for p_test and "Activate" for p_activ.

Some remarks

 This report was written "overnight", as a quick solution for dealing with more than 500 mobiles out in the world. As usual, there can be no guaranty, that it works for you.

The report will not check if the repobject makes any sense for the client. so this is your part, but as a experienced smoeac user, you won't have any problem with this.

Please also note, that this is my first sdn blog, so, it might be, that this is not perfect in in any sense 🙂 But I hope to save some hours of other mobile admins...