Properties SourceCde
txt
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