1
*---------------------------------------------------------------------*
2
* FORM NORMAL_SELECT *
3
4
* ........ *
5
6
* <--- sy-subrc *
7
8
FORM normal_select.
9
FIELD-SYMBOLS: <ns_tab> TYPE table, <vim_tot_txt_struc_loc> TYPE ANY.
10
sy-subrc = 8.
11
CHECK <action> NE neuer_geloescht
12
AND <action> NE update_geloescht
13
AND <action> NE geloescht.
14
CLEAR sy-subrc.
15
IF x_header-selection NE space.
16
IF vim_special_adjust_mode NE space.
17
ASSIGN dba_sellist[] TO <ns_tab>.
18
ELSE.
19
ASSIGN dpl_sellist[] TO <ns_tab>.
20
ENDIF.
21
IF x_header-bastab <> space AND x_header-texttbexst <> space.
22
ASSIGN <vim_tot_txt_struc> TO <vim_tot_txt_struc_loc>.
23
24
ASSIGN <vim_total_struc> TO <vim_tot_txt_struc_loc>.
25
26
CALL FUNCTION 'TABLE_RANGE_CHECK'
27
EXPORTING
28
tabname = x_header-maintview
29
entry = total
30
entry_text = <vim_tot_txt_struc_loc>
31
ddic = 'N'
32
key = 'N'
33
ignore_blank_subsetfields = 'N'
34
TABLES
35
x_namtab = x_namtab
36
x_header = x_header
37
sellist = <ns_tab>
38
EXCEPTIONS
39
entry_not_fits = 1
40
no_value_for_subset_ident = 2.
41
IF sy-subrc EQ 2.
42
RAISE no_value_for_subset_ident.
43
44
45
ENDFORM. "NORMAL_SELECT