Properties SourceCde
txt
1
*---------------------------------------------------------------------*
2
*       FORM VIM_CK_APPEND_WHERETAB                                   *
3
*---------------------------------------------------------------------*
4
*       ........                                                      *
5
*---------------------------------------------------------------------*
6
FORM VIM_CK_APPEND_WHERETAB TABLES VCAW_WHERETAB STRUCTURE VIMWHERETB
7
                            USING VALUE(LINE) TYPE VIM_CK_SELCOND.
8
DATA: BEGIN OF HF, F1(1) TYPE C, F2 LIKE VIMSELLIST-VALUE, F3(1) TYPE C,
9
                  END OF HF.
10
DATA: len TYPE i,l_line(134) TYPE c.
11
CONSTANTS: wheretab_length TYPE i VALUE 72.
12
  CHECK NOT LINE IS INITIAL.
13
  IF LINE-VALUE EQ SPACE.
14
    HF = ''' '''.
15
  ELSE.
16
    CONCATENATE: LINE-HK1
17
                 LINE-VALUE
18
                 LINE-HK2
19
      INTO HF.
20
  ENDIF.
21
  CONCATENATE: LINE-FIELD
22
               LINE-OPERATOR
23
               HF
24
               LINE-AND
25
    INTO VCAW_WHERETAB SEPARATED BY SPACE.
26
  IF SY-SUBRC EQ 0.
27
    APPEND VCAW_WHERETAB.
28
  ELSE.
29
    CONCATENATE: LINE-FIELD
30
                 LINE-OPERATOR
31
      INTO VCAW_WHERETAB SEPARATED BY SPACE.
32
    APPEND VCAW_WHERETAB.
33
    CONCATENATE: HF
34
                 LINE-AND
35
      INTO l_line SEPARATED BY SPACE.
36
    vcaw_wheretab = l_line.
37
    APPEND vcaw_wheretab.
38
    len = strlen( l_line ).
39
    IF len > wheretab_length.
40
      CLEAR vcaw_wheretab.
41
      vcaw_wheretab = l_line+wheretab_length.
42
      APPEND vcaw_wheretab.
43
    ENDIF.
44
    IF line-and <> space.
45
      vcaw_wheretab = line-and.
46
        APPEND VCAW_WHERETAB.
47
    ENDIF.
48
  ENDIF.
49
ENDFORM.                               "vim_ck_append_wheretab