请求批量附加

*&---------------------------------------------------------------------*
*& Report  ZZSTMS_IMPORT_TRANS
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT ZZSTMS_IMPORT_TRANS.

TABLES:tmsbuffer.

DATA:iv_request TYPE tmsbuffer-trkorr,
      iv_target  TYPE tmscsys-sysnam,
      iv_tardom  TYPE tmscsys-domnam.

SELECT-OPTIONS:s_reqst FOR tmsbuffer-trkorr.
PARAMETERS:p_target TYPE tmscsys-sysnam DEFAULT 'PRD',
           p_tardom TYPE tmscsys-domnam DEFAULT 'DOMAIN_DEV'.

START-OF-SELECTION.

  PERFORM frm_process.

*&---------------------------------------------------------------------*
*&      Form  FRM_PROCESS
*&---------------------------------------------------------------------*
*       执行add动作
*----------------------------------------------------------------------*
FORM frm_process .
  LOOP AT s_reqst.
    CALL FUNCTION 'TMS_MGR_FORWARD_TR_REQUEST'
    EXPORTING
      iv_request                       = s_reqst-low
      iv_target                        = p_target
      iv_tardom                        = p_tardom
*       IV_TARCLI                        =
*       IV_SOURCE                        =
      iv_srcdom                        = p_tardom
*       IV_NO_DELIVERY                   =
*       IV_WRONG_POS                     =
      iv_import_again                  = 'X'
*       IV_MONITOR                       = 'X'
*       IV_VERBOSE                       =
*       IT_REQUESTS                      =
*     IMPORTING
*       EV_DIFFERENT_GROUPS              =
*       EV_TP_RET_CODE                   =
*       EV_TP_ALOG                       =
*       EV_TP_SLOG                       =
*       EV_TP_PID                        =
*       ES_EXCEPTION                     =
*       ET_TP_FORWARDS                   =
*     TABLES
*       TT_STDOUT                        =
    EXCEPTIONS
      read_config_failed               = 1
      table_of_requests_is_empty       = 2
      OTHERS                           = 3
      .
    IF sy-subrc <> 0.
      WRITE:/ s_reqst-low , 'ERROR' .
    ELSE.
      WRITE:/ s_reqst-low , 'SUCESS' .
    ENDIF.
  ENDLOOP.

ENDFORM.                    " FRM_PROCESS