BDC

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.