Eigenschaften | Quelltext
Titel | Include LSVIMF65 |
Originalsprache | DE | Deutsch
Erstellt | 13.11.2001 |  | SAP |
Letzte Änderung | 13.11.2001 |  | SAP |
Status | aktiv |
Attribute
Typ | Include-Programm |
Status | Testprogramm |
Anwendung | Basis (System) |
Paket | SVIM | Basis Viewmaintenance
| Editorsperre
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