SAP Reports / Programs | Basis Components | Security | ABAP Authorization and Role Management(BC-SEC-AUT-PFC) SAP BC

comments icon Comments

MSCUAF01 SAP ABAP INCLUDE - documentation and ABAP source code







MSCUAF01 is a standard ABAP INCLUDE available within your SAP system (depending on your version and release level). Below is the basic information available for this SAP report including which OBJECTS it interacts with such as TABLES, FUNCTION MODULES, INCLUDES ETC. Also check out the submitted Comments related to this SAP report or see any standard documentation available.

If you would like to execute this report or see the full code listing simply enter MSCUAF01 into the relevant SAP transactions such as SE38 or SE80


ABAP code to call this SAP report using the submit statement

This report can be called from another progam/report simply by using the ABAP SUBMIT statement, see below for example ABAP code snipts of how to do this.






SUBMIT MSCUAF01. "Basic submit
SUBMIT MSCUAF01 AND RETURN. "Return to original report after report execution complete
SUBMIT MSCUAF01 VIA SELECTION-SCREEN. "Display selection screen of submitted report to user
    See more syntax options for the ABAP SUBMIT statement


INCLUDES used within this REPORT MSCUAF01

No INCLUDES are used within this REPORT code!


TABLES used within REPORT and the associated SELECT statement:





No SAP DATABASE tables are accessed within this REPORT code!


Function Modules used within report and the associated call statement:

ICON_CREATE
  call function 'ICON_CREATE'
    exporting
      name                  = ld_icon
      info                  = ld_tooltip
      add_stdinf            = space
    importing
      result                = gd_uszbvlndrc_tc1-rfc_status
    exceptions
      icon_not_found        = 1
      outputfield_too_short = 2
      others                = 3.

STC1_GET_DATA
  call function 'STC1_GET_DATA'
    exporting
      tab_handle      = gd_handle_change
    tables
      table           = gt_uszbvlndrc_tc1
    exceptions
      table_not_found = 1
      others          = 2.

BALW_BAPIRETURN_GET2
    call function 'BALW_BAPIRETURN_GET2'
      exporting
        type   = 'W'
        cl     = '01'
        number = '559'
      importing
        return = ls_msglog.

SUSR_DISPLAY_LOG
    call function 'SUSR_DISPLAY_LOG'
      exporting
        display_in_popup = 'X'
        log_title        = 'Complete saving of CUA not possible'(115) "#EC TEXT_DIFF
      tables
        it_log_bapiret2  = lt_msglog[]
      exceptions
        others           = 0.

SCUA_GEN_GENERATE_ALE_LAND
  call function 'SCUA_GEN_GENERATE_ALE_LAND'
    exporting
      if_uszbvlndsc   = save_uszbvlndsc
      bapilink        = save_usbapilink-bapilink
    tables
      it_uszbvlndrc   = lt_uszbvlndrc
    exceptions
      landscape_error = 1
      others          = 2.

SUSR_ZBV_LOCAL_ACTGRPS_SAVE
      call function 'SUSR_ZBV_LOCAL_ACTGRPS_SAVE'
        in background task
        exporting
          tcode = sy-tcode.

SUSR_ZBV_LOCAL_PROFILES_SAVE
      call function 'SUSR_ZBV_LOCAL_PROFILES_SAVE'
        in background task
        exporting
          tcode = sy-tcode.

SUSR_ZBV_FLD_TO_DB
      call function 'SUSR_ZBV_FLD_TO_DB'
        exporting
          custmodel            = save_usbapilink-bapilink
          new_cua_installation = 'X'
        tables
          it_usrfldtsel        = lt_usrfldtsel.

BALW_BAPIRETURN_GET2
    call function 'BALW_BAPIRETURN_GET2'
      exporting
        type   = 'I'
        cl     = '01'
        number = '377'
        par1   = msgpar1
      importing
        return = l_bapiret2.

MODEL_DISTRIBUTE
    call function 'MODEL_DISTRIBUTE'
      exporting
        custmodel = g_bapilink
      tables
        lsys      = lt_logsys
        log       = lt_log.

BALW_BAPIRETURN_GET2
        call function 'BALW_BAPIRETURN_GET2'
          exporting
            type   = msgtype
            cl     = '00'
            number = msgnumber
            par1   = msgpar1
            par2   = msgpar2
          importing
            return = l_bapiret2.

BALW_BAPIRETURN_GET2
    call function 'BALW_BAPIRETURN_GET2'
      exporting
        type   = msgtype
        cl     = '01'
        number = msgnumber
        par1   = msgpar1
      importing
        return = l_bapiret2.

SCUA_GEN_GENERATE_PARTNER
    call function 'SCUA_GEN_GENERATE_PARTNER'
      destination l_uszbvidoct-rcvsystem
      exporting
        modelname             = g_bapilink
      exceptions
        system_failure        = 1  message msgtext1
        communication_failure = 2  message msgtext1
        others.

EDI_AGREE_PARTNER_READ
    call function 'EDI_AGREE_PARTNER_READ'
      destination l_uszbvidoct-rcvsystem
      exporting
        rec_edkp1             = l_edkp1
      exceptions
        db_error              = 1
        entry_not_exist       = 2
        system_failure        = 3  message msgtext2
        communication_failure = 4  message msgtext2
        others.

BALW_BAPIRETURN_GET2
          call function 'BALW_BAPIRETURN_GET2'
            exporting
              type   = 'W'
              cl     = '01'
              number = '378'
              par1   = msgpar1
              par2   = msgpar2
              par3   = msgpar3
            importing
              return = l_bapiret2.

BALW_BAPIRETURN_GET2
        call function 'BALW_BAPIRETURN_GET2'
          exporting
            type   = 'W'
            cl     = '01'
            number = '378'
            par1   = msgpar1
            par2   = msgpar2
            par3   = msgpar3
          importing
            return = l_bapiret2.

BALW_BAPIRETURN_GET2
          call function 'BALW_BAPIRETURN_GET2'
            exporting
              type   = 'W'
              cl     = '01'
              number = '378'
              par1   = msgpar1
              par2   = msgpar2
              par3   = msgpar3
            importing
              return = l_bapiret2.

BALW_BAPIRETURN_GET2
          call function 'BALW_BAPIRETURN_GET2'
            exporting
              type   = 'W'
              cl     = '01'
              number = '374'
              par1   = msgpar1
            importing
              return = l_bapiret2.

SUSR_ZBV_CLEAR_BUFFER
















    call function 'SUSR_ZBV_CLEAR_BUFFER'.

SUSR_ZBV_LANDSCAPE_SEND
    call function 'SUSR_ZBV_LANDSCAPE_SEND'
      tables
        it_idoctypes = lt_uszbvidoct
        it_bapiret2  = lt_bapiret2
      exceptions
        rfc_failure  = 0
        others       = 0.

BALW_BAPIRETURN_GET2
      call function 'BALW_BAPIRETURN_GET2'
        exporting
          type   = 'S'
          cl     = '01'
          number = '383'
        importing
          return = l_bapiret2.

BAL_LOG_REFRESH
    call function 'BAL_LOG_REFRESH'
      exporting
        i_log_handle = g_log_handle
      exceptions
        others       = 1.

BAL_LOG_CREATE
    call function 'BAL_LOG_CREATE'
      exporting
        i_s_log      = l_s_log
      importing
        e_log_handle = g_log_handle
      exceptions
        others       = 1.

BAL_LOG_MSG_ADD
      call function 'BAL_LOG_MSG_ADD'
        exporting
          i_log_handle = g_log_handle
          i_s_msg      = l_s_msg
        exceptions
          others       = 1.

BAL_DSP_PROFILE_DETLEVEL_GET
    call function 'BAL_DSP_PROFILE_DETLEVEL_GET'
      importing
        e_s_display_profile = l_s_display_profile
      exceptions
        others              = 1.

BAL_DSP_LOG_DISPLAY
    call function 'BAL_DSP_LOG_DISPLAY'
      exporting
        i_s_display_profile = l_s_display_profile
      exceptions
        others              = 1.

