Properties | SourceCde
Title |  |
Original language | DE | Englisch
Created | 27.10.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
    *       FORM VIM_SET_ALE_EDIT_LOCK                                    *
    3
    *---------------------------------------------------------------------*
    4
    *       ........                                                      *
    5
    *---------------------------------------------------------------------*
    6
    FORM VIM_SET_ALE_EDIT_LOCK.
    7
      DATA: I_EDITLOCK(1) TYPE C.
    8
    9
      VIM_LAST_OBJH_VIEW = VIEW_NAME.
    10
      REFRESH VIM_ALE_KEYSPEC_OBJTAB.
    11
      IF X_HEADER-FLAG EQ SPACE.           "standard transport required
    12
        PERFORM VIM_CHECK_ALE_EDIT_LOCK USING E071-OBJECT I_EDITLOCK.
    13
        VIM_ALE_EDIT_LOCK = I_EDITLOCK.
    14
        IF VIM_ALE_EDIT_LOCK NE SPACE. EXIT. ENDIF.
    15
      ENDIF.
    16
      IF X_HEADER-FRM_E071 NE SPACE. "individual transport objects exist
    17
        IF VIM_CORR_OBJ_VIEWNAME NE X_HEADER-VIEWNAME.
    18
          PERFORM (X_HEADER-FRM_E071) IN PROGRAM (SY-REPID).
    19
          CLEAR VIM_CORR_OBJ_VIEWNAME.
    20
        ENDIF.
    21
        LOOP AT VIM_CORR_OBJTAB.
    22
          PERFORM VIM_CHECK_ALE_EDIT_LOCK USING VIM_CORR_OBJTAB-OBJECT
    23
                                                I_EDITLOCK.
    24
          VIM_ALE_EDIT_LOCK = I_EDITLOCK.
    25
          IF VIM_ALE_EDIT_LOCK NE SPACE. EXIT. ENDIF.
    26
        ENDLOOP.
    27
      ENDIF.
    28
    ENDFORM.                               "vim_set_ale_edit_lock