How to update standard Transaction table in SAP | update database table in sap abap without update Command | RSDU_TABLE_UPDATE_SYB

How to Update Standard Transaction Table in SAP.

Sometime we need to update our standard table from our program, for that we have many ways like write update query and directly we can update our table or modify from work area but the safest way to update standard table is using standard function “RSDU_TABLE_UPDATE_SYB“. and WIll know How to update standard Transaction table in SAP, update database table in sap abap without update Command, RSDU_TABLE_UPDATE_SYB

In this below program example we will see how standard table update from this “RSDU_TABLE_UPDATE_SYB” standard function.

How to update standard Transaction table in SAP

To use this function “RSDU_TABLE_UPDATE_SYB” we will declare variable for exporting and importing in the function which is type table of “RSDU_T_RECORD” and work area which is ” RSDU_S_RECORD”.

How to update standard Transaction table in SAP
update standard table is using standard function
update standard table is using standard function

program How to update standard Transaction table in SAP

*&---------------------------------------------------------------------*
*& Report  ZMCCS_UPD_VENDOR
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT zmccs_upd_vendor.
TABLES : lfa1, adr6.

TYPES : BEGIN OF ty_log,
          lifnr TYPE lfa1-lifnr,
          msg   TYPE string,
        END OF ty_log.

DATA: it_set   TYPE rsdu_t_record,
      it_where TYPE rsdu_t_record,
      xt_set   TYPE rsdu_s_record.

DATA : it_fcat   TYPE slis_t_fieldcat_alv,
       wa_fcat   TYPE slis_fieldcat_alv,
       wa_layout TYPE slis_layout_alv.

DATA : it_log TYPE TABLE OF ty_log,
       wa_log TYPE            ty_log.

TYPE-POOLS:rsdu.

SELECTION-SCREEN : BEGIN OF BLOCK b2 WITH FRAME TITLE text-002.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS: p_del RADIOBUTTON GROUP r1 DEFAULT 'X' USER-COMMAND rd.
SELECTION-SCREEN COMMENT (20) FOR FIELD p_del.
PARAMETERS:p_ins RADIOBUTTON GROUP r1.
SELECTION-SCREEN COMMENT (20) FOR FIELD p_ins.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN: END OF BLOCK b2.

SELECTION-SCREEN: BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
SELECT-OPTIONS: s_lifnr FOR lfa1-lifnr NO INTERVALS MODIF ID pd.
PARAMETERS: p_file TYPE rlgrap-filename MODIF ID ins.

SELECTION-SCREEN: END OF BLOCK b1.

AT SELECTION-SCREEN OUTPUT.

  LOOP AT SCREEN.

    IF p_del = 'X'.
      IF screen-group1 = 'INS'.
*        p_file = 'abc.'.
        screen-invisible = '1'.
        screen-active = '0'.
        screen-input = '0'.
      ENDIF.
    ELSEIF p_ins = 'X'.
      IF screen-group1 = 'PD'.
*        s_lifnr = 'abc'.
        screen-invisible = '1'.
        screen-active = '0'.
        screen-input = '0'.
      ENDIF.
    ENDIF.
    MODIFY SCREEN.
  ENDLOOP.



START-OF-SELECTION.

  SELECT * FROM lfa1 INTO TABLE @DATA(it_lfa1) WHERE lifnr IN @s_lifnr.

  IF it_lfa1 IS NOT INITIAL.

    SELECT * FROM adr6 INTO TABLE @DATA(it_adr6)
      FOR ALL ENTRIES IN @it_lfa1
      WHERE addrnumber = @it_lfa1-adrnr.
    IF it_adr6 IS NOT INITIAL.

      LOOP AT it_adr6 INTO DATA(wa_adr6).

        READ TABLE it_lfa1 INTO DATA(wa_lfa1) WITH KEY adrnr = wa_adr6-addrnumber.

        IF wa_adr6-smtp_addr = 'einfonet.in'
          OR wa_adr6-smtp_addr = 'einfonet.IN'
          AND wa_adr6-persnumber IS INITIAL.

          xt_set-fieldnm = 'SMTP_ADDR'.
          xt_set-chavl = ''.
          xt_set-quote = 'X'.
          APPEND xt_set TO it_set.

          xt_set-fieldnm = 'SMTP_SRCH'.
          xt_set-chavl = ''.
          xt_set-quote = 'X'.
          APPEND xt_set TO it_set.

          xt_set-fieldnm = 'ADDRNUMBER'.
          xt_set-chavl = wa_adr6-addrnumber.
          xt_set-quote = 'X'.
          APPEND xt_set TO it_where.

          CALL FUNCTION 'RSDU_TABLE_UPDATE_SYB'
            EXPORTING
              i_tablnm        = 'ADR6'
              i_t_set         = it_set
              i_t_where       = it_where
