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 LOGICAL_UNDELETE_TOTAL                                    *
    3
    *---------------------------------------------------------------------*
    4
    *       ........                                                      *
    5
    *---------------------------------------------------------------------*
    6
    FORM logical_undelete_total USING value(cur_index) TYPE i.
    7
      CASE <action>.
    8
        WHEN neuer_geloescht.
    9
          <action> = neuer_eintrag.
    10
        WHEN geloescht.
    11
          <action> = original.
    12
        WHEN update_geloescht.
    13
          <action> = aendern.
    14
      ENDCASE.
    15
    *  perform vim_bc_logs_maintain using zurueckholen
    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_geloescht.
    21
            <action_text>         = neuer_eintrag.
    22
          WHEN geloescht.
    23
            <action_text>         = original.
    24
          WHEN update_geloescht.
    25
            <action_text>         = aendern.
    26
          WHEN dummy_geloescht.
    27
            <action_text>         = original.
    28
            <vim_xtotal_text> = <text_initial_x>.
    29
    *        <TOTAL_TEXT> = <TEXT_INITIAL>.
    30
        ENDCASE.
    31
      ENDIF.
    32
      <mark> = nicht_markiert.
    33
      MODIFY total INDEX cur_index.
    34
    ENDFORM.                               "logical_undelete_total