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
|
||||
|
||||
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
|
||||
|
||||
METHOD lif_object~compare_to_remote_version.
|
||||
|
|
Loading…
Reference in New Issue
Block a user