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
21
LOOP AT VIM_CORR_OBJTAB.
22
PERFORM VIM_CHECK_ALE_EDIT_LOCK USING VIM_CORR_OBJTAB-OBJECT
23
I_EDITLOCK.
24
25
26
ENDLOOP.
27
28
ENDFORM. "vim_set_ale_edit_lock