用BDC技术打开ABAP Netweaver的SE24事务码

REPORT zopen_func_class.

PARAMETERS: id TYPE if_fdt_types=>id OBLIGATORY DEFAULT '3440B5B172DE1ED48BE66B75D1D603E9'.
DATA: bdcdata_tab  TYPE TABLE OF bdcdata,
      opt          TYPE ctu_params,
      ls_entry     TYPE fdt_cc_0000,
      bdcdata_line TYPE bdcdata.

START-OF-SELECTION.

SELECT SINGLE * INTO ls_entry FROM fdt_cc_0000 WHERE id = id.
IF sy-subrc <> 0.
   WRITE: / 'this function does not have a valid generated class'.
   RETURN.
ENDIF.

bdcdata_line-program = 'SAPLSEOD'.
bdcdata_line-dynpro = '1000'.
bdcdata_line-dynbegin = 'X'.
APPEND bdcdata_line TO bdcdata_tab.

CLEAR: bdcdata_line.

bdcdata_line-fnam = 'BDC_CURSOR'.
bdcdata_line-fval = 'SEOCLASS-CLSNAME'.
APPEND bdcdata_line TO bdcdata_tab.

CLEAR: bdcdata_line.
bdcdata_line-fnam = 'BDC_OKCODE'.
bdcdata_line-fval = '=WB_DISPLAY'.
APPEND bdcdata_line TO bdcdata_tab.

CLEAR: bdcdata_line.
bdcdata_line-fnam = 'SEOCLASS-CLSNAME'.
bdcdata_line-fval = ls_entry-obj_name.
APPEND bdcdata_line TO bdcdata_tab.

opt-dismode = 'E'.
opt-defsize = 'X'.

CALL TRANSACTION 'SE24' USING bdcdata_tab  OPTIONS FROM opt.

要获取更多Jerry的原创文章,请关注公众号"汪子熙":

发布了6327 篇原创文章 · 获赞 617 · 访问量 99万+

猜你喜欢

转载自blog.csdn.net/i042416/article/details/103967080
BDC