Table of Contents
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.
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”.
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:
- CDHDR object class list
- Cdpos and Cdhdr table in SAP
- F4IF_INT_TABLE_VALUE_REQUEST search help
- Program To Upload File In Al11 In SAP ABAP
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”