TC:SHDB
复制到应用处并更改参数。
附上部分代码
* Batchinputdata of single transaction
DATA: bdcdata LIKE bdcdata OCCURS 0 WITH HEADER LINE.
* messages of call transaction
DATA: messtab LIKE bdcmsgcoll OCCURS 0 WITH HEADER LINE.
* INCLUDE LZFG_GTM_XSJSDD... " Local class definition
DATA: gw_dismode LIKE ctu_params-dismode VALUE 'N',"'Y'
gw_updmode LIKE ctu_params-updmode VALUE 'L'.
DATA opt TYPE ctu_params.
CLEAR GT_BDCDATA. "循环调用要清空内表.
CALL TRANSACTION 'VKM4' USING bdcdata "VKM4 为所录屏幕TC.
MODE gw_dismode
UPDATE gw_updmode
MESSAGES INTO messtab.
*报错消息获取:
READ TABLE messtab WITH KEY msgtyp = 'E'.
IF sy-subrc = 0.
CALL FUNCTION 'MESSAGE_TEXT_BUILD'
EXPORTING
msgid = messtab-msgid
msgnr = messtab-msgnr
msgv1 = messtab-msgv1
msgv2 = messtab-msgv2
msgv3 = messtab-msgv3
msgv4 = messtab-msgv4
IMPORTING
message_text_output = wa_return-message.
wa_return-type = 'E'.
APPEND wa_return TO it_return.
CLEAR wa_return.
ELSE.
wa_return-type = 'S'.
wa_return-message = lw_input-pernr && ':' && '执行成功'.
APPEND wa_return TO it_return.
CLEAR wa_return.
ENDIF.
FORM bdc_dynpro USING program dynpro.
CLEAR bdcdata.
bdcdata-program = program.
bdcdata-dynpro = dynpro.
bdcdata-dynbegin = 'X'.
APPEND bdcdata.
ENDFORM.
*----------------------------------------------------------------------*
* Insert field *
*----------------------------------------------------------------------*
FORM bdc_field USING fnam fval.
CLEAR bdcdata.
bdcdata-fnam = fnam.
bdcdata-fval = fval.
APPEND bdcdata.
ENDFORM.