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 LISTE_BACK                                               *
    3
    *---------------------------------------------------------------------*
    4
    *       ........                                                      *
    5
    *---------------------------------------------------------------------*
    6
    FORM liste_back.
    7
      IF status-action EQ hinzufuegen.
    8
        status-action = <status>-st_action = aendern.
    9
        title-action  = aendern.
    10
        CLEAR <status>-selected.
    11
        neuer = 'N'.
    12
      ENDIF.
    13
      IF status-delete = geloescht.
    14
        status-delete = <status>-st_delete = nicht_geloescht.
    15
        title-action  = aendern.
    16
        PERFORM markiere_alle USING nicht_markiert.
    17
      ENDIF.
    18
      IF x_header-delmdtflag NE space.
    19
        LOOP AT vim_collapsed_mainkeys.
    20
          IF vim_collapsed_mainkeys-mkey_bf EQ space.
    21
            vim_collapsed_mainkeys-mkey_bf = vim_collapsed_mainkeys-log_key.
    22
            CLEAR vim_collapsed_mainkeys-log_key.
    23
          ENDIF.
    24
          <f1_x> = <vim_h_coll_mkey>.
    25
    *      <f1> = vim_collapsed_mainkeys-mainkey.
    26
          <vim_enddate_mask> = space.
    27
          <vim_h_coll_mkey> = <f1_x>.
    28
    *      vim_collapsed_mainkeys-mainkey = <f1>.
    29
          MODIFY vim_collapsed_mainkeys.
    30
        ENDLOOP.
    31
        IF vim_delim_expa_excluded NE space.
    32
          DELETE excl_cua_funct WHERE function EQ 'EXPA'.
    33
          CLEAR vim_delim_expa_excluded.
    34
        ENDIF.
    35
        IF status-action = aendern AND title-action = hinzufuegen.
    36
          title-action  = aendern.
    37
        ENDIF.
    38
      ENDIF.
    39
      PERFORM fill_extract.
    40
      nextline = 1.
    41
      mark_extract = mark_total.
    42
      SET SCREEN liste.
    43
      LEAVE SCREEN.
    44
    ENDFORM.