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 MODIFY_TABLES                                            *
    3
    *---------------------------------------------------------------------*
    4
    *       ........                                                      *
    5
    *---------------------------------------------------------------------*
    6
    *  -->  VALUE(TAB_INDEX)                                              *
    7
    *---------------------------------------------------------------------*
    8
    FORM modify_tables USING value(tab_index).
    9
      CLEAR <status>-upd_flag.
    10
      IF <xmark> EQ markiert.
    11
        SUBTRACT: 1 FROM <status>-mk_xt,
    12
                  1 FROM <status>-mk_to.
    13
      ENDIF.
    14
      READ TABLE total WITH KEY <vim_xextract_key> BINARY SEARCH.
    15
      MOVE <table1> TO <vim_extract_struc>.
    16
      IF x_header-bastab NE space AND x_header-texttbexst NE space.
    17
        MOVE: <table1_xtext> TO <vim_xextract_text>,
    18
              original TO <xact_text>.
    19
      ENDIF.
    20
      <xmark> = nicht_markiert.
    21
      <xact> = original.
    22
      IF tab_index NE 0.
    23
        MODIFY extract INDEX tab_index.
    24
      ENDIF.
    25
      total = extract.
    26
      MODIFY total INDEX sy-tabix.
    27
      IF x_header-frm_on_org NE space.
    28
        PERFORM (x_header-frm_on_org) IN PROGRAM (sy-repid).
    29
      ENDIF.
    30
    ENDFORM.