Reg: Calling an ecatt script in R/3 function module

Question

Dear Freinds
Can Anyone of you tell me if an ecatt script can be called inside an r/3 function module.
if yes, please explaion me how it can be done.
If you have any example code it will be quite useful for me.
Points will be rewarded for suitable answers.
With Warm Regards
Ravishankar Vembu

Answer 1

Hello Ravishankar
The following sample report <b>ZUS_SDN_ECATT_EXECUTE</b> shows how to execute an eCATT testcript using its default parameter values.
*& Report  ZUS_SDN_ECATT_EXECUTE
REPORT  ZUS_SDN_ECATT_EXECUTE.
data:
  gt_execute    type ETEXE_OBJ_TABTYPE,
  gs_execute    type etexe_obj.
start-of-selection.
  gs_execute-start_lnr = '1'.
  gs_execute-obj_lnr   = '1'.
  gs_execute-obj_type  = 'ECSC'.  " test script
  gs_execute-obj_name  = '<name of your testscript>'.
  gs_execute-obj_ver   = '1'.
  gs_execute-sysdata   = '<name of system data container>'.
  gs_execute-testsystem = '<test system>'.
  append gs_execute to gt_execute.
  CALL FUNCTION 'ECATT_EXECUTE'
    EXPORTING
      TO_EXECUTE                       = gt_execute
      DISPLAY_LOG                      = 'X'
*     LOG_TXT                          = ' '
*     DISPLAY_START_POPUP              = ' '
*     START_PROFIL                     =
*     START_PROFIL_X                   =
*     WBMANAGER_ACTIVE                 = ' '
*     EXIT_STATUS_UPDATE               = ' '
*     HTTP_TRANSID                     = ' '
*     I_SUPRESS_OUTPUT                 = ' '
*     IT_VAR_TO_EXEC                   =
*     I_PAR_VAR_DISPLAYED              =
*     IT_VAR_EXT                       =
*     IT_CALLER                        =
*     IS_TZEXECDATA                    =
*   IMPORTING
*     EXECUTED                         =
*     LOGID                            =
*     LOG_DISPLAYED                    =
*     TRACE_PROT                       =
*     E_RESULT_XML                     =
*     ET_RESULT_XML_ERR_MESSAGES       =
    EXCEPTIONS
      NOTHING_TO_DO                    = 1
      TOO_MANY_SCRIPTS_CALLED          = 2
      OTHERS                           = 3.
  IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
end-of-selection.
Regards
  Uwe