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 SELEKTIERE                                               *
    3
    *---------------------------------------------------------------------*
    4
    *       ........                                                      *
    5
    *---------------------------------------------------------------------*
    6
    *  -->  PARAM                                                         *
    7
    *---------------------------------------------------------------------*
    8
    FORM selektiere USING param.
    9
      DATA: rec LIKE sy-subrc VALUE 9, s_screenmode(1) TYPE c VALUE 'S'.
    10
      IF status-action EQ hinzufuegen.
    11
        status-action = aendern.
    12
        title-action = aendern.
    13
      ENDIF.
    14
      IF status-mode EQ detail_bild.
    15
        PERFORM update_tab.
    16
      ENDIF.
    17
      REFRESH extract. CLEAR vim_mainkey. l = 1.
    18
      TRANSLATE vim_no_mainkey_exists USING vim_no_mkey_not_procsd_patt.
    19
      LOOP AT total.
    20
        PERFORM select USING param.
    21
        CHECK sy-subrc EQ 0.
    22
        IF x_header-delmdtflag NE space.
    23
          PERFORM check_and_modify_mainkey_tab USING rec.
    24
          IF rec NE 0.
    25
            vim_coll_mainkeys_beg_ix = vim_last_coll_mainkeys_ix.
    26
          ENDIF.
    27
          CHECK rec LT 8.
    28
          IF rec EQ 4. rec = 9. ENDIF.
    29
        ENDIF.
    30
        extract = total.
    31
        APPEND extract.
    32
      ENDLOOP.
    33
      vim_coll_mainkeys_beg_ix = 1.
    34
      IF rec NE 9 AND rec NE 0.
    35
        PERFORM mod_extract_and_mainkey_tab USING 'A' 0.
    36
      ENDIF.
    37
      IF param EQ geloescht.
    38
        status-delete = geloescht.
    39
        title-action  = geloescht.
    40
      ENDIF.
    41
      <status>-selected = param.
    42
      DESCRIBE TABLE extract LINES maxlines.
    43
      status-data   = auswahldaten.
    44
      title-data    = auswahldaten.
    45
      nextline = 1.
    46
      IF maxlines EQ 0.
    47
        status-delete = nicht_geloescht.
    48
        title-action  = nicht_geloescht.
    49
        PERFORM fill_extract.
    50
        PERFORM set_pf_status USING status.
    51
        MESSAGE i004(sv).
    52
        SET SCREEN liste.
    53
        LEAVE SCREEN.
    54
      ENDIF.
    55
      IF maxlines EQ 1.
    56
        MESSAGE s005(sv).
    57
        IF vim_single_entry_function NE space.
    58
          IF status-type EQ zweistufig.
    59
            <status>-firstline = <status>-cur_line = nextline.
    60
            PERFORM process_detail_screen USING 'C'.
    61
          ELSE.
    62
            CALL SCREEN liste.
    63
          ENDIF.
    64
        ELSE.
    65
          IF status-type EQ zweistufig.
    66
            <status>-firstline = <status>-cur_line = nextline.
    67
            PERFORM process_detail_screen USING 'S'.
    68
          ENDIF.
    69
        ENDIF.
    70
      ELSE.
    71
        IF status-mode EQ detail_bild.
    72
          vim_next_screen = liste. vim_leave_screen = 'X'.
    73
        ENDIF.
    74
        MESSAGE s006(sv) WITH maxlines.
    75
      ENDIF.
    76
    ENDFORM.