Re: Write-back on different models

Hi,

Following coding like template for write back process.

DATA : LS_USER TYPE UJ0_S_USER.
DATA:  LO_CONTEXT TYPE REF TO cl_uj_context,
            REF_WB TYPE REF TO IF_UJO_WRITE_BACK ,
            WB_STATUS TYPE UJO_S_WB_STATUS,
            REF_USER TYPE REF TO CL_UJ_CONTEXT,
            lV_query     TYPE REF TO if_ujo_query,
            LO_ERROR TYPE REF TO DATA,
            LO_APPL TYPE REF TO CL_UJA_APPLICATION.

FIELD-SYMBOLS : <WB_RECORD> TYPE STANDARD TABLE,
                               <FS_LT_ERROR> TYPE STANDARD TABLE.

CREATE OBJECT LO_APPL
        EXPORTING
          I_APPSET_ID      = <Appset Name>
          I_APPLICATION_ID = <Application Name>
*        IF_ADMIN         =  ABAP_FALSE      .

    IF SY-SUBRC EQ 0.
      lo_context ?= cl_uj_context=>get_cur_context( ).
      LS_USER-USER_ID = <Admin user name>.

*CREATE OBJECT REF_WB.
      TRY.
          CALL METHOD CL_UJ_CONTEXT=>SET_CUR_CONTEXT
            EXPORTING
              I_APPSET_ID   = <Appset Name>
              IS_USER       = LS_USER
              I_APPL_ID     = <Application Name>
              I_MODULE_NAME = LO_CONTEXT->D_CALLING_MODULE
*             I_CLIENT      =
*             I_PROTOCOL    =
            .
        CATCH CX_UJ_OBJ_NOT_FOUND .
      ENDTRY.
      IF SY-SUBRC EQ 0.
        create data lo_error like Ct_ARRAY.
        assign lo_error->* to <FS_LT_ERROR>.

        CALL METHOD CL_UJO_WB_FACTORY=>CREATE_WRITE_BACK
*    EXPORTING
*      IV_IMPL       =
          RECEIVING
            RO_WRITE_BACK = REF_WB
            .
        IF SY-SUBRC EQ 0.
*    ENDIF.
          TRY.
              CALL METHOD REF_WB->WRITE_BACK
                EXPORTING
                  I_APPSET_ID      = <Appset Name>
                  I_APPL_ID        = <Application Name>
*                 IS_WB_PARAM      =
                  IT_RECORDS       = CT_ARRAY
                IMPORTING
                  ES_WB_STATUS     = WB_STATUS
                  ET_ERROR_RECORDS = <FS_LT_ERROR>
                  ET_MESSAGE       = ET_MESSAGE.
            CATCH CX_UJO_WRITE_BACK .
            CATCH CX_UJ_STATIC_CHECK .
          ENDTRY.

Please follow all above steps.

Hope it helps!

Thanks,

Suresh