1
*&--------------------------------------------------------------------*
2
*& Form TEMP_DELIM_DETERMINE_ACTION *
3
4
* determine action flag *
5
6
FORM TEMP_DELIM_DETERMINE_ACTION USING VALUE(TDDA_INDEX) TDDA_ACT
7
TDDA_ACT_TXT.
8
LOCAL: TOTAL.
9
READ TABLE TOTAL INDEX TDDA_INDEX.
10
IF <ACTION> EQ NEUER_GELOESCHT.
11
TDDA_ACT = NEUER_EINTRAG.
12
ELSE.
13
TDDA_ACT = AENDERN.
14
ENDIF.
15
IF X_HEADER-BASTAB NE SPACE AND X_HEADER-TEXTTBEXST NE SPACE.
16
IF <ACTION_TEXT> EQ NEUER_GELOESCHT.
17
TDDA_ACT_TXT = NEUER_EINTRAG.
18
19
TDDA_ACT_TXT = AENDERN.
20
21
22
ENDFORM. "temp_delim_determine_action