1
*&--------------------------------------------------------------------*
2
*& Form BEFORE_LEAVING_EXT *
3
4
* do all the things necessary before leaving - external call *
5
6
FORM BEFORE_LEAVING_EXT USING VALUE(VIEWNAME) LIKE VIMDESC-VIEWNAME
7
VALUE(MAINTVIEW) LIKE VIMDESC-MAINTVIEW
8
VALUE(EXIT_FORM) LIKE VIMDESC-FRM_BF_END.
9
DATA: NAME(20) TYPE C VALUE 'STATUS_'.
10
FIELD-SYMBOLS: <BLE_STATUS>.
11
12
ASSIGN <STATUS> TO <BLE_STATUS>.
13
* NAME+7 = VIEWNAME.
14
NAME+7 = MAINTVIEW. "Subviews
15
ASSIGN (NAME) TO <STATUS>.
16
IF VIM_CORR_OBJ_VIEWNAME NE VIEWNAME.
17
CLEAR MAINT_MODE.
18
ELSE.
19
MAINT_MODE = <STATUS>-ST_ACTION.
20
ENDIF.
21
PERFORM BEFORE_LEAVING_FRAME_FUNCTION USING EXIT_FORM.
22
ASSIGN <BLE_STATUS> TO <STATUS>.
23
ENDFORM. "before_leaving_ext