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
    *       LOGICAL_DELETE_FROM_TOTAL                                     *
    3
    *---------------------------------------------------------------------*
    4
    *       ........                                                      *
    5
    *---------------------------------------------------------------------*
    6
    FORM logical_delete_from_total USING value(cur_index) TYPE i.
    7
      CASE <action>.
    8
        WHEN neuer_eintrag.
    9
          <action>         = neuer_geloescht.
    10
        WHEN original.
    11
          <action>         = geloescht.
    12
        WHEN aendern.
    13
          <action>         = update_geloescht.
    14
      ENDCASE.
    15
    *  perform vim_bc_logs_maintain using geloescht
    16
    *                                     x_header
    17
    *                               changing vim_bc_entry_list.
    18
      IF x_header-bastab NE space AND x_header-texttbexst NE space.
    19
        CASE <action_text>.
    20
          WHEN neuer_eintrag.
    21
            <action_text>         = neuer_geloescht.
    22
          WHEN original.
    23
            IF <vim_xtotal_text> NE <text_initial_x>.
    24
    *        IF <total_text> NE <text_initial>.
    25
              <action_text>         = geloescht.
    26
            ELSE.
    27
              PERFORM (vim_frm_fill_textkey) IN PROGRAM (sy-repid)
    28
                                           USING <vim_total_struc>
    29
                                                 <vim_tot_txt_struc>.
    30
    * Unicode: Form FILL_TEXTTAB_KEY_UC instead of FILL_TEXTTAB_KEY_UC
    31
    *                                       USING <vim_total_key>
    32
    *                                             <total_text>.
    33
              <action_text>         = dummy_geloescht. "always del texttbent
    34
            ENDIF.
    35
          WHEN aendern.
    36
            <action_text>         = update_geloescht.
    37
        ENDCASE.
    38
      ENDIF.
    39
      <mark>       = nicht_markiert.
    40
      MODIFY total INDEX cur_index.
    41
    ENDFORM.                               "logical_delete_from_total