Properties | SourceCde
Title |  |
Original language | DE | Englisch
Created | 03.12.1998 |  | SAP |
Last changed by | 13.11.2001 |  | SAP |
Status | Active |
Attributes
Type | INCLUDE program |
Status | Test program |
Application | Basis |
Package | SVIM | Basis View Maintenance
| Editor lock
txt
    1
    *----------------------------------------------------------------------*
    2
    *   INCLUDE LSVIMF50                                                   *
    3
    *----------------------------------------------------------------------*
    4
    5
    FORM VIM_VCLDOCKING_CONTROL.
    6
    DATA: DISABLE_NAVI(1) TYPE C.
    7
    8
      IF VIM_EXTERNAL_MODE = 'X' OR VIM_SPECIAL_MODE = VIM_DIRECT_UPGRADE
    9
         OR STATUS-ACTION = 'C'.
    10
        DISABLE_NAVI = 'X'.
    11
      ENDIF.
    12
      CALL FUNCTION 'VIEWCLUSTER_NAVI_CONTROL'
    13
           EXPORTING
    14
                OWNER_REPID        = X_HEADER-FPOOLNAME
    15
                OWNER_DYNNR        = SY-DYNNR
    16
                DISABLE_NAVIGATION = DISABLE_NAVI
    17
           EXCEPTIONS
    18
                OTHERS             = 1.
    19
      IF SY-SUBRC = 0.
    20
        MOVE 'ATAB' TO EXCL_CUA_FUNCT-FUNCTION. COLLECT EXCL_CUA_FUNCT.
    21
      ENDIF.
    22
    ENDFORM.                                  " VIM_VCLDOCKING_CONTROL