mirror of
https://github.com/abapGit/abapGit.git
synced 2025-05-01 12:20:51 +08:00
add SICF jump
This commit is contained in:
parent
28b5842d8f
commit
258414aba6
|
@ -419,7 +419,39 @@ CLASS lcl_object_sicf IMPLEMENTATION.
|
||||||
ENDMETHOD. "delete
|
ENDMETHOD. "delete
|
||||||
|
|
||||||
METHOD lif_object~jump.
|
METHOD lif_object~jump.
|
||||||
lcx_exception=>raise( 'todo, SICF, jump' ).
|
|
||||||
|
DATA: ls_bcdata TYPE bdcdata,
|
||||||
|
lt_bcdata TYPE STANDARD TABLE OF bdcdata.
|
||||||
|
|
||||||
|
ls_bcdata-program = 'RSICFTREE'.
|
||||||
|
ls_bcdata-dynpro = '1000'.
|
||||||
|
ls_bcdata-dynbegin = 'X'.
|
||||||
|
APPEND ls_bcdata TO lt_bcdata.
|
||||||
|
|
||||||
|
ls_bcdata-dynpro = space.
|
||||||
|
ls_bcdata-dynbegin = space.
|
||||||
|
ls_bcdata-fnam = 'ICF_SERV'.
|
||||||
|
ls_bcdata-fval = ms_item-obj_name.
|
||||||
|
APPEND ls_bcdata TO lt_bcdata.
|
||||||
|
|
||||||
|
ls_bcdata-fnam = 'BDC_OKCODE'.
|
||||||
|
ls_bcdata-fval = '=ONLI'.
|
||||||
|
APPEND ls_bcdata TO lt_bcdata.
|
||||||
|
|
||||||
|
CALL FUNCTION 'ABAP4_CALL_TRANSACTION'
|
||||||
|
STARTING NEW TASK 'GIT'
|
||||||
|
EXPORTING
|
||||||
|
tcode = 'SICF'
|
||||||
|
mode_val = 'E'
|
||||||
|
TABLES
|
||||||
|
using_tab = lt_bcdata
|
||||||
|
EXCEPTIONS
|
||||||
|
OTHERS = 1.
|
||||||
|
|
||||||
|
IF sy-subrc <> 0.
|
||||||
|
lcx_exception=>raise( 'error from ABAP4_CALL_TRANSACTION, SICF' ).
|
||||||
|
ENDIF.
|
||||||
|
|
||||||
ENDMETHOD. "jump
|
ENDMETHOD. "jump
|
||||||
|
|
||||||
METHOD lif_object~compare_to_remote_version.
|
METHOD lif_object~compare_to_remote_version.
|
||||||
|
|
Loading…
Reference in New Issue
Block a user