*---- sy-uname = DDIC, sy-mandt = '000', asynchronous execution
DATA: lv_old_bex_request TYPE trkorr,
lv_new_bex_request TYPE trkorr.
CHECK sy-sysid = 'SBQ'. "restrict execution to only your DEV system here
CALL FUNCTION 'RSCC_RSADM_ACC'
EXPORTING
fieldname = rs_c_rsadmin-bex_request
action = rs_c_actionadm-sel
CHANGING
adminvalue = lv_old_bex_request
EXCEPTIONS
OTHERS = 1.
IF sy-subrc = 0.
IF lv_old_bex_request IS INITIAL.
CALL FUNCTION 'CTS_API_CREATE_CHANGE_REQUEST'
EXPORTING
description = CONV text60( |{ sy-datum(4) }{ sy-datum+4(2) } Standard BEx request| )
category = 'K' "Workbench
client = '010'
owner = 'DKLE'
IMPORTING
request = lv_new_bex_request.
IF lv_new_bex_request IS NOT INITIAL.
CALL FUNCTION 'RSCC_RSADM_ACC'
EXPORTING
fieldname = rs_c_rsadmin-bex_request
action = rs_c_actionadm-upd
CHANGING
adminvalue = lv_new_bex_request
EXCEPTIONS
OTHERS = 1.
ENDIF.
ENDIF.
ENDIF.
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.
User | Count |
---|---|
8 | |
5 | |
5 | |
4 | |
4 | |
4 | |
4 | |
4 | |
3 | |
3 |