Eigenschaften | Quelltext
Titel | Include LSVIMF50 |
Originalsprache | DE | Deutsch
Erstellt | 03.12.1998 |  | SAP |
Letzte Änderung | 13.11.2001 |  | SAP |
Status | aktiv |
Attribute
Typ | Include-Programm |
Status | Testprogramm |
Anwendung | Basis (System) |
Paket | SVIM | Basis Viewmaintenance
| Editorsperre
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