*        IMPORTING
*             E_SQLERR        =
*        CHANGING
*             C_PROCESSED     = RS_C_FALSE
            EXCEPTIONS
              sql_error       = 1
              duplicate_error = 2
              not_found       = 3
              OTHERS          = 4.
          CLEAR it_where[].
          CLEAR it_set[].

          IF sy-subrc <> 0.
* Implement suitable error handling here
            wa_log-lifnr = wa_lfa1-lifnr.
            wa_log-msg = 'Error Occured'.
            APPEND wa_log TO it_log.
            CLEAR wa_log.
*          WRITE :/ 'Error Occured'.
          ELSE.
            wa_log-lifnr = wa_lfa1-lifnr.
            wa_log-msg = 'Success!!'.
            APPEND wa_log TO it_log.
            CLEAR wa_log.
*          WRITE :/ 'Success!!'.
          ENDIF.

        ELSEIF wa_adr6-smtp_addr = 'einfonet.in'
        OR wa_adr6-smtp_addr = 'einfonet.in'
        AND wa_adr6-persnumber IS NOT INITIAL.

          wa_log-lifnr = wa_lfa1-lifnr.
          wa_log-msg = 'Person number exist.'.
          APPEND wa_log TO it_log.
          CLEAR wa_log.

*        MESSAGE 'Person number exist.' TYPE 'E'.

        ELSEIF wa_adr6-smtp_addr NE 'einfonet.in'
          OR wa_adr6-smtp_addr = 'EINFONET.IN'.

          wa_log-lifnr = wa_lfa1-lifnr.
          wa_log-msg = 'einfonet.in is not exsting id.'.
          APPEND wa_log TO it_log.
          CLEAR wa_log.
*        MESSAGE 'einfonet.in is not exsting id' TYPE 'E'.

        ENDIF.
        CLEAR: wa_adr6, wa_lfa1.
      ENDLOOP.

    ELSEIF it_adr6 IS INITIAL.
*
*    wa_log-linfr = wa_lfa1-lifnr.
*    wa_log-msg = 'Check vendor detail.'.
*    APPEND wa_log TO it_log.
*    CLEAR wa_log.
      MESSAGE 'Check vendor detail.' TYPE 'E'.

    ENDIF.

  ELSEIF it_lfa1 IS INITIAL.
    MESSAGE 'Check vendor detail/ No mail id exist.' TYPE 'E'.
  ENDIF.


  REFRESH it_fcat.
  CLEAR: wa_layout, wa_fcat.

  wa_fcat-fieldname = 'LIFNR'.
  wa_fcat-seltext_l = 'Vendor'.
  APPEND wa_fcat TO it_fcat.
  CLEAR wa_fcat.

  wa_fcat-fieldname = 'MSG'.
  wa_fcat-seltext_l = 'Status Message'.
  APPEND wa_fcat TO it_fcat.
  CLEAR wa_fcat.

  wa_layout-colwidth_optimize = 'X'.
  wa_layout-zebra = 'X'.

  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      i_callback_program = sy-repid
*     I_CALLBACK_TOP_OF_PAGE            = ' '
      is_layout          = wa_layout
      it_fieldcat        = it_fcat
    TABLES
      t_outtab           = it_log
* EXCEPTIONS
*     PROGRAM_ERROR      = 1
*     OTHERS             = 2
    .
  IF sy-subrc <> 0.
* Implement suitable error handling here
  ENDIF.

You May Also Like:

For the next blog please connect with us and follow us on twitter.com/einfonett

1 thought on “How to update standard Transaction table in SAP | update database table in sap abap without update Command | RSDU_TABLE_UPDATE_SYB”

Leave a Comment

%d bloggers like this: