FORM VIM_VCLDOCKING_CONTROL.

DATA: DISABLE_NAVI(1) TYPE C.

  IF VIM_EXTERNAL_MODE = 'X' OR VIM_SPECIAL_MODE = VIM_DIRECT_UPGRADE

     OR STATUS-ACTION = 'C'.

    DISABLE_NAVI = 'X'.

  ENDIF.

  CALL FUNCTION 'VIEWCLUSTER_NAVI_CONTROL'

       EXPORTING

            OWNER_REPID        = X_HEADER-FPOOLNAME

            OWNER_DYNNR        = SY-DYNNR

            DISABLE_NAVIGATION = DISABLE_NAVI

       EXCEPTIONS

            OTHERS             = 1.

  IF SY-SUBRC = 0.

    MOVE 'ATAB' TO EXCL_CUA_FUNCT-FUNCTION. COLLECT EXCL_CUA_FUNCT.

  ENDIF.

ENDFORM.                                  " VIM_VCLDOCKING_CONTROL