Properties | SourceCde
Title |  |
Original language | DE | Englisch
Created | 27.10.1998 |  | SAP |
Last changed by | 13.11.2001 |  | SAP |
Status | Active |
Attributes
Type | INCLUDE program |
Status | Test program |
Application | Basis |
Package | SVIM | Basis View Maintenance
| Editor lock
txt
    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
        ELSE.
    24
          ASSIGN <vim_total_struc> TO <vim_tot_txt_struc_loc>.
    25
        ENDIF.
    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
        ENDIF.
    44
      ENDIF.
    45
    ENDFORM.                    "NORMAL_SELECT