1
*&---------------------------------------------------------------------*
2
*& Include LSVIMF65 *
3
4
5
*& Form check_nonkey
6
7
* to check selection condiotions for nonkey fields only
8
*----------------------------------------------------------------------*
9
*
10
11
FORM check_nonkey.
12
13
14
FIELD-SYMBOLS: <table1_txt_loc> type any.
15
16
17
if x_header-bastab <> space and x_header-texttbexst <> space.
18
assign <table1_text> to <table1_txt_loc>.
19
else.
20
assign <table1> to <table1_txt_loc>.
21
endif.
22
CALL FUNCTION 'TABLE_RANGE_CHECK'
23
EXPORTING
24
tabname = x_header-maintview
25
entry = <table1>
26
entry_text = <table1_txt_loc>
27
ddic = 'J'
28
key = 'F'
29
ignore_blank_subsetfields = 'N'
30
TABLES
31
x_namtab = x_namtab
32
x_header = x_header
33
sellist = <vim_ck_sellist>
34
EXCEPTIONS
35
entry_not_fits = 1.
36
IF sy-subrc EQ 1.
37
PERFORM set_pf_status USING 'ERROR'.
38
39
MESSAGE e174(sv).
40
ENDIF.
41
endform. "check_nonkey