Properties | SourceCde
Title |  |
Original language | DE | Englisch
Created | 27.10.1998 |  | SAP |
Last changed by | 10.03.2003 |  | SAP |
Status | Active |
Attributes
Type | INCLUDE program |
Status | Test program |
Application | Basis |
Package | SVIM | Basis View Maintenance
| Editor lock
txt
    1
    *---------------------------------------------------------------------*
    2
    *       FORM MOD_EXTRACT_AND_MAINKEY_TAB                              *
    3
    *---------------------------------------------------------------------*
    4
    *       Modify EXTRACT and mainkey table                              *
    5
    *---------------------------------------------------------------------*
    6
    FORM mod_extract_and_mainkey_tab USING value(meamt_mode) TYPE c
    7
                                           value(meamt_index) TYPE i.
    8
      CASE meamt_mode.
    9
        WHEN 'A'.
    10
          APPEND extract.
    11
        WHEN 'I'.
    12
          IF meamt_index EQ 0.
    13
            INSERT extract.                                 "#EC *
    14
          ELSE.
    15
            INSERT extract INDEX meamt_index.
    16
          ENDIF.
    17
        WHEN 'M'.
    18
          IF meamt_index EQ 0.
    19
            MODIFY extract.                                 "#EC *
    20
          ELSE.
    21
            MODIFY extract INDEX meamt_index.
    22
          ENDIF.
    23
      ENDCASE.
    24
      LOOP AT vim_collapsed_mainkeys.
    25
        CHECK <vim_collapsed_mkey_bfx> EQ <vim_mkey_beforex>
    26
         AND <vim_collapsed_keyx> NE <vim_xextract_key>.
    27
    *  LOOP AT vim_collapsed_mainkeys WHERE mkey_bf EQ <vim_mkey_before>
    28
    *                                   AND mainkey NE <vim_extract_key>.
    29
        IF vim_mkey_after_exists NE space.
    30
          CHECK <vim_collapsed_key_afx> EQ <vim_mkey_afterx>.
    31
    *      CHECK <vim_collapsed_key_af> EQ <vim_mkey_after>.
    32
        ENDIF.
    33
        <vim_collapsed_keyx> = <vim_xextract_key>.
    34
    *    vim_collapsed_mainkeys-mainkey = <vim_extract_key>.
    35
    * changed XB. 12.06.02  BCEK060520/BCEK060521 -------begin----------
    36
        if <vim_collapsed_mkey_bfx> NE <vim_ext_mkey_beforex>.
    37
          <vim_collapsed_mkey_bfx> = <vim_ext_mkey_beforex>.
    38
    *    vim_collapsed_mainkeys-mkey_bf = <vim_ext_mkey_before>.
    39
        endif.
    40
    * changed XB. 12.06.02  BCEK060520/BCEK060521 ---------end-----------
    41
        MODIFY vim_collapsed_mainkeys.
    42
      ENDLOOP.
    43
    ENDFORM.                               "mod_extract_and_mainkey_tab.