Properties SourceCde
txt
1
*---------------------------------------------------------------------*
2
*       FORM AEND_TO_ANZG                                             *
3
*---------------------------------------------------------------------*
4
*       ........                                                      *
5
*---------------------------------------------------------------------*
6
FORM aend_to_anzg.
7
* was not used 'til 4.6C
8
  IF status-action EQ anzeigen.
9
    MESSAGE i001(sv).
10
  ELSE.
11
    IF NOT vim_oc_inst IS INITIAL.
12
* new selection because of different authorisation? --> Message
13
* >>>check whether there's really a difference between upd and show<<<
14
      MESSAGE s764(sv).
15
*   Veränderte Auswahl von Datensätzen.
16
    ENDIF.
17
*    CLEAR: <status>-mk_xt,
18
*           <status>-mk_to,
19
*           block_sw.
20
*    PERFORM beenden.
21
  ENDIF.
22
ENDFORM.