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 SUCHEN                                                   *
    3
    *---------------------------------------------------------------------*
    4
    *       ........                                                      *
    5
    *---------------------------------------------------------------------*
    6
    FORM suchen.
    7
      DESCRIBE TABLE exclude_tab.
    8
      IF sy-tfill GT 0.                    "entries in old exclude_tab
    9
        PERFORM consider_old_exclude_tab TABLES excl_que_tab.
    10
      ENDIF.
    11
      CALL FUNCTION 'QUERY_GET_OPERATION'
    12
           EXPORTING
    13
                table             = x_header-maintview
    14
           TABLES
    15
                exclude_fields    = excl_que_tab
    16
           EXCEPTIONS
    17
                table_not_found   = 0004
    18
                no_valid_fields   = 0008
    19
                cancelled_by_user = 0012.
    20
      CASE sy-subrc.
    21
        WHEN 0.
    22
        WHEN 8.
    23
          MESSAGE s039(sv) WITH view_name.
    24
          EXIT.
    25
        WHEN OTHERS.
    26
          EXIT.
    27
      ENDCASE.
    28
      status-data   = auswahldaten.
    29
      title-data    = auswahldaten.
    30
      IF title-action EQ geloescht.
    31
        status-delete = nicht_geloescht.
    32
        title-action = aendern.
    33
      ENDIF.
    34
      REFRESH extract.
    35
      LOOP AT total.
    36
        PERFORM select USING by_field_contents.
    37
        CHECK sy-subrc EQ 0.
    38
        extract = total.
    39
        APPEND extract.
    40
      ENDLOOP.
    41
      <status>-selected = by_field_contents.
    42
      DESCRIBE TABLE extract LINES maxlines.
    43
      nextline = 1.
    44
      IF maxlines EQ 0.
    45
        PERFORM fill_extract.
    46
        MESSAGE s004(sv).
    47
        EXIT.
    48
      ENDIF.
    49
      IF maxlines EQ 1.
    50
        MESSAGE s005(sv).
    51
        IF status-type EQ zweistufig.
    52
          PERFORM read_table USING maxlines.
    53
          PERFORM process_detail_screen USING 'S'.
    54
        ENDIF.
    55
      ELSE.
    56
        IF status-mode EQ detail_bild.
    57
          vim_next_screen = liste. vim_leave_screen = 'X'.
    58
        ENDIF.
    59
      ENDIF.
    60
      MESSAGE s006(sv) WITH maxlines.
    61
      mark_extract = 0.
    62
      LOOP AT extract.
    63
        IF <xmark> EQ markiert.
    64
          mark_extract = mark_extract + 1.
    65
        ENDIF.
    66
      ENDLOOP.
    67
      IF x_header-delmdtflag <> space.        "SW CSS-Problem 83157/1999
    68
        LOOP AT extract.
    69
          LOOP AT vim_collapsed_mainkeys.
    70
            CHECK <vim_collapsed_mkey_bfx> = <vim_ext_mkey_beforex>
    71
             AND <vim_collapsed_keyx> <> <vim_xextract_key>.
    72
    *      LOOP AT vim_collapsed_mainkeys WHERE
    73
    *                mkey_bf = <vim_ext_mkey_before>.
    74
    *        IF vim_collapsed_mainkeys-mainkey <> <vim_extract_key>.
    75
            DELETE vim_collapsed_mainkeys.
    76
    *        ENDIF.
    77
          ENDLOOP.
    78
        ENDLOOP.
    79
      ENDIF.
    80
    ENDFORM.