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 READ_TABLE                                               *
    3
    *---------------------------------------------------------------------*
    4
    *       ........                                                      *
    5
    *---------------------------------------------------------------------*
    6
    *  -->  IND                                                           *
    7
    *---------------------------------------------------------------------*
    8
    FORM read_table USING ind.
    9
      IF replace_mode NE space OR vim_special_mode EQ vim_delete.
    10
        EXIT.
    11
      ENDIF.
    12
      READ TABLE extract INDEX ind.
    13
      MOVE sy-tabix TO exind.
    14
      IF sy-subrc NE 0.
    15
        MOVE <initial> TO <table1>.
    16
        MOVE <table1> TO <vim_extract_struc>.
    17
        IF x_header-bastab NE space AND x_header-texttbexst NE space.
    18
          MOVE: <text_initial_x> TO <vim_xextract_text>,
    19
                <text_initial_x> to <table1_xtext>.
    20
    *            <table1_text> TO <extract_text>.
    21
        ENDIF.
    22
        IF status-mode EQ detail_bild AND status-action EQ hinzufuegen AND
    23
           neuer EQ 'N'.                   "e.g. 'PREV' without input
    24
          neuer = 'J'.
    25
        ENDIF.
    26
      ELSE.
    27
        PERFORM move_extract_to_view_wa.
    28
      ENDIF.
    29
    ENDFORM.