EDI_AGREE_OUT_MESSTYPE_READ
    call function 'EDI_AGREE_OUT_MESSTYPE_READ'
      exporting
        rec_edk13       = l_edk13
      importing
        rec_edd13       = l_edd13
      exceptions
        db_error        = 1
        entry_not_exist = 2
        others          = 3.

EDI_DOCTYPS_OF_MESTYP
      call function 'EDI_DOCTYPS_OF_MESTYP'
        exporting
          mestyp         = 'USERCLONE'
        tables
          doctyps        = lt_edidocs
        exceptions
          invalid_mestyp = 1
          others         = 2.

IDOCTYPE_GET_FAMILY
        call function 'IDOCTYPE_GET_FAMILY'
          exporting
            pi_idoctyp      = new_idoctyp
          tables
            pt_predecessors = lt_edi_iapi04
          exceptions
            others          = 0.

EDI_AGREE_OUT_MESSTYPE_UPDATE
          call function 'EDI_AGREE_OUT_MESSTYPE_UPDATE'
            exporting
              rec_edp13       = l_edp13
            exceptions
              db_error        = 1
              entry_not_exist = 2
              parameter_error = 3
              others          = 4.

POPUP_TO_CONFIRM
    call function 'POPUP_TO_CONFIRM'
      exporting
        titlebar              = 'CUA landscape has been changed'(108) "#EC TEXT_DIFF
        text_question         = 'Unsaved data will get lost. Would you like to continue?'(106) "#EC TEXT_DIFF

STC1_FREE_TABLE
  call function 'STC1_FREE_TABLE'
    exporting
      handle = gd_handle_change
    exceptions
      others = 0.

BALW_BAPIRETURN_GET2
      call function 'BALW_BAPIRETURN_GET2'
        exporting
          type   = 'S'
          cl     = '01'
          number = '392'
        importing
          return = l_bapiret2.

BALW_BAPIRETURN_GET2
      call function 'BALW_BAPIRETURN_GET2'
        exporting
          type   = 'E'
          cl     = '01'
          number = '393'
        importing
          return = l_bapiret2.

STC1_GET_DATA
  call function 'STC1_GET_DATA'
    exporting
      tab_handle      = gd_handle_change
    tables
      table           = lt_child_systems_from_tc
    exceptions
      table_not_found = 1
      others          = 2.

STC1_GET_DATA
  call function 'STC1_GET_DATA'
    exporting
      tab_handle      = gd_handle_display
    tables
      marked_data     = lt_systems
    exceptions
      table_not_found = 1
      others          = 2.

BALW_BAPIRETURN_GET2
      call function 'BALW_BAPIRETURN_GET2'
        exporting
          type   = 'E'
          cl     = '01'
          number = '395'
          par1   = lf_msgv1
        importing
          return = ls_msglog.

BALW_BAPIRETURN_GET2
      call function 'BALW_BAPIRETURN_GET2'
        exporting
          type   = 'E'
          cl     = '01'
          number = '541'
          par1   = lf_msgv1
        importing
          return = ls_msglog.




SUSR_DISPLAY_LOG
    call function 'SUSR_DISPLAY_LOG'
      exporting
        display_in_popup = 'X'
        log_title        = 'Protocol'(150)               "#EC TEXT_DIFF
      tables
        it_log_bapiret2  = lt_msglog[]
      exceptions
        others           = 0.

SUSR_GET_LOG_EXIT_COMMAND
    call function 'SUSR_GET_LOG_EXIT_COMMAND'
      importing
        es_s_excm = ld_log_answer.

STC1_GET_DATA
  call function 'STC1_GET_DATA'
    exporting
      tab_handle      = gd_handle_change
    tables
      marked_data     = lt_sel_uszbvlndrc_tc1
      new_data        = lt_new_uszbvlndrc_tc1
    exceptions
      table_not_found = 1
      others          = 2.

