Properties | SourceCde
Title |  |
Original language | DE | Englisch
Created | 27.10.1998 |  | SAP |
Last changed by | 18.12.2001 |  | SAP |
Status | Active |
Attributes
Type | INCLUDE program |
Status | Test program |
Application | Basis |
Package | SVIM | Basis View Maintenance
| Editor lock
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