Properties SourceCde
txt
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