BALW_BAPIRETURN_GET2
    call function 'BALW_BAPIRETURN_GET2'
      exporting
        type   = 'I'
        cl     = '01'
        number = '68'
      importing
        return = ls_msglog.

SUSR_DISPLAY_LOG
    call function 'SUSR_DISPLAY_LOG'
      exporting
        display_in_popup = 'X'
        log_title        = 'Protocol'(150)               "#EC TEXT_DIFF
      tables
        it_log_bapiret2  = lt_msglog[]
      exceptions
        parameter_error  = 0
        others           = 0.

BALW_BAPIRETURN_GET2
      call function 'BALW_BAPIRETURN_GET2'
        exporting
          type   = 'W'
          cl     = '01'
          number = '430'
          par1   = lf_msgv1
        importing
          return = ls_msglog.

BALW_BAPIRETURN_GET2
      call function 'BALW_BAPIRETURN_GET2'
        exporting
          type   = 'E'
          cl     = '01'
          number = '395'
          par1   = lf_msgv1
        importing
          return = ls_msglog.

BALW_BAPIRETURN_GET2
      call function 'BALW_BAPIRETURN_GET2'
        exporting
          type   = 'E'
          cl     = '01'
          number = '541'
          par1   = lf_msgv1
        importing
          return = ls_msglog.

SUSR_DISPLAY_LOG
    call function 'SUSR_DISPLAY_LOG'
      exporting
        display_in_popup = 'X'
        log_title        = 'Would you like to continue?'(107) "#EC TEXT_DIFF
      tables
        it_log_bapiret2  = lt_msglog[]
      exceptions
        others           = 0.

SUSR_GET_LOG_EXIT_COMMAND
    call function 'SUSR_GET_LOG_EXIT_COMMAND'
      importing
        es_s_excm = ld_answer.

SCUA_GEN_GENERATE_ALE_LAND
  call function 'SCUA_GEN_GENERATE_ALE_LAND'
    exporting
      if_uszbvlndsc   = save_uszbvlndsc
      bapilink        = save_usbapilink-bapilink
    tables
      it_uszbvlndrc   = lt_sel_uszbvlndrc
    exceptions
      landscape_error = 1
      others          = 2.

SUSR_ZBV_LOCAL_ACTGRPS_SAVE
      call function 'SUSR_ZBV_LOCAL_ACTGRPS_SAVE'
        in background task
        exporting
          tcode = sy-tcode.

SUSR_ZBV_LOCAL_PROFILES_SAVE
      call function 'SUSR_ZBV_LOCAL_PROFILES_SAVE'
        in background task
        exporting
          tcode = sy-tcode.

SUSR_ZBV_FLD_TO_DB
      call function 'SUSR_ZBV_FLD_TO_DB'
        exporting
          custmodel            = save_usbapilink-bapilink
          new_cua_installation = 'X'
        tables
          it_usrfldtsel        = lt_usrfldtsel.

SCUA_GEN_GET_SYSINFO
      call function 'SCUA_GEN_GET_SYSINFO'
        destination 'NONE'
        starting new task l_uszbvlndrc-rcvsystem
        performing get_rfc_results on end of task
        exporting
          id_rfcdest            = l_uszbvlndrc-rcvsystem
        exceptions
          system_failure        = 1
          communication_failure = 2
          others                = 3.

SUSR_ZBV_CLEAR_BUFFER
  call function 'SUSR_ZBV_CLEAR_BUFFER'.

SUSR_ZBV_CHECK_IF_ACTIVE
  call function 'SUSR_ZBV_CHECK_IF_ACTIVE'
    exceptions
      active        = 1
      not_active    = 2
      invalid_model = 3
      others        = 4.

SUSR_ZBV_MODEL_READ
    call function 'SUSR_ZBV_MODEL_READ'
      exporting
        delivery_model = sgrm_model_user
      importing
        bapilink       = g_bapilink.

SUSR_ZBV_CENTRALSYSTEM_GET
    call function 'SUSR_ZBV_CENTRALSYSTEM_GET'
      importing
        central_system_logsys    = g_sendsystem
      exceptions
        duplicate_central_system = 1
        new_system               = 2
        others                   = 3.

