1
*&--------------------------------------------------------------------*
2
*& Form VIM_RESTORE_LOCAL_MEMORY *
3
4
* restore local memory of function pool (for external call) *
5
6
FORM VIM_RESTORE_LOCAL_MEMORY.
7
DATA: H_NAME(31) TYPE C VALUE '*', H_STATE(30) VALUE 'STATUS_'.
8
9
VIEW_NAME = X_HEADER-VIEWNAME.
10
IF X_HEADER-BASTAB EQ SPACE.
11
H_NAME+1 = X_HEADER-MAINTVIEW. H_STATE+7 = X_HEADER-MAINTVIEW.
12
ASSIGN: (X_HEADER-MAINTVIEW) TO <TABLE1>, (H_NAME) TO <INITIAL>,
13
(H_STATE) TO <STATUS>.
14
ENDIF.
15
VIM_RESTORE_MODE = 'X'.
16
PERFORM INITIALISIEREN.
17
VIEW_ACTION = <STATUS>-ST_ACTION. TRANSLATE VIEW_ACTION USING 'CUAU'.
18
PERFORM JUSTIFY_ACTION_MODE.
19
MOVE: VIEW_ACTION TO MAINT_MODE,
20
<STATUS>-CORR_NBR TO CORR_NBR,
21
<STATUS>-FCODE TO FUNCTION.
22
PERFORM CALL_DYNPRO.
23
ENDFORM. "vim_restore_local_memory