1
*&--------------------------------------------------------------------*
2
*& Form DELIMITATION *
3
4
* process temporal delimitation of marked EXTRACT entries *
5
6
FORM DELIMITATION.
7
LOCAL: <TABLE1>, <TABLE1_TEXT>.
8
DATA: D_RC(1) TYPE C.
9
* request date to delimit
10
CALL FUNCTION 'POPUP_GET_VALUES'
11
EXPORTING
12
POPUP_TITLE = SVIM_TEXT_036
13
START_COLUMN = '10'
14
START_ROW = '10'
15
IMPORTING
16
RETURNCODE = D_RC
17
TABLES
18
FIELDS = VIM_SVAL_TAB
19
EXCEPTIONS
20
ERROR_IN_FIELDS = 01.
21
IF SY-SUBRC NE 0. RAISE GET_VALUES_ERROR. ENDIF.
22
CHECK D_RC NE 'A'.
23
READ TABLE VIM_SVAL_TAB INDEX 1.
24
VIM_SPECIAL_MODE = VIM_DELIMIT.
25
CLEAR: COUNTER, VIM_OLD_VIEWKEY.
26
TRANSLATE VIM_NO_MAINKEY_EXISTS USING VIM_NO_MKEY_NOT_PROCSD_PATT.
27
28
* Event 28 AFter Entering Delimitation Date "CG 7/2001
29
if x_header-frm_af_edd NE SPACE.
30
PERFORM (x_header-frm_af_edd) IN PROGRAM (x_header-fpoolname).
31
endif.
32
33
PERFORM KOPIERE.
34
IF TEMPORAL_DELIMITATION_HAPPENED NE SPACE.
35
REFRESH VIM_DELIM_ENTRIES. CLEAR TEMPORAL_DELIMITATION_HAPPENED.
36
ENDIF.
37
CLEAR: VIM_SPECIAL_MODE.
38
ENDFORM. "delimitation