SUSR_ZBV_CLIENTSYSTEMS_GET
      call function 'SUSR_ZBV_CLIENTSYSTEMS_GET'
        exporting
          delivery_model     = sgrm_model_user
        importing
          sender_as_receiver = gs_uszbvlndrc
        tables
          receivers          = gt_uszbvlndrc
        exceptions
          invalid_model      = 1
          system_excluded    = 2
          others             = 3.

RFC_PING
    call function 'RFC_PING' destination g_sendsystem
      exceptions
        communication_failure = 1 "Kommfehler durch falsche RFC Angabe
        system_failure        = 2 "Verbindungsunterbrechung physisch
        others                = 3.

SUSR_ZBV_CHECK_IF_TEMP_OFF
    call function 'SUSR_ZBV_CHECK_IF_TEMP_OFF'
      importing
        temp_off      = g_temp_off
        bapilink      = g_temp_off_bali
      exceptions
        invalid_model = 1
        check_error   = 2
        others        = 3.

BMODEL_LINK_GET
  call function 'BMODEL_LINK_GET'
    tables
      blink = all_bapilinks.

SCUA_GEN_GET_SYSINFO
        call function 'SCUA_GEN_GET_SYSINFO'
          destination 'NONE'
          starting new task gd_uszbvlndrc_tc1-rcvsystem
          performing get_rfc_results on end of task
          exporting
            id_rfcdest            = gd_uszbvlndrc_tc1-rcvsystem
          exceptions
            system_failure        = 1  message ld_msg
            communication_failure = 2  message ld_msg
            others                = 3.

FUNCTION_EXISTS
  call function 'FUNCTION_EXISTS' destination g_sendsystem
    exporting
      funcname              = 'SUSR_ZBV_LANDSCAPE_GET'
    exceptions
      function_not_exist    = 1
      system_failure        = 2  message ld_msg_text
      communication_failure = 3  message ld_msg_text
      others                = 4.

SUSR_ZBV_LANDSCAPE_GET
      call function 'SUSR_ZBV_LANDSCAPE_GET' destination g_sendsystem
        tables
          receivers     = lt_uszbvlndrc
        exceptions
          invalid_model = 1
          not_active    = 2
          others        = 3.

SUSR_ZBV_CLIENTSYSTEMS_GET
      call function 'SUSR_ZBV_CLIENTSYSTEMS_GET'
        exporting
          delivery_model  = sgrm_model_user
        tables
          receivers       = lt_uszbvlndrc
        exceptions
          invalid_model   = 1
          system_excluded = 2
          others          = 3.

BALW_BAPIRETURN_GET2
      call function 'BALW_BAPIRETURN_GET2'
        exporting
          type   = ld_msgtype
          cl     = ld_msgid
          number = ld_msgno
          par1   = ld_par1
          par2   = ld_par2
          par3   = ld_par3
          par4   = ld_par4
        importing
          return = gs_return.

SALK_CUA_MONITORING_STOP
        call function 'SALK_CUA_MONITORING_STOP'
          tables
            et_message = lt_message.

SALK_CUA_MONITORING_START
        call function 'SALK_CUA_MONITORING_START'
          importing
            ef_success = lv_success
          tables
            et_message = lt_message.


Contribute (Add Comments)

Although this basic information may have limited use it does provide an easy to find location to store any knowledge about this program/report.

The contribute/comments section below therefore offer's an opportunity for anyone to add additional information. This can be anything from useful hints, tips and screen shots to relevant SAP notes or anything else you feel is relevant to this report.

This will then be available for everyone to easily find by simply searching on the report name MSCUAF01 or its description.


   
 

MSCUAF01 - documentation and ABAP source code
MSCOMPTESTTOP - documentation and ABAP source code
MSCOMPTESTC01 - documentation and ABAP source code
MSCOMPTESTC00 - documentation and ABAP source code
MSCOMPI01 - documentation and ABAP source code
MSCODELIST_REGISTRY - Module pool for view cluster VC_CODE_REGISTRY events