1
*----------------------------------------------------------------------*
2
* INCLUDE LSVIMF5D *
3
4
*&---------------------------------------------------------------------*
5
*& Form VIM_MAINT_SELFLAG
6
7
* Sets or resets X_HEADER-SELECTION and keeps initial value
8
* Purpose: additional check vs. sellist in form
9
* CHECK_DYNAMIC_SELECT_OPTIONS
10
11
* -->mode S = set flag to 'X', I = initialize,
12
* R = get and reset to initial value
13
* <--p_selflag value of X_HEADER-SELECTION
14
15
FORM vim_maint_selflag USING value(p_mode) TYPE sychar01
16
CHANGING p_selflag TYPE xfeld.
17
18
STATICS: init_val TYPE xfeld.
19
20
CASE p_mode.
21
WHEN 'I'.
22
init_val = p_selflag.
23
WHEN 'S'.
24
x_header-selection = 'X'.
25
WHEN 'R'.
26
p_selflag = x_header-selection.
27
x_header-selection = init_val.
28
ENDCASE.
29
ENDFORM. " VIM_MAINT_SELFLAG